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SECTION 1 


INTRODUCTION & SUMMARY 


1. 1 GENERAL 

The objective of the study reported herein 
is to provide an analytical-empirical model of 
turbine erosion that fits and explains experience 
in both steam and metal vapor turbines. Because 
of the complexities involved in analyzing turbine 
erosion problems, in a pure scientific sense, it is 
obvious that this goal can be only partially realized. 
Therefore, emphasis is placed on providing a useful 
model for preliminary erosion estimates for given 
configurations, fluids, and flow conditions. In 
terms of the prescribed effort level, this goal was 
given precedence over the more interesting but less 
immediateJy fruitful goal of precise and compre- 
hensive mathematical definition of the processes 
contributing to erosion. 


The first section of this report describes 
the assembly of the overall model of erosion, 
summarizes the component process models used and 
describes results of application of the model to 
several turbines. The model is used to estimate 
erosion depths or weight losses on the rotor blades of 
several turbines and the results are compared 
qualitatively to operating experience where it exists. 
Section 2 covers detail computational procedures that 
may be used to follow the fluid-dynamic processes 
involved in erosion, and compares typical calculated 
values with experience where it was found. Section 
3 covers in cTetail experimental evidence and anal- 
ysis thereof of the actual material removal by 
liquid impingement, and presents theoretical models 
for transferring this experience to calculations of 
material removal in turbines. Section 4 presents 
results of an experimental investigation of turbine 
stator blade wakes and compares these results with 
results from use of wake analysis procedures imposed 
in this report. 


The qualitative aspects of the model follow, 
to a large extent, opinions on the erosion process in 
wet vapor steam turbines that are widely held within 
the steam turbine community at the present time. In 
respect to the quantitative aspects, the study is in- 
debted to excellent previous studies by Gyarmathy 
and Gardner. It is a refinement and extension of these 
two previous works (more the former than the latter) 
based on later experience and substantial additional 
component process theory and computation. 

An effort has been made to make this report 
adequate by itself to provide calculational under- 
standing of the erosion model and its components. 
However in the light of the complexities of some 
of these processes, knowledge of the referenced 
material may be required for a comprehensive under- 
standing. 


1.2 EROSION MODELS IN WET VAPOR TURBINES 

The analytical models of processes leading to 
turbine blade erosion outlined herein are chiefly 
organized and used to examine material removal 
from the nose and the leading edge of a rotor blade. 
When erosion is a problem in a wet vapor turbine 
of well-ordered flow, operated at or near design 
condition, the attack on the leading edges of the 
rotor blades is generally of greatest concern to the 
turbine designer and the turbine user. 

Other locations of erosion are observed and 
some are mentioned in passing. In addition, many 
of the processes involved in producing rotor blade 
leading edge erosion are not specific to that location 
and process models can be recast to examine other 
locations of erosion in turbines. 
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1,2.1 Erosion Locations of Turbine Rotor Blades 
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In wet vapor turbines most of the material 
removal by condensate is from the turbine’s rotor 
blades. (See Figure 1.2-1.) In steam or alkali 
metal vapor turbines, the primary mechanism of con- 
densation is spontaneous nucleation in the bulk vapor 
flow to form a fog. In the latter turbines, damage is 
not done directly by the fog particles in the vapor. 

The fog is composed of submicronic diameter particles 
and only a small percentage ever impinge upon a 
surface. The impingement of this small percentage 
does, however, allow concentrations of liquid to 
build up on the various turbine surfaces and it is 
this liquid that can do damage. In mercury turbines, 
the end result is the same but the collecting mech- 
anism is probably different. Mercury vapor is theo- 
retically very slow to undergo spontaneous nucleation 
and there is probably no fog formation in most mercury 
turbines. Damaging liquid does seem to collect 
readily, however, by direct condensation on the tur- 
bine surfaces so that the locations and kinds of damage 
experienced are similar to those in fog turbines. 

Principal locations of material removal from 
rotor blades are illustrated in Figure 1.2-2. This 
figure shows forward and aft views of a shrouded turbine 
blade and points out four types of material removal 
by liquid that are likely to occur on the rotors of 
wet vapor turbines. 

In turbines, such as steam and mercury, where 
chemical dissolution of blade material does not occur 
to any extent, the material removal mechanisms is 
largely that of mechanical removal by the force of 
liquid Impingement as at locations (1) and (2) or by 
cavitation induced by the circulating eddies as at 
(4). In potassium vapor turbines the impingement 
removal can be compounded by dissolution effects 
either directly in the impingement areas or by rivulets, 
as illustrated at location (3). These rivulets can occur 
at other locations on the rotor blades as well as the 
trailing edge. They are nearly radial lines because the 
centrifugal force component on the liquid deposited 
on the rotors is much higher than the vapor shear force. 

Most of the liquid collects initially on the 
rotor and stator blades as they represent the bulk 



Figure 1.2-1 Eroded Steam Turbine Blade 
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Figure 1.2-2 Rotor Blade Material Removal 

of the turbine surface exposed to the main flow. As 
illustrated, damage can be done by casing and shroud 
liquid as well as liquid from or on the blades. 

Liquid reaches the turbine casing primarily by 
being slung from the turbine rotors. It reaches the 
casing, secondarily, under urging of the vapor secondary 
flow from the pressure (concave) surface over the cas- 
ing to the suction (convex) surface of the stator vanes. 
Other mechanisms, of less importance, are impinge- 
ment and condensation from the bulk flow. 

The casing-collected liquid, in addition to 
causing damage to shrouds and seals as indicated in 
Figure 1.2-2, tends to flow down over the stators on 
the convex side, as illustrated at location (1). This 

casing-collected liquid augments the liquid 
discharged from the stators that impacts 
the leading edges of the rotor blades. Since the 
highest normal impact velocities of collected liquid 
are with the leading edge of the rotor blades, increases 
in this liquid supply rate are obviously undesirable. 

The classic means of controlling the damage 
that can be caused by the casing-collected liquid, 
as used by the steam turbine industry, is to remove 
this liquid periodically through suitable ports in the 
casing. 


from the stator blade trailing edges into the path of 
the rotor blades, causing rotor blade edge damage 
as at location (2) in Figure 1,2-2. The rotor blade 
collected liquid can run up the rotor blades, causing 
dissolution damage as indicated in the figure at 
location (3). In principle, this stator discharged liquid 
can be removed, as is done in the steam turbine 
industry, with casing-collected liquid. However, con- 
trol of damage from stator discharged liquid without 
removal is the prevalent practice for steam turbines. 

1.2.2 Processes Involved in Erosion 

While erosion of rotor blading in turbines 
is a local phenomenon, numerical calculations of 
amounts of erosion either on a relative or absolute 
basis involve a nearly complete fluid-dynamic history 
of the turbine flow plus an accounting to the actual 
material removal phenomenon. A flow diagram of the 
analytical steps used in the erosion model is given in 
Figure 1.2-3, 





Even if all the casing liquid is removed, 
liquid which collects on the stator rotor 
blades of a given stage can cause material removal 

damage. The stator collected liquid can discharge Figure 1.2-3 WANL Turbine Blade Erosion Model 
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In this section, procedures are discussed in 
outline, and characteristics calculated or experimental 
values of the various variables in turbines are given by 
example. Detail calculational procedures are given in 
Sections 2 and 3, 

Detail methods for analyzing the material re- 
moval interaction of liquid with rotor blades is cover- 
ed in Section 3. Caution in the use of the results 
from application of Section 3 methods is advised. The 
suggested procedures are based on reasonable hypotheses 
and are not established theory or practice. 


Detailed methods by which the fluid-dynamic 
history may be traced are given in Section 2. The 
methods of fluid-dynamic analysis as given in Section 
2 are generally based on widely accepted theoretical 
schemes. However, the actual implementation of the 
theories in a numerical sense in the computer codes 
and other computational procedures set forth in 
Section 2 assume that a highly efficient axial flow 
turbine of well-ordered flow in radial equilibrium 
is being analyzed for erosion. Further, these methods 
are basically ordered in terms of the flow path as 
the aerodynamic designer sees it before compromise 
with the mechanical design. 


Most of the computer solutions of Section 2 
require the insertion of a physical turbine geometry. 
The effective fluid-dynamic geometry rather than 
the real geometry should be used as input to these 
computer programs if possible. An attempt has been 
made in the bulk flow programs to adjust to a real 
geometry and less than ideal flow, but this range 
of adjustment is quite limited. 

The bulk of the analysis carried out during 
this program was on turbines utilizing either steam 
or potassium vapors as the working fluids. As a 
result, the assemblage of analytical models proposed 


for carrying out an erosion analysis are most appli- 
cable to turbines using these readily fog forming 
low molecular weight working fluids. 

The flow regime in high efficiency steam 
and potassium turbines is generally subsonic. Some 
analysis was carried out on the Sunflower mercury 

turbine and a cesium turbine conceptual design. 

Both these turbines have supersonic stator exit flow 
but the flow relative to the rotors is subsonic. 

The bulk flow analysis programs in Section 2 provide 
for calculations with supersonic stator flow but not for 
supersonic flow relative to the rotors. The local flow 
analysis procedures for boundary layers, wakes, and 
atomization are based on subsonic information and 
theory without correction for Mach number effects. 

The computer programs cannot be treated as 
"black boxes" nor should the non-computerized pro- 
cedures be treated as "cookbook" recipes. The erosion 
analyst will have to use a considerable amount of 
individual discretion with all the recommended pro- 
cedures for good results. 


1.2.3 Turbines Used for Example Calculations 


A great many different turbines were analyzed 
with respect to erosion or erosion related processes dur- 
ing the course of this program. Calculations concern- 
ing these various turbines are scattered throughout the 
remainder of this section and Sections 2 and 3 as 
examples. Some overall characteristics and operating 
conditions of these turbines as used here are tabulated 
below. Further details on the various turbine designs 
created under government contract may be found in the 
references cited as a part of the brief descriptions given 
herein. Further details about the three large central 
station steam turbines sometimes used as examples nay 
be found in Appendix A to this section. 
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Figure 1,2-4 Yankee Steam Turbirie 
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Figure 1 .2-6 Cross Section of Two-Stage 
Cesium Turbine 



Figure 1.2-5 Cross Section of Six-Stage 
Potassium Turbine 


1.2.4 Process Descriptions 

1 . 2. 4. 1 Condensati on 

Nomenclature 

P Pressure 

r Fog particle radius 

T Temperature 

Y Moisture content of flow 

Subscripts 

Crit Critical size for thermodynamic stability 

IN Nozzle inlet 

LI, 12 Fog particle group 
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sat Thermodynamic equilibrium (ideal) saturated 
vapor condition 

rev Reversion from supersaturated to near equil- 
ibrium vapor 

1 Turbine inlet or local nozzle condition 

0 Initial condition 

E Equilibrium 

t Total 

w Wilson point 

If a vapor such as steam or an alkali metal 
expands in a nozzle or turbine until the temperature 
of the vapor is reduced to that of equilibrium satur- 
ation, the vapor does not condense in any appreciable 
quantity immediately. Rather the vapor must be 
further cooled to produce sufficient supersaturation 
to cause rapid condensation. The thermodynamic 
condition at initiation of rapid spontaneous conden- 
sation* is called the Wilson point or line. At the 
Wilson line condensation takes place rapidly, and 
the moisture content quickly approaches equilibrium. 
Thereafter the expansion process follows with but 
slight lag an equilibrium expansion. This is illustrated 
thermodynamically in Figure 1.2-7, It is illustrated 
schematically in Figure 1.2-8. This latter figure is 
a calculated condensation path for the expansion 
of steam in the downstream section of a converging- 
diverging nozzle. This characteristic behavior of 
steam vapor upon rapid expansion is well established 
experimentally and theoretically 02). 

That the same thing happens in potassium vapor 
expansions is illustrated by Figure 1.2-9, a plot 
taken from Goldman and Nosek(^). In this plot the 
expansions in a converging-diverging nozzle initially 
follow along a line of chemical equilibrium expansion 
(n = 1.4). In the diverging section of the nozzle (after 
considerable expansion), the expansion crosses over 
to a nearly full chemical and thermodynamic equil- 

* Calculations by Gyarmathy ( 8 ) show that compared 
to spontaneous condensation the other processes 
of condensation are of negligible importance in a 
wet vapor steam turbine. This is assumed to be 
true for alkali liquid metal vapor turbines on the 
basis that the casings can be thermally insulated 
if necessary. 



Figure 1.2-7 Thermodynamic Diagram of 
Vapor Turbine Expansion 



Figure 1.2-8 Moisture Fracture in Divergent 
Portion of a Steam Nozzle 
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Figure 1,2-9 Pressure Data for Saturated 
. . ; . ; Potassium Vapor 

ibriurn expansion (n=1.2), A potassium experiment 
simitar to that of Goldman and Nosek is reported 
by Rossbach 0$). Gyarmathy (11) has analyzed 
Rossbach 1 * data and finds a degree of supersaturation 
in potassium similar to that evidenced by the Gold- 
man and Nosek data* 

Nucleation theory due to Katz, Saltzburg, 
and Reiss 03) coupled with vapor properties (after 
Ewing, et al) O^) a nd the ‘energy, continuity, and 
momentum relations have been programmed for 
computer (See Section 2) in a form that can follow 
the expansion and nucleation process in detail as it 
proceeds through a turbine. Results of such calcu- 
lations, for a three-stage potassium turbine and a 
six-stage potassium turbine, are shown in Figure 
1.2-10 in the region of transition from supersaturated 
to thermodynamic equilibrium expansion. Also shown 
are points taken from the Goldman and Nosek results 
intersected, the expansion line, n=1.2, corresponds 
to 95 percent of full thermodynamic equilibrium. 



Figure 1.2-10 Moisture Content (Fracture of 

Equilibrium) as a Function of Pressure Ratio 
for Condensing Vapor in. Two Sample. 

Potassium Turbines , ^ r . ; ; _ y 

In examining Figure 1,2-JOJt will be noted 
that there is little if any difference in the conden**~~ 
sation expansion characteristics bejw t eep. the two tur- 
bines, even though the rate of expansion wa$ much 
higher in the three-stage turbine than in the six, - 
It will also be noted that the calculated pressure 
ratio for 95 percent of full thermodynamic equil- 
ibrium is in good agreement with, the Goldman and , 
Nosek results* Also, there is not much spread with 
pressure ratio for 95_ percent of full equilibrium 
among the experimental results, even though the 
inlet pressures in the tests varied between approxi- 
mately 18 psia and 6 psia. Examination of the 
original Goldman and Nosek publication also shows 
no consistent variation in condensation pressure ratio 
with inlet pressure conditions. ^ ? 3 

The original spontaneous nucleation creates 
sufficient surface area to allow further condensation 
to occur with minimal supersaturation. As originally 
formed, the condensation nuclei are extremely small 
(0.01 micron diameter) and are of relatively uniform 
size because of the short time period involved. The 
nuclei grow quite rapidly to about 0.2 micron dia- 
meter as the supersaturation potential created by the 
expansion in advance of spontaneous condensation 
is exhausted. Thereafter, a slower growth takes 
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place as the droplets progress through the turbine. 

This sequence of events is shown In Figure 1.2-11 by 
a calculated history of the formation of conden- 
sation particles during the expansion of steam in a 
convergent-divergent nozzle. 

The final condensate particle sizes exhausting 
from turbines examined during this program are on the 
order of 0. 5 micron diameter. The calculated super- 
saturation in equivalent moisture to initiate spon- 
taneous condensation in turbines ir around 2. 5 per- 
cent in steam, 7. 5 percent in potassium, and 4. 5 
percent in cesium. No spontaneous condensation 
occurred during expansion calculations on the Sun- 
flower mercury turbine. 


1, 2.4.2 Collection of Condensate Particles 

Because of their small size*, the condensate 
particles are essentially locked to the vapor flow and 
most of them remain with the steam of their birth until 
turbine exit. ** However, a small percentage of the 
condensate fog collects on surfaces because of the 
curvature of the flow passages and rotation of the 
moving blades. By calculation, the percentage 
collected per turbine row even in the wettest rows is 
on the order of 5 percent or less of the total fog 
present; generally, it is less.*** The collected 
moisture causes the erosion. The fog particles 
cause no erosion since they follow the vapor flow as 
it slices cleanly over the blading surfaces. 


* The particles are so tiny that the ratio of their 
diameters to the mean free molecular path places 
them in the slip-flow regime in most turbine 
flow streams. 

** Normal secondary flows at hub and tip will modify 
this picture somewhat. There is also a negligible 
drift on the particles relative to the vapor in a radial 
direction due to the turbine centrifugal field. 

***Th!s calculation is in qualitative agreement with the 
observation that moisture removal devices In central- 
station-type steam turbines rarely remove as much as 
25 percent of the total moisture present even though 
moisture Is removed at a number of spots lengthwise 
along the turbine. 



Figure 1.2-11 Steam Condensate Droplet Growth 
in Divergent Portion of Nozzle 

It is hypothesized that the major mechanism 
in collection of these particles is by inertial impaction 
on the nose and concave surfaces of the turbine blades. 
Solutions for the equations governing measured collection 
by turbine blades by inertial impaction are given in 
Section 2. 

The basis for using the inertial impaction hy»- 
pothesis is that calculated collection using this 
assumption agrees reasonably well with measured ,v 
collection in a steam turbine as reported by Smith 
Smith's tests were run on a four-stage machine with 
the water extraction between the third and fourth 
stages. The theoretical amount of moisture present 
at the exit of the third stage was varied by changing 
the amount of superheat In the vapor at the turbine 
inlet. Smith's data are shown as X-s in Figure 1. 2-12. 
This is a plot of theoretical moisture against the 
portion of the theoretical moisture collected. Super- 
imposed on this figure is a curve representing a theo- 
retical calculation of the portion of moisture that 
would be collected by the Yankee steam turbine 
ninth stage stator if the turbine was operated to pro- 
vide the varying amounts of theoretical moisture. In 
addition, the conditions and geometry are also adjust- 
ed to make the Wilson Point (at some location ahead 
of the ninth stator) occur at a value of (I/P) dP/dt 
of 1100/sec, where P is the static pressure and dP/dt 
is the rate of change of this pressure with time at the 
Wilson Point. 
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Figure 1.2-12 Calculated and Experimental 
Turbine Moisture Collection 



MOTION OF FILM OF WATER ON ROTATING BLADES 



Figure 1,2-13 Relation of Moisture Particle 
Travel to Motion in Plane Normal 
to Axis of Rotation 


If a line were drawn through Smith's data, 
it would be steeper than the theoretical line. However, 
the calculations are for collection on a single turbine 
row, whereas Smith’s data represent collection on a 
varying number of turbine rows and fractions thereof. 
That is, the Wilson Point in Smith’s turbine Is moving 
toward the front end of the turbine as the amount of 
theoretical moisture available at the third stage exit 
rises. Therefore, the collecting surface area subject 
to the condensing region is increasing. The moisture 
collected at the drain port between third and fourth 
stages probably represents that collected on less than 
one row for 3 percent theoretical moisture, and on 
up to two or more rows for 8 percent theoretical 
moisture. This explains why the slope of the data 
points is substantially greater than the slope of the 
calculated line. If the drain ports in Smith’s experi- 
mental turbine are catching nearly all of the moisture 
collected on the blades, and as the blade sections, 
spacing, and amount of turning of the experimental 

turbine rows are quite similar to that of the ninth 
stator of the Yankee turbine, then the theories of 
condensate spontaneous nuc lection and deposition 
(taken together) somewhat over-estimate the actual 
amounts of moisture being collected in steam turbines. * 

The calculated portion of the condensate 
particles caught by a given blade row In a small 
turbine Is substantially greater than in a large turbine 
For example, the last stator row of the NAS 3-8520 
Three-Stage Potassium Test Turbine is estimated to 
collect 7 percent of the condensate particles in vapor 
of an 88.6 percent average quality; whereas by Figure 
1.2-12, the Yankee Steam Turbine would collect only 
2, 3 percent in vapor of the same quality. The higher 
flow accelerations in the smaller turbine relative to 
the larger are the principal reasons for the difference. 

1.2.4. 3 Movement of Collected Moisture' ' 

The small percentage of fog particles collected 
form rivulets, films, and drops on the blading surfaces. 


* The conclusion is still justified even though the 
basic comparison is between "apples 11 and "oranges" 
because the calculated single row moisture 
collection is greater than the measured multiple 
row moisture collection. 
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On the rotating blading, the predominant force over 
most of the blading surface Is that of the centrifugal 
field of the blades. Under this force, the liquid 
collected on the rotors flows nearly radially outwards* 
and is thrown from the tips of the blades. The particle 
flew leaving the blade tips is essentially in the 
tangential direction, and the initial flow velocity is 
approximately the same as the peripheral speed of the 
blade. The tangential distance of travel in large steam 
turbines is often on the order of 5 inches. In models 
of cesium and potassium space turbines the tangential 
distances of travel may be as low as 5/32 inch, 

A radial groove or grooves has been found 
to occur on the pressure surfaces just aft of the nose 
of the rotor blades in the NASA-G. E. two-and three- 
stage potassium test turbines after 1000 or 2000 hours 
operation (21*22)^ This can be taken as evidence 
of a strong liquid rivulet in this location. In the two- 
stage test turbine the presence of this 



eddy caused by negative flow incidence entering the 
rotor blades. During the course of this program, a 
number of surface velocity and boundary layer analyses 
of axial flow turbine blading were carried out (by 
the methods in Sections 2. 4 and 2. 5). In all cases, 
even at zero flow incidence, there was sufficient 
diffusion of the flow at the outer edge of the boundary 
layer just aft of the blade noste on the pressure sur- 
face to cause a local region of flow separation. This 
region of flow separation is quite local. The liquid 
atomization and trajectory analysis code (ADROP) 


developed under this program (Section 2. 5) cannot 
handle a separated flow regime and the computations 
relating to atomized droplets discharged from the 
trailing edges of stator vanes must be started downstream 
of this local pressure surface flow separation to obtain 
droplet information from the code. 

Due to the high peripheral velocity of the 
turbine rotor blade tips, the liquid flung from the tips 
is well atomized. An estimate of the characteristics 
of the spray discharged from the tips of the third 
rotor of the NAS 3-8520 Three-Stage Potassium Test 
Turbine has been made assuming that the discharge 
is similar to that from an underfed disc atomizer. These 
estimates give: 

Maximum Drop Diameter - 76 + 33 microns 

Mass Mean Drop Diameter - 46 +23 microns 

These drops are still large compared to the fog 
particles. Most of these atomized drops proceed in 
an almost undisturbed trajectory to impact the turbine 
casing at a very shallow angle. Even with a 5-inch 
path length, the tim$ of flight is only about one-half 

millisecond at 800 ft/sec tip velocity. This time is 
too short for the vapor drag forces to produce any 
appreciable deceleration or Acceleration of most of 
the flung liquid. A small percentage of the liquid 
is undoubtedly in the form of small drops (of sufficient- 
ly high surface to mass ratio) that are turned into the 
succeeding stator by the vapor ^stream. However, such 
drops will slice cleanly aloftg the stators and cause 
no damage. For these reasons erosion at the inlet 
of stators* is seldom encountered in practice where 
moisture impinging on the casing is removed through 
suitable slots. ** 

- ' ’ \ ' ' ' ' ! 

: ' f ’ s : 

\ \ ' 


* This is not so near the leading edge of a rotary 
blade as may be seen by examining the markings 
on the eroded blade of Figure 1.2-1. Results of 

an analytical study of moisture movement near 
the leading edges of rotor blades may be found in 
Gardner C 20 )* 


* Erosion at the exit of stators is sometimes observed 
and assumed to be caused by drops rebounding 
from the rotor blades. 

** In steam turbines it ?s the practice to have a 
vapor flow into the slots. This tends to prevent 
any liquid splashes from returning to the main 
stream. 
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ft is desirable not to have to incorporate 
internal moisture removal into alkali metal space 
turbines. If moisture removal slots are not incorpor- 
ated, the liquid flung from the tips of the rotors will 
accumulate and run along the casing toward turbine 
discharge under the drag of the vapor flow. If 
unshrouded rotors are used and if the liquid remains 
on the casing as a film, it might not do much harm 
to turbine blading. 

An analysis of turbine casing flows for the 
NAS 5-250 potassium and cesium turbine designs 
was carried out. This analysis is reported in greater 
depth in Section 2. By this analysis it is found that 
the casing flows towards the back end of the sixths 
stage potassium turbine are unstable. That is, the 
film of liquid develops waves. These waves will 
grow to sufficient height to penetrate the vapor 
laminar sublayer and will be torn off as drops. Some 
of these drops will be upwards of 400 microns in dia- 
meter. Such drops are large enough to cause impact 
damage to rotor blade tips (and shrouds and seal 
strips if such are present). Since these drops may be 
formed anywhere along the casing, some of them will 
have insufficient time to break up before impacting 
the rotor blade tips or shrouds. 


The stability of this casing liquid has been 
examined in terms of Baker's (0^) two-phase flow map, 
and the Chien and Ibele * ' criterion for transition 

from annular to annular-mist flow of the form 

(Re y ) (Re L )°- 3 = 1.2 (10 6 ) 

where 

Rey is the vapor Reynolds Number 

Re^ is the- liquid Reynolds Number 

Both Reynolds numbers are based on mass 
velocity using the full cross-sectional area of the 
flow passage as constrained by the turbine blade 
row. 


In addition, the technique of Wrobel and 
McManus 0^) was used to estimate the wave height 
and its ratio to vapor laminar sublayer thickness. The 
degrees of casing liquid instability predicted by the 
three methods do not agree very closely. In addition 
the correlations were obtained using observations on 
pipe flows and their application to turbine casing 
flows has not been established. 

The turbine casing flow regime parameters 
for the last two stages of the six-stage potassium 
turbine may be found in Table 1.2-2. The values 
given in Table 1.2-1 are outside the range of the 
Baker Plot shown in Figure 1.2-14 but a mental 
extrapolation of the plot indicates unstable flow. 

The Chien and Ibele factors are an order of magni- 
tude greater than required to yield flow instability. 

On the basis of the foregoing observations, it 
appears that casing moisture removal in potassium 
space turbines will reduce erosion. 

On the stator blades, the primary force acting 
on the collected liquid is the drag force of the main- 
stream flow. Under this force the liquid flows to the 
rear of the stator where it collects until torn from the 
stator as rather large particles. In the model used 
it is assumed that the collected liquid follows the 
bulk flow streamlines and on a time average basis is 
uniformly distributed along a stator from hub to tip. 
Although the first assumption is of doubtful validity 
because of the secondary flows at blade hub and tip* 
the second assumption is still reasonable, since the 
liquid displaced from the pressure surface of a partic- 
ular stator will tend to flow over the casing or rotor 
hub and terminate on the suction surface of the com- 
panion stator. 

The liquid, which is torn from or near the 
back edges of stator vanes, impinges on the following 
rotor blades. It may remove material by the force 
of impingement or by chemical dissolution of the 
rotor blade material or by a combination of these 
mechanisms. Initially, relatively large drops are 


* There is an added force on the liquid stators, tend- 
ing to move it from tip to hub in the form of the 
turbine radial pressure gradient. This force is 
considered to be of negligible importance. 
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TABLE 1.2-2 


TURBINE CASING FLOW REGIME PARAMETERS 
SIX-STAGE POTASSIUM TURBINE 


Exit of 
Blade Row 

Re y x ICf 5 

Re^ 

-4 

Gx ICf 4 

lb/hr-ft 2 

L 

Ib/hr-Ft 2 

GA x 10 -4 
IbAr-ft 2 

LA*/G 

xlO 4 

Ft. Ft.,'™ 

6K-4S 

5.04 

33.0 

3.94 

13.0 

4.96 

2.12 

2.62 

6K-4R 

4.94 

168. 

3.32 

56.1 

4.11 

71.2 

2.56 

6K-5S 

4.95 

321. 

2.72 

92.3 

3.74 

19.4 

2.56 

6K-5R 

4.89 

491. 

2.19 

120. 

3.33 

27.6 

2.52 

6K-6S 

4.67 

834. 

1.87 

181. 

3.04 

44.6 

2.51 

6K-6R 

4.83 

897. 

1.54 

164. 

2.64 

46.0 

2,48 



Figure 1,2-14 Baker’s Map of Two Phase 
Flow Regimes 


torn from the stators. Most of these drops undergo 
a breakup process and all undergo acceleration be- 
tween stator apd rotor. However, in the time 
available the drops do not attain vapor stream 
velocity, and because of the vector velocity differ- 
ence can strike the nose and convex surfaces of the 
rotating blades with rather large normal velocity 
components. In turbines with high velocities of the 
liquid drops relative to the rotor blades, some of the 
larger drops strike with sufficient force to cbuse 
mechanical material removal by repetitive impact. 
This mechanical erosion of the rotor blades is con- 
fined to the nose and leading edge of the convex 
surfaces because of the shadow effect of companion 
blades. Because the blade speed is highest at the 
tip and hence the incident drop velocities are 
highest, the greatest degree of mechanical erosion 
occurs at the blade tips. (Dispersed casing liquid 
may also play a part if periodic removal is not 
performed. ) 



Figure 1.2-15 Impingement on Rotating Blade 


As can be inferred from the preceding para- 
graphs, the mechanical impact intensity and the 
amount of mechanical erosion depend to a large 
degree on the extent to which the drops are acceler- 
ated and atomized in the space between the stator and 
rotor. In this respect the vapor density level as 
reflected in the vapor stream dynamic pressure is a 
most important parameter. The higher the pressure the 
more rapid the drop acceleration and the finer the 
atomization. 

Because the vapor density levels in the potassium, 
cesium, and mercury turbines examined are high com- 
pared to those in a low pressure steam turbine of a 
central-station turbine complex, drop acceleration is 
much more rapid and atomized drop sizes much finer 
than in the low pressure steam turbine. 

1.2.4. 4 Atomization and Trajectories of 
Stator Discharged Liquid 

Visual observations in steam turbines ' 9 * 

reveal that the liquid collected on the stators is torn 
from the vicinity of the trailing edges of the stator 
vanes. Initially, this liquid is in the form of a dis- 
tribution of sizes and fairly large drops. This stage 
of the process is called primary atomization. These 
large primary drops are caught up in the decaying 
wakes down-stream of the stators and accelerated by 
the vapor stream. Most of the primary drops are 
unstable under the aerodynamic conditions prevail- 
ing during this acceleration. Providing there is 
sufficient (time of flight) between stator and rotor, 
these unstable drops are broken down into smaller 
stable drops. This stage of the process is called 
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secondary atomization. Completion of the secondary 
atomization process gives a relatively stable population 
of drops composed of a residual of primary drops that 
are small enough to be stable plus the secondary drops 
formed from shattered primary drops. In well design- 
ed turbines, it is this stabilized population of drops 
that impinges upon the rotor blades and can cause 
erosion damage. 

There are at least four different mechanisms 
of primary atomization and two for secondary atom- 
ization that have been observed under conditions 
related to those in turbines. Primary drops have been 
observed to be formed by ( 1 ) tearing of masses of liquid 
from puddles of films ( 2 ) stripping of liquid in the form 
of pendant drops ( 3 ) tip bursting of pendant drops and 
( 4 ) the coagulation of liquid on a surface into drops. 
Secondary drops can be formed either through stripping 
or bursting of primary drops. To trace the history 
of all these possible processes would be a formidable, 
if not impossible, task. Because of this the numerical 
procedures for atomization estimates given in Section 
2.7 involve substantial simplification through gross 
description of droplet classes based in large part on . 
empirical observations or empirical correlating relations 
commonly used in describing gas-atomized liquid 
sprays. Furthermore, almost all of the empirical 
observations used in preparing the numerical detail 
of the atomization model are taken from reference 
material where the reported tests were made using 
steam vapor or air atomization of water drops. 
Nonetheless, it is felt that observations on steam 
or air atomization of water drops, particularly 
observations in actual turbines or turbine-like cas- 
cades, are applicable to a broader spectrum of tur- 
bine working fluids (such as the liquid metals) of 
low liquid-viscosity and substantial surface tension. 

As a conservative assumption, it is generally 
assumed that the bulk of the stator discharged liquid 
is concentrated in the trough of the stator blade wake 
and atomization and trajectory calculations are carried 
out using trough conditions. Although there are experi- 
mental observations a considerable amount 

of liquid rather quickly finds its way out of the wake 
into the bulk stream, there is no quantitative infor- 
mation on this point. 

The wake velocities are calculated by ^^ 25 ) 
semi-empirica 1 method of Lieblein and Roudebush 


Some experimental wake investigations were carried 
out during this program and results are reported in 
Section 4, If the trailing edges of the stator vanes 
are kept thin, the experimentally measured wake 
characteristics agree quite well with calculations 
using the Lieblein and Roudebush method. Evidence 
of this is given in Figure 1.2-16. It is also evident 
from this figure that the procedure will not give 
results as accurate for thicker trailing edges. 


% i.o r 1 t \ 1 1 ' r r 



REFERRED DOWN STOAM DISTANCE - CHORD LENGTHS 


Figure 1.2-16 Wake Trough Velocity 

9 Distances Required to Complete Secondary 
Atomization 

While the equations of motion concerning break- 
up and drop displacement cannot be solved rigorously 
in closed form, a reasonable approximate solution 
for large drops (that do not accelerate very much 
before breakup) can be obtained in closed form. The 
results of such a solution are shown in Figure 1.2-17. 



Figure 1.2-17 Displacement of Drops to Breakup 
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In this figure, the distance of travel before breakup 
(Xdc) is referred to the drop diameter (Dd) and this 
referred distance plotted as a function of initial drop 
Reynolds Number (Re)^ based on the relative flow 
velocity between drop and vapor stream, drop diameter, 
and vapor density and viscosity. Parameters shown 
in this figure are U/Vr and 

where: 

U is the vapor velocity relative to stator 
blade 

Vr relative velocity between drop and 
vapor 

^ density of drop liquid 

Py density of vapor 


The maximum diameter primary drops dis- 
charged from stators (likely to be formed) in turbines 
may be assumed to have diameters about the dimension 
of the stator blades trailing edge thicknesses. For 
sarall potassium turbines this is about 250 microns. 

The initial drop Reynolds Numbers for such drops are 
in the order of 10^ to 105 depending upon their 
position in the stator blade wakes. For such drops it 
can be seen that the maximum breakup distance is 
of the order of 10 diameters. Allowing a factor of two 
for conservatism, the distance between stator exit and 
rotor inlet can be as little as 5mm (0.2 in.) along the 
vapor flow path with the expectation that the primary 
drops will be broken up before impacting the rotor 
blades. 

The ADROP computer code of Section 2.6, 
uses numerical means for calculation of the distances 
required to complete secondary atomization. Typical 
results are illustrated by calculations for the Sun- 
flower Mercury Turbine (Figure 1.2-18) and for the 
Toledo Edison Bayshore No. 2 Low Pressure End Steam 
Turbine (Figure 1.2-19). The referral distances are 
2mm for Sunflower and 112 mm for Bayshore No, 2. 

It will be noted that there is insufficient distance be- 
tween stator and rotor of the Sunflower turbine to 
complete secondary atomization. 



PRIMARY DROP DIAMETER - MICRONS 


Figure 1.2-18 Sunflower Turbine - Stage 3. 
Primary Drop Distances to Disruption. 
Absolute Distances are Referred to 
the Maximum Possible Path , . 
Length 



PRIMARY DROP DIAMETER - MICRONS 


Figure 1.2-19 Bayshore No. 2 - Stage 7. Primary 
Drop Distances to Disrupt ion.Absolute Distances 
are Referred to the Maximum Possible Path 
Length 
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• Velocities of Stator Discharged Liquid 


The history of the acceleration of the liquid 
discharged from turbine stator vanes is a general^ case 
of motion with a variable local velocity field within 
the stator wake. A closed form solution does not 
seem possible because of the complexity of the result- 
ing equation of motion. For this and other reasons 
the ADROP computer code of Section 2.6 was created 
to solve the complex equation of motion. A correlation 
of ADROP code solutions for drops traveling along a 
stator blade wake axis is given in Figure 1.2-20. 

These solutions are plotted as a function of drop velocity 
( Vd) to bulk stream velocity ratio in terms of a referred 
distance (X/Q along the wake axis in blade chords 
(c), with parameters of initial drop Reynolds Number 
(Re 0 ) and K d an initiai value of an inertial para- 
meter. Where: 



A comparison of observed stator discharged 
liquid velocities in the low pressure end of a large 
English steam turbine and those calculated along 
the flow path between the 9th stator and rotor of 
the Yankee low pressure end, under similar conditions 
of jet velocity and pressure level, is given in Section 
2.6, Appendix A. The observed velocities are 10 
to 20 percent higher than the calculated velocities. 



and 

P vapor density 

- p ' liquid density 

*C , initial drop drag coefficient 
. do 

D^ drop diameter — cm 

Typical calculated values of ^ at the 
rotor inlet plane for four turbines are as follows: 


Sunflower, Mercury, 3rd Stator 

V U o 

0. 05 

Bayshore No, 2, Steam, 7th 
Stator 

0. 26 

NAS5-250 6-Stage Potassium 
6th Stator 

0.22 

NAS5-250 2-Stage Cesium, 
2nd Stator 

0.72 


The velocities with which these stator dis- 
charged drops impact the rotor blades depend upon 
the turbine velocity triangles as illustrated by Figure 
1.2-16. In ail of the calculations of this program 
it has been assumed that the turbine is operating at 
design condition with zero vapor flow incidence into 

the rotor blades. Figures 1.2-21 and 1.2-22 give 
calculated values of impact velocity, Wj, with the 
last rotors of the Sunflower and Bayshore No. 2 tur- 
bine, respectively, as a function of drop terminal 
velocity, V.. Of even more importance is the normal 
component, vVp, of the impact velocity for it is well 
established in impingement erosion experience that 
it is the normal component of drop impact velocities 
that is of primary importance. It will be noted that 
the normal velocities of drop Impact of the Sunflower 
last rotor are, in general, substantially lower than 
the absolute velocities of impact; this is not so for the 
Bayshore No. 2 steam turbine. The reason is the 
Sunflower turbine is a relatively high hub to tip 
ratio impulse turbine and the inlets to the rotor blades 
are turned away from the direction of rotation. Bay- 
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Figure 1.2-21 Sunflower Turbine - Stage 3. Drop 
Impact Velocities Relative to the Rotor Blade 


shore No, 2, is a relatively low hub to tip ratio 
turbine with a high degree of reaction at the blade 
tips. The inlets to the rotor blades, particularly at 
the tips, are turned in the direction of rotation. 


The calculated drop impact normal velocities 
on the last rotor blades in potassium turbine designs 
are intermediate between those of the Sunflower and 
Bayshore No. 2 turbines and are in the range of 500 
to 900 ft/sec. The calculated drop impact normal 
velocities on the last rotor blades of the NAS 5-250 
two-stage cesium turbine are in the same range as 
those of the Sunflower turbine. 



Figure 1.2-22 Bayshore No. 2 - Stage 7. Drop 
Impact Velocities Relative to the Rotor Blades 


• Diameter of Drops Impinging on Turbine Rotor 
Blades 

Two means of assessing the distribution of drop 
diameters impinging upon the turbine rotor blades have 
been investigated during this program. Both methods 
are discussed in Section 2. 7. The first of these, of 
a semi-empirical nature, was used in the erosion 
analysis of the Yankee steam turbine low pressure end 
reported in Reference (26). The calculated drop diameter 
distribution produced is cujite different from those 
reported by Christie 24) f rom actual observations 
in a large steam turbine, (See Figure 1 , 2 - 24 .) 


The second method is an empirical approach 
using an average distribution from those reported 
by Christie '^applied to a calculated maximum drop 
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SUNFLOWER &AYSHORE NO. 2 


Figure 1.2-23 Comparison of Impact Velocities on 
Sunflower and Bayshore No. 2 Turbines 


diameter of the stator discharged spray. The second 
method is presently preferred although it also (as 
discussed in Section 2. 7)can yield quite inaccurate 
results with very small errors in determination of 
maximum drop diameter. 

Hi A c I t c : 

The maximum drop diameter of the stator 
spray ^determined by use of the parametric time 
history the drops In the stator wake covered In 
Sect ton 2. 6. It Is assumed that the primary drops 
become entrained by a given wake streamline and 
the liquid represented remains with that streamline 
until rotor impact. The criteria for disruption of a 
primary drop is taken as the exceeding of a critical 
drop Weber Number at some point along the path 
between detachment from the stator to impact with 
the rotor. This assumes that there is time for the 
drop to disrupt/ after the critical Weber Number has 
been exceeded, before it impacts the turbine rotor. 
All primary drops which experience a Weber Num- 
ber greater than the critical are presumed to disrupt 
to smaller stable secondary drops. 


Primary drops that experience local Weber 
Numbers in the wake less than the critical Weber 
Number are assumed stable and retain their primary 
configuration. The maximum size drop that will 
impact the rotor is the primary drop that just ex- 
periences/ but does not exceed/ the critical Weber 
Number anywhere between origin and impact with 
the rotor. This model uses Weber Number criteria 
because under local conditions at the time of break- 


up of the primary drops it is believed that the ratio 
of dynamic pressure force to surface tension force 
is the single most important criterion as to whether 
a drop is stable or not. Unfortunately, Weber Num- 
ber alone is not sufficient to allow a prediction of 
maximum drop diameters in sprays even when the 
local conditions at disruption are known with rea- 
sonable accuracy. For this reason, Westinghouse 
has varied the numerical value of the Weber Num- 
ber that has been used in analysis of turbines from 
turbine to turbine. 

For small turbines, 1-inch chord, 1-2 inch 
high blades, the critical Weber Number used has 
been 13. For the large low pressure ends of central 
station steam turbines, the value used has been 
Weber Nur nber = 22. The rationale is due to 
Gardner ^ who apparently drew Qgvthe 
Heinze. According to Spies, et al , Heinze shows 
that for a non-vi scous fluid (the turbine working 
fluids are considered "non-viscous”) the critical 
value of Weber Number is 13 for shock exposure of 
a drop to aerodynamic forces and this critical Weber 
Number increases to 22 for a steadily falling drop. 
This latter case is that of graduated application of 
aerodynamic forces to the drop. From trajectory 
calculations on both large and small turbines, it 
appears that the application of aerodynamic forces 
to the primary drops is quite abrupt or shock-like 
in the small turbine and quite gradual in the large 
central station steam turbine low pressure end. The 
selection of Weber Number = 13 for the small tur- 
bines and Weber Number = 22 are commensurate 
with the trajectory observations. 


Since these values were selected, a consider- 
able amount of actual observation in large steam 
turbines'^) and in a small steam turbine^ ' built 
to simulate a space potassium turbine have become 
available* These data clearly show that from a 
conceptual point of view, the simplified two-valued 
scheme of this model is inadequate. However, in a 
numerical sense the selection of Weber Number = 1 3 
for the small space turbines examined is a reasonable 
average value based on an analysis of the results of 
Spies et al^ as given in Appendix B, Section 2.7. 
For a typical design such as the NAS3-GE 3-stage 
potassium test turbine, the procedure of Weber 
Number = 13 may err in estimating the maximum 
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Figure 1.2-24 Drop Distribution Functions 

size drop impinging on the rotor blades of that tur- 
bine by 30 microns. The maximum size drop is about 
]00 microns in diameter. 

The selection of critical Weber Number = 22 
for the low pressure ends of large central station 
steam turbines seems to be overly conservative in 
terms of steam stationary cascade tests as reported 
by Christie and Hayward'^' but not necessarily for 
actual turbines as reported by the same reference. 

1.2.4. 5 Material Removal 

The liquid that is tom from the back edges 
of the stator vanes and impinges on the following 
rotor blades may remove material by the force of 
impingement or by chemical dissolution of rotor 
blade material or by a combination of these mech- 
anisms. In the early days of steam turbines, it was 
postulated that chemical effects might play a part 
in the observed blade erosion. While the presence 
of such effects has never conclusively been disproved, 
it is not deemed important. The observed erosion in 
steam turbines can be adequately explained as a phy- 
sical phenomenon without recourse to chemical ex- 
planations. It is believed that this is also true of 
mercury turbines. 


The chemical situation in alkali liquid metal 
turbines is not as clear. Because of the elevated 
operating temperatures and the nature of the fluids 
involved in alkali liquid metal turbine system$,all 
proposed structural materials have a substantial 
degree of solubility In the working fluid. In pure 
fluid systems, such as can be maintained with rea- 
sonable state-of-the-art technology with alkali metal 
working fluids, it is thought that dissolution of the 
blade materials is the main chemical possibility for 
material removal and that present limited quantita- 
tive data can be extrapolated to other similar systems 
for rough, predictive comparisons. 


• Chemical Dissolution 

The stator discharged liquid impacts the rotor 
blades along a relatively narrow portion of the leading 
edge of the convex surface and is assumed to flow in 
a nearly radial direction to discharge at the, blade 
tips. It Is assumed that impacted moisture forms a 
continuous film, and the fluid impacts uniformly' . 
along the blqde impaction zone. The concern of 
this analysis is the chemical dissolution of thetlade 
material associated with the flow of this fi[m in . 
potassium or cesium vapor turbines. 

Because the film of liquid formed on the rotor 
blades is at most a few micrometers thick and is vio- 
lently stirred by the incoming drops, it is assumed 
that the rate controlling step, in the dissolution 
process, is that of the rate of dissolution for the blade 
material into the liquid at the liquid-solid interface. 
This is different than for dissolution of solids into 
liquids in pipe flow. In pipe flow, the rate control- 
ling step is often the rote of diffusion of the dissolved 
solute across the solvent boundary layer into the 
bulk flow of solvent in the pipe. 

(27) 

According to Epstein , the rate of dissolu- 
tion of a pure metal into a pure liquid solvent at the 
metal -liquid interface is given by 

s = S o [t -exp (1) 
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where 


A is the surface area in contact with the 

2 

liquid - cm x 

5 is the saturation solubility of material 
° in the solvent - dimensionless 

S is the solute concentration in the 
solvent at time t - dimensionless 

V is the volume of liquid in contact with 
the metal for time t - cm^ 

t is the contact time between liquid and 
metal along surface A - sec 

a is the solution rate constant - cm/sec 

Under steady-state conditions, such as in a 
turbine operating at design, it can be shown (Section 
3*4) that Epstein's equation implies that the rate of 
blade metal thickness removal is: 


in concentrations of only 1 to 2 percent they tend to 
collect at the alloy grain boundaries where they may 
be more readily leached from the surface than if they 
were uniformly mixed. In addition, if there is pref- 
erential leaching at the grain boundaries, this may so 
weaken the material that a considerably greater amount 
of material may be lost than that which simply dis- 
solved. 

At the present time, there are insufficient 
experimental results or theory to judge these factors 
adequately. Nevertheless, it is worthwhile to 
delineate these areas of uncertainty by the applica- 
tion of multiplicative correction factors to Equation 
(2), as: 



- a S 
m o 




( 2 ) 


where the added variables are: 


* 

m 

a 


,rate of liquid deposition per unit area 
per unit time - gm/cm^/sec 


5 

P 


m 
j e 


f rate of metal thickness removal - cm/sec 

3 

» liquid density - gn/cm 


The discussion so far has assumed a pure metal 
dissolving into a pure liquid. The latter assumption, 
pure liquid, is probably reasonable since turbine system 
operators go to some length to keep a pure liquid in 
the system. However, turbine blade materials are 
alloys composed of materials of differing solubility 
and probably chemical activity. In advanced high 
temperature Rankine cycle liquid metal systems, the 
turbine blade materials are likely to be refractory 
alloys such as TZM and TZC, These are molybdenum 
alloys with small amounts of titanium, carbon, and 
zirconium. The alloying materials such as Ti and Zr 
are more soluble than the base material; while present 


where 

a is the activity level of a readily dis- 
solvable constituent of the alloy in the 
alloyed form relative to the constituents 
dissolvability in pure form - crT/sec 

k is the ratio of the effective surface area from 
which the constituent is dissolving to the 
total surface area of the alloy - dimen- 
sion! ess 

k is the ratio of total alloy removal rate 
to dissolving constituent removal rate - 
dimensionless 

§ is the thickness removal rate for the alloy 
5 surface as a whole - cm/sec 


Results of a chemical dissolution examination 
of the sixth rotor of the NAS5-250 six-stage potassium 
turbine, and the second rotor of the NAS5-250 two- 
stage cesium turbine are reported in Section 3.0. Be- 
cause of the doubtful basis for chemical dissolution 
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examination of the NAS5-250 turbine designs, a para- 
metric examination of chemical dissolution is pre- 
sented in this section. In both these examinations, 
it is assumed that: 


Hence, 


k - l/k^ and a — 1. 


m 



5 =a S At 
s o 


(4) 

(5) 


Also, it has been assumed that k (the effective surface 
area ratio) Is equal to the ratio of dissolving consti- 
tuent volume to total alloy volume. 

If it is assumed that m a and a is time 
independent. Equation (4) is readily integrated to 
give: 

5 = a S At 
s o 



\/J (°K~S 612939-2B 


where 

5 is the total thickness of material 
S removed from a metal surface in time 
of exposure (At) - cm 

At is the total time of metal surface expo- 
sure to the liquid metal - sec 

With present knowledge, there are no ex- 
perimental values of dissolution rate constant (a) 
available on the dissolving of solid metals under 
turbine blade conditions into the alkali liquid ^ 7 ) 
metals. There are values for Fe dissolving in Na 
and 304 55 dissolving in Lr ', as illustrated in 
Figure 1.2-25 for low velocity pipe flow kind of 
conditions but their appl icability to turbine blade 
dissolution is undemonstrated. However, in the dis- 
solution examinations reported in subsequent Section 
3.0, it is assumed that data for 304 SS dissolving in 
Li is applicable to the turbines examined(this is 
pure assumption). 


Figure 1.2-25 Temperature Dependence of a 

Using the saturation solubilities from Table 

1.2- 3, Equation 5 has been used to calculate the 
material thickness dissolve^ as a function of varia- 
tion in a for Fe, Ti, Zr, Cb, and Modissolving in 

] 400°F liquid potasslufn. The time of exposure to 
liquid potassium jsi^e Id constant at 10,000 hours. 

The results of fbis parametering are given in Figure 

1 . 2 - 26. 

• Mechanical Removal by Liquid Impingement 

The CEGB has run experiments and published 
data(3l,32) on fh e rates of removal of material by 
repetitive impacts of water drops on several steam 
turbine blading materials. This information has been 
analyzed and some simple correlations formed. The 
first set of correlations does not include the physical 
properties of the impinging drop fluid or of the im- 
pacted metal as variables. It may be used in the ex- 
amination or prediction of erosion in steam turbines. 
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Figure 1,2-2 6 Parametric Study of the Dissolution 
of Metals in Liquid Potassium 

provided, of course, the blade material or erosion 
shields are made from one of the materials reported 
upon by the CEGB. The second set of correlations 
attempts a bioader interpretation of the CEGB steam 
turbine materials erosion data by factoring into the 
resulting correlations physical properties of fluid 
and metal. This is done through the use of a hypo- 
thetical mechanical erosion damage model. Neither 
the damage model or the resulting correlations have 
been checked experimentally at this time. Calcu- 
lations relating to mechanical erosion of potassium, 
cesiurrv and mercury turbine blades were carried out 
using this second set of correlations based on the 
hypothetical damage model. A brief discussion of 
the resulting correlations follows: The study resulting 
in the correlations is covered in depth in Sections 
3, 1 and 3. 3 of this report, WANL-TME-1977. 

Neglecting fluid and metal properties, erosion 
rates are still a function of perhaps 11 or 1 2 indepen- 
dent variables. However, only three of these seem 
to be of first order importance, with respect to steam 
turbine erosion. These are (l) velocity of impact, 

(2) angle of impact, and (3) impacting drop size. 


One of the greatest difficulties in interpreting 
and correlating erosion test data is not the multipli- 
city of the independent variables, but the identifica- 
tion of the dependent variable(s) for characterizing 
erosion. All would be well if, under given conditions, 
erosion proceeded at a constant rate and could be 
unmistakably characterized by a uniform slope of 
cumulative weight loss versus time curve. Since 
erosion rates are not constant with time, erosion 
can be only approximately characterized by a simp- 
lified time independent approach. 

The most accepted view is that the first stage in 
erosion shows little or no weight loss and represents 
plastic deformation of the surface and initiation of 
fatigue cracks. This stage is followed by a second 
stage in which material loss appears and increases 
rapidly with time. This second stage merges into a 
third stage in which the rate of weight loss is at a 
maximum and relatively uniform over a period of 
time. This, in turn, merges into a later stage (or 
stages) in which the erosion rate diminishes and can 
or cannot tend toward another uniform value. What- 
ever the precise cause of this decrease in erosion 
rate may be, it is usually associated with rather 
general and severe damage to the surface, which 
through geometrical effects alone may result in an 
effective alteration of the impingement conditions. 

It is assumed that the uniform rate of the 
third stage is the most meaningful in predicting the 
total erosion in the steam turbine. This assumes 
that the bulk of the erosion of the blades takes place 
during this third stage. The time periods of the first 
and second stages are short compared with the total 
operating time. Turbine designs which demonstrate 
severe enough erosion rates in the third stage to 
become fourth stage terminal cases will suffer from 
a lack of customer interest and disappear. In any 
case, from a design point of view, using a third 
stage rate is a conservative assumption. 


( 21 ) 

CEGB has measured the erosion from 
samples of Stellite 6 and 6B (an erosion shield 
material often used in steam turbines) subject to 
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multiple stage of erosion rates for these Stellites and 
other steam turbine materials in the form: 


AW 

m 

AW 


w 


= k (V - V ) n sec 9 
n cd 


( 6 ) 


where: 


AW 
m_ 

AW 

w 


is the mass of material removed per 
unit mass of impinging water 


V is the component normal to the 
n impacted surface of velocity of 

impact 

V , is a critical or threshold velocity 
c below which erosion is negligible 

9 is the angle between the impact 

velocity vector and the normal to the 
surface 


k, n are empirical constants 

CEGB data ^ for Stellite 6 and 6B are 
plotted in Figure 1.2-27. The sec 9 correction is 
ignored because the angles of impact at which the 
data were taken were always within 30 degrees of 
the normal to the surface. The correlation of 
Figure 1.2-28 thus gives the erosion in terms of two 
out of three of the independent variables of primary 
importance. 

A correlation for the third independent 
variable, drop size, is also derived from CEGB data. 
This correlation uses the observation that the 
threshold velocity of normal impact below which 
erosion is negligible appears to be a regular function 
of drop size. 

Assume that: 


v cd" 




Figure 1.2-27 Stellite Erosion Rates - Data from 
CEGEfc Reduced Normal Velocity , 

(V - V ,) 

m cd 


The data of Figure 1.2-28 were taken using 
a stainless steel. Since there is insufficient spread 
to attempt a similar correlation in drop sizes In the 
data reported for the Stellites, it is assumed that 
the form for the Stellites would be approximately 
the same as for stainless steel with a different 
empirical constant reJoting the proportionality 

between V , and D~ ' . This yields the expression 
cd 


where: 

D = drop diameter, ft 


yTT 55/d 


where D is the diameter of the impinging drops. As 
shown in Figure 1.2-28, the correlations are good. 


cd 


= threshold velocity, ft/sec 
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REDUCED VELOCITY "(v V cd) “(n/SEcJ 


Figure 1.2-28 Correlation of CEGB Data by use of 
"Critical Velocity" 


The basis of the model is hydrodynamic. It 
assumes that in multiple impact tests of the type 
reported by the CEGB (and in turbines subject to 
multiple impact damage) that the impacted material 
is covered by a thin liquid layer. It presumes that 
this layer accounts for the changes in threshold 
velocity that cause erosion (on a given structural 
material) observed as a function of impacting drop 
diameter and accounts for the increases in rate of 
material removal with an increase in velocity 
above a threshold velocity. The liquid layer may 
accomplish this through the protective nature of a 
film overlaying the surface and/or by providing a 
lubricated surface whereby the liquid outflow from 
the impact can occur more readily. This latter 
action will allow an earlier release of the impact 
pressure on a wet surface than on a dry surface. 

The model treats the eroded material as a black box 
characterized by its Vickers Hardness, but does not 
answer the question as to why, relative to their 
Vickers Hardness, cobalt and titanium base alloys are 
generally more erosion resistant than iron or nickel 
base alloys, and these in turn are more resistant than 
cemented carbide$.(33) The erosion rates used here 
are the maximum rates of erosion observed in what 
is normally called the third stage of erosion when 
erosion is depicted as a four-stage process. 

The equations developed are as follows: 


The foregoing expression used in conjunction 
with Figure 1.2-27 is then arithmetically sufficient 
to calculate material removal rates from Stellite 
6B in steam turbines, if the states of the impacting 
fluid are known. 



To our knowledge there are no data giving 
structural material removal rates by repetitive 
impact of drops of alkali metals or mercury that are 
quantitatively useful in terms of the impingement 
of stator-collected liquid on the rotor blades of 
metal vapor turbines. Therefore, correlating functions 
of the CEGB steam-water data have been extended 3 mD 

to include the physical properties of liquids and a 5 

structural material strength by use of a hypothetical * * ! 

impact and damage model. 


For the particular CEGB apparatus the correlating 
film thickness 5 is given by: 
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where 


C 

o 

D 

s 


D 

m 

m 

m 

U 

n 


U 

w 



S 


6 


f 




p 

m 


H 


is the acoustic velocity in undisturbed 
drop liquid - ft/sec 

is the effective diameter of the 
erosion sample, assumed equal to 
blade height for small space turbines 
examined - ft 

is the impinging drop diameter - ft 

is the mass material eroded - slugs 

is the mass of liquid impinged - slugs 

is the normal velocity of drop impact - 
ft/sec 

is the blade or erosion sample average 
peripheral velocity - ft/sec 

is the threshold velocity of normal 
impact to cause erosion - ft/sec 

is the material hardness as measured 
by the Vicker* $ Diamond Point 
method, (Note: Vicker* s Hardness, 
VPN or DPN, is normally given in 
kg/mm 2 . For use in these equations 
it should be converted to the system 
of units being used. In the case of 
Figure 1,2-29, the units are P in 
slugs/ft^, C in ft/sec, 5 in ft, d 
in ft, U, in ft/sec, and VPN in 
kg/ mm^T| 

is the depth of the liquid layer over 
the eroded material - ft 

is the effectiveness of impingement 
process - dimensionless 

is the density of the undisturbed 
liquid - slugs/ft 

is the density of the eroded material 
prior to erosion - slugs/ft^ 

is the viscosity of the undisturbed 
liquid - Ib-sec/ft 


( 32 ) 

Based on the CEGB da ta v for iron and 

nickel base alloys, * - 0,45; for cobalt base alloys 
of the stellite type 4 ~ 0.12, The threshold velocity 
correlation for the same materials is given in Figure 
1,2-29, 



Figure 1,2-29 Threshold Velocity Correlation 


1.3 RESULTS OF SEVERAL TURBINE EROSION 
ANALYSES 

1,3.1 Comparative Erosion Potential of NAS5-250 
I Cesium Turbine and Potassium Turbine 
Conceptual Designs 

The two wet vapor turbine conceptual designs 
were originally created under contract NAS5-256. 
These turbines are (1) a two-stage turbine for cesium 
working fluid and (2) a six-stage turbine for 
potassium working fluid. Both turbines were designed 
to produce about 1 MW shaft output at 24, 000 rpm 
when exhausting to a 1420°F temperature condenser. 
Discussion of the original design criteria and design 
implementation is in Reference 3, Cross-sectional 
views of the turbines are shown in Figures 1.2-5 
and 1.2-6; and information on design operating 
conditions is given in Paragraph 1,2.3. The com- 
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parative erosion analysis is confined to the last 
rotors of the two turbines since vapor moisture 
content is highest at the back end of the turbines. 


1. 3.1.1 Potential for Mechanical Removal 
from Last Rotor Blades 

The conditions of Impact on the last rotors 
were estimated by the methods outlined in Section 
1.2.0, The results of these various fluid-dynamic 
calculations for the two turbines are given in 
Appendix 1 C. 

To use the Section 1. 2.4.5 correlation of 
CEGB material removal data, the thickness of the 
liquid films on the nose and leading edges of the 
rotor blades must be estimated. Undoubtedly, 
these films of liquid are not uniform over the surface 
of the region of maximum impingement but vary from 
essentially a residual film thickness up to rivulets. 

For purposes of these calculations. It is assumed 
that the film is essentially a residual film. (This is 
a conservative assumption since the thinner the 
film, the lower the threshold velocity for mechanical 
material remove I.) This is the basis of the film 
thickness calculation used in establishing the 
correlation of the CEGB data. By analogy with the 
correlation calculation 



where 

h is the blade height from hub to tip— 

ft 

U Is the blade tip velocity - ft/sec 

and 

p arid 8 are as previously defined. 

For the turbines examined the film flow using 
the thicknesses calculated from the foregoing equa- 
tion is less than 20 percent of the total flow rate 
of impacting moisture. Table 1.3-1 gives the 
threshold velocities and film thicknesses calculated 


for the potassium turbine sixth rotor blade tips and 
the cesium turbine second rotor blade tips. It Is 
assumed that the material of the blades has a VPN - 
260. This is a characteristic value for TZM, which 
is often mentioned as a candidate structural material 
for alkali metal vapor turbine blades. The values 
are for the drops of maximum diameter calculated to 
hit these rotors. Also given are the expected 
maximum impact velocities of these drops with the 
rotor blades. 


TABLE 1.3-1 

EROSION THRESHOLD VELOCITIES 



Sixth Rotor 

Second Rotor 


Potaesium Turbine 

Ce*ium Turbine 

Drop Dla mater, micron 

100. 

5. 

Film Thickness, micron 
Threshold Velocity, ft/sec 

2.9 

1.95 

1400. 

>4000. 

Maximum Normal Impact Velocity, ft/*ec 

800. 

338. 


From Table 1.3-2, it can be seen that 
for both turbines the calculated threshold velocity 
to cause mechanical damage is substantially above 
the estimated maximum normal impact velocities of 
the largest drops. Therefore, it is concluded that 
mechanical erosion damage to the rotor blades of 
these turbines is not likely to be a problem. The 
margin for error in this statement is considerably 
greater for the cesium turbine than it is for the 
potassium turbine. 

TABLE 1.3-2 

LAST ROTOR BLADES DISSOLUTION 
IN A POTASSIUM AND A CESIUM TURBINE 



NAS 5-250 

Potassium Turbin. 
Sixth Rotor 

NAS 5-250 
Cerium Turbin. 
Second Rotor 

Bulk Fluid Temperature - °K 

1060°K 

104 5°K 

Solution Rate C emit an | (a) - (cfi/»c) 

i.i no' 4 ) 

0.95 (I0" 4 > 

Deposition Rot* on Rotor Blade Noiet {faa)-gm/c m^/Wc 

0.079 

0.098 

Rotor Blade Material 

TZM 

TZM 

Average Solubility of T! and Zr, ppm 

63. 

63. 

Volume Fraction Ti & Zr (k) 

0,0124 

0,0124 

Density of Liquid - gnv^em^ 

0.658 

1.415 

k a \ -fln/en^/sec 

9(10" 7 ) 

1.67(10**) 

{ (bated on Ti A Zr) mill/1000 hour 

9.6 

B.5 

Average Solubility of Mo, ppm 

0.2 

0.2 

Volume fraction Mo (k) 

0.987 

0.987 

R a \ - pm/cm 2 /,ec 

7.1 (10‘ 5 ) 

1.33 (10 -4 ) 

6 (bated on Mo) mili/'OOO hewr 

0.03 

0.027 
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1. 3.1.2 Potential for Rotor Blade Dissolution 

The chemical dissolution of material from 
the last rotor blades of the two NAS5-250 turbines 
has been calculated using Equation 4 and Figure 
1.2-25 of Section 1. 2.4.5. This method assumes 
that the rate of material loss is controlled by the 
rate at which material can cross the solid-liquid 
interface and that if selective leaching of the 
more soluble olloy constituents occurs, erosion 
surface regression will be at the rate set by selective 
leaching along grain boundaries* Other assumptions 
are (1) blade material is TZM, (2) the dissolution rate 
constant, a, is the same as that of 304SS into, 
lithium as given by Figure 1*2-25 for both cesium 
and potassium, and (3) the solubility of the alloy 
constituents is the same in cesium as potassium* 
Substantiation of these assumptions has not been 
demonstrated. 

The results of these calculations are shown 
in Table 1.3-2. In this table there are two sets of 
thickness removal (8 ) values. The first set assumes 
that the soluble trace constituents, Ti and Zr, leach 
preferentially at grain boundaries, and the weakened 
structure resulting is immediately broken off by the 
impinging liquid to the depth of trace element re- 
moval. The second set assumes that the trace elements 
are held in place by the principal constituent 
molybdenum, and that the rate of surface regression 
is controlled by the rate of dissolution of molybdenum. 
The 300 fold difference be tween 6 values for the two 
sets is unfortunately indicative of the uncertainty in 
absolute dissolution rates in potassium or cesium 
turbines on a calculation basis. 


1 .3.2 Erosion Trends in Central Station Steam Turbine s 

The low pressure ends of present day centra! 
station steam turbines are designed so that some stator 
discharged drops impact the rotor blades near the 
tips at velocities sufficient to cause erosion damage. 
This is particularly true of the last rotor blades. 

There is considerable economic incentive to use 
higher and higher tip speeds in these low pressure 
ends. For this reason it has been of interest to 
estimate the probable change of erosion in central 
station turbines last rotor blades with increase in tip 
speed. 


The results of such an investigation are shown 
in Figures 1,3-1 andl.3-2. This is a generalized 
investigation using a stylized turbine and is not 
intended as design information. To produce these 
two curves, estimates of moisture collection, drop 
diameters, and impact velocities of the drops hitting 



Figure 1.3-1 Maximum Erosion Velocities at Last V n»r? 
Rotor Blades of Central Station Steam Turbines. 



Figure 1.3-2 Damaging Moisture Impact Rates on 
Noses of Last Rotor Blades of Central Station 
Steam T urbi nes 
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the last rotor blades were made using the methods of 
Section 1.2* In addition, it has been assumed that 
the threshold velocity for stage 3 erosion moves in a 
regular way with drop diameter and film thickness as 
correlated in Section 1, 2.4.5, even though the abso- 
lute velocities of drop impingement in the postulated 
turbines are substantially higher than in the CEGB 
tests and the impinging drops are on the whole 
substantially smaller in diameter. 

Figure 1.3-1 is a plot of maximum erosion 
velocity versus last rotor tip speed with parameters 
of the spacing between stator and rotor along the 
path of the vapor flow. The turbines are all designed 
to have a mean diameter ratio of stator spouting 
velocity to a rotor blade speed of 1.0. The maximum 
erosion velocity is defined as the maximum normal 
impact velocity of the maximum diameter drop dis- 
charged from the stators minus the calculated stage 
3 erosion threshold velocity for the maximum diameter 
drop. 

Figure 1,3-2 is a plot of damaging moisture 
impact rate per unit of blade length versus last rotor 
tip speed with parameters of the bulk flow moisture 
level at the exit of the last stator. The damaging 
moisture is that fraction of the stator collected and 
discharged moisture contained in drops of sufficient 
diameter to have a calculated stage 3 threshold 
velocity below the normal impact velocity of these 
drops on the rotor blade at the tip. Also, it is 
assumed that only that moisture directly collected by 
the stator row is available for discharge from the 
stators. All moisture collected by the upstream rows 
of the turbine has been removed at the moisture 
removal parts prior to the inlet of the last stator row. 

In these two curves are plotted three points 
representing actual steam turbines in service. 

While these are actual turbines, the points are still 
calculations and not measurements. These turbines 
are not identical to the stylized study turbines but 
are close enough for discussion purposes. All three 
turbines experience an acceptable level of last 
rotor blade erosion damage. The field reports on 
these turbines are qualitative in nature. It appears 
that Toledo Bayshore No, 3 has the lowest erosion 
rates of the three. Probably the Rowe Yankee 
Atomic Turbine has the highest rates of the three. 

This is consistent with Figures 1.3-1 and 1.3-2. 


Toledo BayshoreNo. 2 and No. 3 turbines have sub- 
stantially lower damaging moisture impact rates than 
does Rowe Yankee Atomic. This should be more than 
enough to compensate for the higher maximum erosion 
velocities calculated for Toledo Bayshore No, 2 and 
No. 3 versus Rowe Yankee Atomic. A reduction in 
erosion rate between Toledo Bayshore No. 2 and No. 3 
can be accounted for by a decrease in maximum 
erosion velocity through greater stator to rotor spacing 
along the flow path direction. 

It can be said, on the basis of Figures 1.3-1 
and 1.3-2, that if very wet vapor turbines for nucbar 
power plants of the Yankee Atomic type are to 
operate at last rotor blade tip speeds of the order of 
2000 ft/sec that: (1) the flow path spacing between 
last stator and rotor will have to be increased sub- 
stantially, or (2) almost all the the moisture directly 
collected on the last stator blades will have to be 
removed before it can discharge into the path of the 
rotor blade tips, or (3) a more erosion resistant 
material than Stellite 6B will have to be employed, 
or (4) some way of providing better atomization of 
stator discharged liquid will have to be found. 


Erosion Potential of Sunflower Mercur 


The Sunflower turbine is a small mercury vapor 
turbine developed by TRW for NASA as a part of the 
Sunflower space power plant. A brief tabulation of 
design point parameters for the Sunflower turbine is 
given in Section 1.2.3. 

In the overall study, the Sunflower turbine 
examination was the most interesting of all. The 
model of erosion created during the study is largely 
based on experimental information on the behavior of 
water and water vapor in apparatus of appropriate 
size for large central station steam turbines. The 
Sunflower turbine operating experience afforded an 
opportunity to check the reasonableness of the model 
in terms of a very tiny turbine operated on a vapor and 
liquid with physical properties quite different from 
those of water. 
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The most interesting observation made during 
the Sunflower analysis arose out of the size of the 
turbine. The nominal stator to rotor axial spacing in 
this turbine Is only 0.6 mm (or 2mm along the path 
of flight of the stator discharged liquid). In addition 
the axial spacing tolerance band for these turbines 
is + 0.3 mm, or from turbine to turbine the axial 
spacing could vary from 0.3 mm to 0.9 mm. From 
the analysis this is a significant variation. As 
illustrated in Figure 1.2-18 at the nominal axial 
spacing of 0.6 mm, there is not, on a calculated 
basis, sufficient time for all the third stator discharged 
primary drops that are unstable (those >90 microns) 
to breakup before reaching the rotor inlet plane. 

If the axial spacing is reduced to 0.3 mm (0.5 referred 
disruption distance) the maximum diameter drop 
impacting the third rotor will more than double in 
size. 

As shown in Figure 1.2-18, at the nominal 
0.6 mm axial spacing all drops with diameters greater 
than about 120 microns will break up into small drops. 
An erosion threshold velocity calculation for the 
Sunflower last (third) rotor blade tips has been carried 
out using this 120 micron drop diameter. The calcula- 
tion used the threshold velocity correlation of Figure 
1.2-28. The presumed liquid film thickness at the 
rotor blade tips was calculated in the same manner 
as the erosion comparison of the NAS5-250 potassium 
and cesium turbine designs. 

The result is given in the following table and 
is compared, to the ADROP code calculated maximum 
normal impact velocity. The Sunflower rotor blade 
material is Ph 15-7 M A handbook value of hardness 
for this material has been used in the calculation. 


SUNFLOWER TURBINE MAXIMUM DIAMETER DROP 
EROSION THRESHOLD VELOCITY 


Maximum Drop Diameter, microns 

120. 

Film Thickness, microns 

3.9 

Threshold Velocity of Normal Impact 

5320. 

(to cause erosion, ) cn/sec; VPN = 500 (RC = 48) 


Maximum Normal Impact Velocity, crr^/jec 

4980. 


As can be seen the threshold velocity and the 
maximum normal impact velocity of the largest and 
slowest (highest rotor impact velocity) drops predicted 
to impact the Sunflower turbine last stage rotor blades 
are about the same. This indicates that little erosion 
was to be expected in the Sunflower turbine if the axial 
spacing between stator and rotor was equal to or 
greater than the nominal value of 0.6 mm. 

The experimental observations with respect to 
erosion of the Sunflower turbines indicates a marginal 
situation in agreement with Jba model calculations. 

For example, a photograph ' of the third (last) 
rotor blades of Sunflower CSUI-3 indicates average 
erosion depths on the blades leading edges as great as 
1/64 inch and one blade appears to be cut back at the 
tip by as much as 1/32 inch. This was after only 



observation ' ' of the third stage rotor blades of 
Sunflower CSUI-3A after 4,329 hours of operation 
did not reveal erosion. 


TRW' ' ascribed the improvement between 
CSUI-3 and CSUI-3A to (1) reductions in boiler- 
carryover and reductions in inlet nozzle plenum 
condensation and (2) redesign of the third stage 
nozzle to reduce mismatch. The third stage nozzle 
exit area of CSUI-3 is reported to have been 25 
percent oversize. This oversize nozzle would lead 
to flow separation. In terms of the erosion model one 
can view this as an effective increase in the trailing 
edge thickness of the stator vanes. Because the nominal 
stator to rotor axial spacing in this turbine is only 
0.6 mm, only a few mils increase in the stator 
effective trailing edge thickness is required to cause 
a dead space extending to the rotor inlet. Such a 
dead space will prevent secondary breakup of stator 
discharged drops. As a result, drops considerably 
larger than the 120 microns predicted here would 
impact the rotor blades. In addition the rotor on 
CSUI-3 might have been as close to the stator as 
0,3 mm. Even without flow separation this tight 
spacing would have largely suppressed the secondary 
atomization process. 

It seems possible that if the axial spacing had 
been a millimeter longer, the erosion of the CSUI-3 
third rotor blades could have been as negligible as 
it was on CSUI-3A. 
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1.4 CONCLUSIONS AND RECOMMENDATIONS 

An analytical model has been constructed that 
follows, step-by-step, the history of the condensation 
collection, movement, impingement, and material 
removal by moisture in wet vapor turbines. The 
equations of the model are sufficiently detailed to 
allow calculation of numerical values of the erosion 
of turbine rotor blades. 

The model has been used to examine the 
erosion in steam, mercury, and potassium turbines 
on which there is operating experience. With respect 
to steam and mercury turbines, where the primary 
mechanism of material removal is mechanical, the 
estimated erosion can be considered to be in agreement 
with observed erosion. For steam and mercury turbines, 
the overall model appears to be adequate for at least 
order of magnitude turbine erosion estimation in 
absolute terms and to be quite accurate where relative 
comparisons between turbines are concerned. With 
respect to potassium turbines, where it appears likely 
that the primary mechanism of material removal is 
chemical dissolution, the material removal calculation 
step in the erosion model is uncertain by, at least, 
two orders of magnitude. Unfortunately, 
experimental results from operation of different 
potassium turbines are equally ambiguous. 

Cesium vapor turbines will be less prone than 
potassium vapor turbines to material removal by the 
mechanical aspects of impingement erosion. However, 
in neither cesium nor potassium turbines should the 
purely mechanical aspects be of any great concern 
provided the liquid flowing along the turbine* s casings 
is removed periodically. There should be little 
difference in blade erosion by chemical dissolution 
between cesium and potassium turbines designed for 
equivalent duty. 


Three general rules in wet vapor turbine 
design that should be followed to minimize blade 
erosion are: (1) the turbine aerodynamic design 
should give well ordered flow with no gross separation 
in any of the turbine passages; even small local 
separations such as those associated with trailing edges 
of blades should be minimized, (2) the spacing 
between the stator and rotor rows of a turbine must 
be large enough to permit the complete atomization 
of stator discharged liquid, and (3) build-up of 
liquid flowing along the turbine casing should be 
minimized by periodic removal of this liquid. 


It is recommended that further experiments 
in atomization of liquids from turbine stators be 
conducted. These experiments should be aimed at 
characterizing the total sprays so produced rather 
than in an examination of the detail processes as 
such. 


It is recommended that additional experiments 
on material removal rates by liquid drop impact be 
done. The experimental information should be 
obtained under widely varying but carefully controlled 
and accurately reported velocities, angle of impinge- 
ment, liquid and target temperatures, and impinging 
drop diameters for selected candidate turbine blade 
materials and comparison working fluids. Tests using 
the alkali liquid metals as the inpinging fluid are 
particularly recommended. These investigations 
should be more oriented toward obtaining empirical 
engineering information of quantitative use to the 
turbine designer, rather than to a fundamental under- 
standing of the complex material removal processes. 
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APPENDIX 1A 


ROW-BY-ROW DESIGN CHARACTERISTICS OF LARGE STEAM TURBINES USED AS EXAMPLES 
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feaynoidi Nwmbar bcnad on »K# Mod* chord and exit velocity 



TABLE 1A-2 



TOLEDO EDISON BAYSHORE NUMBER 3 STEAM TURBINE LOW PRESSURE END 


MYSHORE UNIT NO. 3 
FULL LOAD 

MEAN DIAMETER CALCULATION 



4th 

ROTOR 

6th 

STATOR 

5th 

ROTOR 

5th 

STATOR 

4th 

ROTOR 

4th 

STATOR 

3rd 

ROTOR 

3rd 

STATOR 

2nd 

ROTOR 

2nd 

STATOR 

Wt 

rotor 

lit 

STATOR 

INLET 

ROW no. 

TIP DIAMETER 

EFFECTIVE MEAN DIAMETER 
AVERAGE GAUGING 

114.00 
65. 526 
46.4 

109,828 
B4. 170 
29,44 

75.354 

33.60 

73.663 

24.2 

68. 578 
33.0 

67.080 

32.6 

66.099 

31.0 

65.134 

30.2 

64.650 

29.5 

63, 973 
28.5 

63.668 

26.6 

63.293 

25,2 


(percent) 

EXIT FUOW ANGLE 

33°06' 
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19° 38' 

14° 0* 

19° 16’ 

19° 02' 

18° 04’ 

17° 35' 

17° 09' 

16° 34’ 

15° 26’ 

14° 30* 


(d*gr**) 

EXIT STATIC PRESS, 

0. 491 

1.457 

2.632 

4.468 

7.386 

10.430 

14. 168 

16,645 

24.140 

30.792 

39. 128 

48.596 

60.097 

(pilo) 

MOISTURE CONTENT 
JEMPEIATURE 

0.0886 

79 

0. 0477 
114.7 

0.241 

136.4 

0.0013 

157.5 

0.0 

227,9 

0.0 

282.6 

0.0 

334.7 

0.0 
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0.0 

431.6 

0.0 

479.3 

0,0 

528.2 

0.0 

574.3 

0.0 

621.6 

specifk: \olume 

597.9 

222.8 

130.9 

81.6 

55.1 

42.1 

33.2 

26.8 

21.8 

18.0 

14.9 

12.57 
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1708.2 

1376,2 

1335.4 

1346.9 
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1108. 1 

1105.6 

1078. 5 

1056.9 


(Fp») 

MEAN WHEEL SPEED 

1343.46 

1322.16 

1183.7 

1157.1 

1077.2 

1053.7 

1038.3 

1023.1 

1015,5 

1004.9 

1000.1 

994.2 


(W 














TIP WHEEL SPEED 

1792 













M 

INLET FLOW ANGLE 
INLET VELOCITY NEXT ROW 

91° 

936 

80. 6° 
407 

65.3° 

453 

82.8° 1 
361 
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25,658 

15.474 

13.663 

8. 538 
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6.040 
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4.591 
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3.609 
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LEADING EDGE RADIUS 

0.075 

0.125 

0.075 

0.075 










(Inch**) 














EXIT EDGE RADIUS 

0,000 

0.030 

0.0225 

0.025 










(Inch**) 














HADE WIDTH 

3.50 

5.00 

2.414 

3.560 










(Inch**) 














axial space 

2.5 













(Inch**) 














number of blades per row 

120 

78 

120 

80 










MAXIMUM THICKNESS 

0.377 

0.052 

0. 423 

0. 585 










(Inch**) 














CORD LENGTH 

4.395 



5.560 











(Inch**) 
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APPENDIX 1C 


RESULTS OF DETAILED FLUID-DYNAMIC ANALYSIS 
OF BLADE PASSAGE FLOWS OF NASS- 250 POTASSIUM 
AND CESIUM TURBINES 


1.0 CONDENSATION 

1.1 Potassium Turbine 


The results of the condensation performance 
calculations for the six-stage potassium turbine are 
shown in Table 1C-T, In this case the inlet vapor is 
superheated and remains superheated through the 
first stator row. The Wilson point occurs just before 
the exit of the third rotor blade row at approximately 
7.3 percent moisture content,, The expansion rate 
1 do • 

p = P at the Wilson point is approximately 


5000/sec. P is pressure and t is time. The expansion 
process approaches full thermodynamic equilibrium 
in the fourth stator row and remains in equilibrium 
through the fifth stator. These calculations were, 
therefore, terminated at the fifth stator row. 


The rapid expansion at the Wilson point 
produces relatively small droplet sizes as shown in 
Table 1C-2. The mean droplet radius at the exit of 
5-R and 6-S are estimated on the basis of equilibrium 
condensation to be 0,238 and 0,243 microns, respec- 
tively. In this turbine there is no appreciable 
difference in mass flow rate between the condensing 
and equilibrium flow calculations. The condensation 
calculation is sensitive to the values of liquid surface 
tension used. A calculation for this turbine, using a 
25 percent increase in surface tension values, shifted 
the point of initial condensation to the fifth rotor row. 


The results of the present calculations can be 
compared in a qualitative manner with the results of 
Goldman and Nosek, in which saturated potassium 
vapor was expanded in a convergent-divergent nozzle. 
Although their results are somewhat inconclusive, it 
appears that condensation occurred when the ratio of 
pressure to initial saturation pressure was between 
0.31 and 0.33 at an axial distance of about 3 inches 
from the nozzle inlet. In the present calculations, 
condensation was predicted at a pressure to initial 
saturation pressure ratio of 0.4. The axial distance 
from the inlet was about 3.5 inches. The somewhat 
earlier condensation, in terms of pressure ratio, in 
the turbine as compared to the supersonic nozzle is 
to be expected because of the lower expansion rate. 

The droplet size results can be compared witf 
those obtained by Linhardt.^S) His ana lysis predicts 
a droplet radius of 0.05 microns for 10 percent exit 
moisture in his test No. 4. Test Numbers 2, 3, and 
4 had the same stagnation condition and the same 
nozzle except for length. With critical flow in the 
nozzle, the conditions at the condensation point 
would be unchanged due to the additional length of 
the nozzle. Thus, for the same conditions at the 
Wilson point, the droplet radius at the nozzle exit 
would be expected to be proportional to (y 
where y e is the moisture fraction at the nozzle exit. 
Viewed in this way, the results of Linhardt* s Test 
No. 3 corrected to 10 percent moisture would give a 
radius of 0.06 micron; Test No. 2 would give a 0.26 


TABLE 1C-1 


TABLE 1C-2 


CONDENSATION RESULTS FOR SIX -STAGE 
POTASSIUM TURBINE 



Static 

Prejiure 

(Ib/in^) 

Static 

Temperature 

<°R> 

Axial 

Velocity 

(ft/iec) 

Equilibrium 

Moiiture 

(Ib/lb) 

Condenjed 

Moijture 

(Ib/lb) 

Inlet 

171 

. 2543 

358 

Superheofed 


1 - S 

144 

2442 

404 

Superheated 


1 -R 

121.5 

2348 

417 

0.014 

0 

2 -S 

102.7 

2261 

415 

0.029 

0 

2 -R 

86.2 

2176 

413 

0.046 

0 

3 -S 

72.2 

2093 

417 

0.058 

0 

3 -R 

59.0 

2017 

409 

0.073 

0.001 

A - S 

47.0 

2093 

443 

0.086 

0.079 

A -R 

36.8 

2037 

460 

0. 105 

0. 100 

5 -$* 

28.5 

1977 

466 

0.125 

0. 120 


FOG PARTICLE SIZE DISTRIBUTION FOR SIX- 
STAGE POTASSIUM TURBINE 


Group 

Number 

(drops/lb) 


Rad'ui 

{micron*) 


3 -R 

4 -5 

4 - R 

~S~rr 

l 

2.7 , 

0. 186 

0.297 

0.31 

0. 32 

2 

5.2 X 10 I 

0. 173 

0. 288 

0.30 

0.31 

3 

1.6 x 10 12 

0. 157 

0. 277 

0.29 

0. 30 

4 

3.7 x lo] 2 

0. 142 

0. 267 

0.28 

0. 29 

5 

7-3 x 10 2 

0. 127 

0. 257 

0. 27 

0. 28 

6 

2.2 x 10 13 

o. no 

0. 246 

0.26 

0.27 

7 

5.8 x 10» 

0.089 

0.235 

0.25 

0.26 

B 

1.5 x 10 14 

0.066 

0. 222 

0. 236 

0.247 

9 

3.9 x 10 14 

0. 040 

0.209 

0. 224 

0.235 

10 

1.3 x 10 15 

0.0015 

0. 189 

0. 206 

0.218 

Mean Radiu* 

0.065 

0. 200 

0.215 

0.229 
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N total = 1.92 (10 15 )/lb 


* Calculation! dliconftnued. 




micron radios. The present calculations fall between 
these limits, but again are not directly comparable 
due to differences in the expansion rate and initial 
conditions. 

1 s 2 Cesium Turbine 

The results of the condensation calculations 
for the cesium turbine are given in Tables 1C-3 and 
1C-4. The Wilson point occurs just before the exit 
of the first stator. The equivalent moisture at the 
Wilson point is approximately 0.046, and the expansion 
rate P is 1.9 x 10^/sec. 


TABLE 1C-3 

CONDENSATION RESULTS FOR CESIUM TURBINE 


It is seen that the drops are quite small due 
to the rapid expansion. The drop size is also rela- 
tively uniform and will become more uniform as the 
condensation proceeds. The thermodynamic 
description of the flow used resulted in critical flow 
occurring at approximately 1000 ft/sec, a slightly 
lower value than results for equilibrium flow. The 
mean droplet radii at the exit of 1-R and 2-S are 
estimated to 0.089 and 0.097 microns. 

2.0 AXISYMMETRIC FLOW DOWNSTREAM OF 

THE BLADE ROWS 

The fluid conditions such as pressure, temper- 
ature, density, velocity, and angle of flow with 
respect to blade height for the last or latter stages of 
the two turbines are given in Tables 1C-5 and 1C-6. 
Table 1C-5 covers the last stage of the two-stage 
cesium turbine. Table 1C-6 covers the fifth and 
sixth stages of the six-stage potassium turbine. 



f 2 

T 

Velocity 
Relative 
to Blode 

y e 

Equilibrium 

Moisture 

y 

Condensed 



(°F) 

(ft/tec) 

(Mb) 

Moisture 

Stagnation 

411. 

2440 

0 

200°F superheat 

— 

Static Inlet 

399. 

2415 

216,5 

177°F lupefheat 

0.021 

Exit 1 - S 

171.5 

1622 

1147. 

0,045 

0.024 Inch into 1 -R 

176. 

187B 

592 

0.043 

0.039 


TABLE 1C-4 


It will be noted in Table 1C— 5 that there is 
recompression in the second-stage rotor of the cesium 
turbine at the hub of the blade. The pressure level 
at the inlet to the rotor hub is 26.74 psia and 
increases to 34.99 psia at the exit. In the turbine 
erosion analysis, the flow disorder (flow separation 
at the trailing edge of the rotor blade at the hub) is 
of no concern since there are no stages downstream 
of the second stage in the cesium turbine. 


FOG PARTICLE DISTRIBUTION AT EXIT FROM 
1-S CESIUM TURBINE 



N 

(drops/lb|_ 

Drop Radius 
(microns) 

1 

3.4 x 10 3 

0.089 

2 

1.2 x I0 11 

0.087 

3 

3.6 x 10 !1 

0.085 

4 

1.7 x 10 11 

0.082 

5 

6.2 x 10 12 

0.079 

6 

1.9 x !0 13 

0.076 

7 

6.5 x 10 13 

0.072 

8 

2.1 x 10 14 

0.068 

9 

7.7 x 10 14 

0.063 

10 

4.5 x 10 15 

0.055 

n 

7.1 x !0 15 

0.048 


^totol * 1.27 x 10^/% 
Mean Radius = 0.052 micron 


However, this same recompression at the hub 
was present in the fifth stage of the original concep- 
tual design of the potassium turbine as set forth in 
Contract NAS 5-250. (This is not to be taken as a 
criticism of the work under Contract NAS 5-250. 

The designs were more than adequate as represen- 
tative descriptions of potassium and cesium turbines 
for the nuclear Rankine cycle power system studies 
conducted.) Since our calculations indicate that 
there will be collected moisture as early as the 
fourth stage of the potassium turbine, the original, 
design has been modified to increase the hub-to-tip 
ratios in the latter stages. This gives a slight fluid 
expansion at the hub, as will be noted in Table 1C-6. 
Elimination of flow separation in the fifth stage is 
necessary to protect the sixth stage from erosion 
difficulties. 
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TABLE 1C-5 

CESIUM TURBINE-FLUID PROPERTIES ALONG HEIGHT - SECOND STAGE 



# Dfachcrg* cHoroct«r Eitici of ooblodod a«Ial gcp b#rvoori itotor blad* IroHfng «4?»« 006 <©fcr blodo loading ©dp**. 


TABLE 1 C-6 

POTASSIUM TURBINE-FLUID PROPERTIES ALONG THE HEIGHT OF THE BLADE-FIFTH AND SIXTH STAGES 
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3.0 VAPOR BOUNDARY LAYER ON SURFACES 
OF BLADES 

Calculated values for the potassium turbine are 
shown in Table 1C -7 for the boundary layer thickness 
and form factor at the trailing edge of the sixth stator 
blade row, 3/4 blade height position. Values are 
also shown for the Reynolds No. based on chord length, 
the momentum thickness, the skin friction coefficient, 
and the shearing stress. These quantities are local 
blade surface values for the trailing edge position 
and are based on conventional turbulent boundary 
layer relationships. 

Similar calculations performed on the second 
stator blade row of the cesium turbine are tabulated 
in Table 1C-8. The Reynolds No. and shearing 
stress ( r ) are much higher in the cesium turbine due 
in large part to the high vapor density, roughly 
twelve times that in the back end of the potassium 
turbine. The low boundary layer thickness in the 
cesium turbine, approximately half the thickness in 
the potassium turbine, is associated with the high 
Reynolds Number 4. 

TABLE 1C-7 

POTASSIUM TURBINE-CALCULATED BOUNDARY LAYER 
PROPERTIES AT THE T RAILING-EDGE OF THE BLADE 

Sixth Sk>d« 

at 3/4 height potirlon 

Rr.uur* Sid. 

9/t 0.0009096 

H 1.300 

i*/l 0.001 IBS 

o/t 0/009066 

(it. ) 0. 006981 

a 6.666 

R „ 162. 

C f 0. 0063 

!pp*H 3.57 

* her * r f , V'l fa n = 2/TH-l); V,r/w or,d c f - 5 '2x0. 123 x 10 a689H * -0.268 

* P — 

2 

Here, t , 4* and & at* tha thiclatMi, dhplac.ni.nt tbickwu, and hill thichfWH of fh# 

bovodory loy.r at th* Neifing edge of th* Mod* ondl 5* th* projected chwd l.rvglh of th* bled*. 

4.0 DOWNSTREAM WAKES 

Calculated results for the sixth stator blade 
of the potassium turbine and for the second stator 
blade of the cesium turbine are shown In Tables 1C-9 
and 1C-10. As shown, the wake properties quickly 
change downstream of the trailing edge, where there 
is little change beyond 0,20x/£ . Note also that 
while the wake thickness (6) continues to increase 



TABLE 1C-8 

CESIUM TURBINE-CALCULATED BOUNDARY 
LAYER PROPERTIES 



T 


1 ,6* andior* th. momtnh/m ihTekwn, dhplawm.nl ihlcknM* of Hi# boundary kjy.r at th. 
trolling wig. of th* bfad., I h th« pro|.ct*d chord f.ngth of th» bled*. 

All voluw or. point v*lv*< for th# trolling adg* position; *. g . , I» th. local «ktrt friction 
cwfflclwrt at th* trolling adg* position. 

beyond 2x/l , the velocity within the wake, V(y), 
is nearly the same as that of the free stream since 


where 



Thus, the downstream flow is roughly axisymmetric 
from about 20 percent of the chord length distance 
downstream of the blade by this model of the process. 
The low wake thickness of the cesium turbine, about 
half that of the potassium turbine, is associated with 
the high vapor density, high Reynolds No., and low 
boundary layer thickness at the blade trailing edge. 

Wake calculation results are also shown in 
Figures 1C-1 through 1C-4 in slightly different form. 
These curves give the wake velocity with respect to 
the distance, and normal to the distance, along the 
streamline downstream of the blades. These curves 
are used to estimate the atomization and acceleration 
of the moisture particles in the interval (both time 
and distance) between the stator and rotor, To 
compensate for the finite trailing edge thickness in 
these calculations, the trailing edge wake is 
treated mathematically as a dead space 4,8 trailing 
edge thicknesses in length, joined ro a zero trailing 
edge thickness wake at a discontinuity and repre- 
sented by a vertical line on the curves. 
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TABLE 1C-9 


POTASSIUM TURBINE-RESULTS OF BLADE WAKE 
CALCULATION FOR SIXTH STATOR BLADE, 
3/4 BLADE HEIGHT POSITION 
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Figure 1C-2 Potassium Turbine Sixth Stator Wake 
Suction Side Velocity 


TABLE 1C- 10 


CESIUM TURBINE-RESULTS OF BLADE WAKE 
CALCULATION FOR SECOND STATOR 
BLADE, 3/4 BLADE HEIGHT POSITION 
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Figure 1C-3 Cesium Turbine Second Stator Wake 
Pressure Side Velocity 



Figure 1C-1 Potassium Sixth Stator Wake Pressure 
Side Velocity 
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Figure 1C-4 Cesium Turbine Second Stator Wake 
Suction Side Velocity 
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5„0 DEPOSITION OF MOISTURE ON THE 

SURFACE OF BLADES 

5.1 Inlet Edge Deposition 

The calculated portion of drops collected on 
the nose of the sixth stator blade row of the potassium 
turbine is given parametrical 1/ in Figure 1C-5. Two 
methods of calculation are used that do not agree. 

In the summary of collected moisture for the two 
turbines the curve used is that generated from 
Gyarmathy* s data/ 8 ) because his data gives reason- 
able agreement with steam turbine collection infor- 
mation presented by Smith, et al,^ ' 



Figure 105 Potassium Turbine Portion Collected on 
Nose of Sixth Stator Blade * ~ ' 3 


For a 0.48 micron radius fog particle, the 
NACA(34) curve gives. 2 percent collection on the 
inlet edge compared to 2.8 percent collection by the 
Gyarmathy curve. Also, by the NACA curve, fog 
particles of less than 0.2 micron radius are not 
collected. 

Similar calculations performed for the second 
stator blade of the cesium turbine are shown in Figure 
TC-6. Similar to the potassium turbine results, fog 
particles of less than 0.2 micron are not collected 
according to the NACA curve, but by the Gyarmathy 
curve T percent of the fog particles are collected for 
the 0.2 micron radius size. 

In the cesium calculation. Figure 1C-6, there 
is a greater difference with respect to the NACA 
curve and the Gyarmathy curve than in the potassium 
calculation. Figure 1C-5. This is due to the fact that 
the NACA data account for the change in Stokes* 

Law drag with Reynolds No. while the Gyarmathy 
curve does not. As the Reynolds No. is higher in the 
cesium turbine, a larger difference is shown by the 
curves. 



Figure 106 Cesium Turbine Portion Collected on 
Nose of Second Stator Blade 


5.2 Concave Surface Deposition 

The calculated results for concave surface 
deposition on the sixth stators of the potassium 
turbine are shown parametrically in Figure 1C-7, 
Similar results for the second stators of the cesium 
turbine are shown in Figure 1C-8. These figures 
give the portion of the moisture present in the bulk 
flow that is collected as a function of condensate 
particle radius. As shown by the curve sketches, 
the portion collected is specified by the inlet width 
of the band ( ( ), within which all particles impinge 
on the blade with respect to the blade pitch. The 
band width cannot exceed the space between blades 
(pitch minus inlet edge blockage) which accounts for 
the breaks in the curves. For equal condensate 
particle radii, a somewhat higher portion of moisture 
will be collected by the cesium turbine than by the 



Figure 107 Potassium Turbine Portion Collected on 
Concave Side Sixth Stator Blade 


5,3 Quantity of Damaging Moisture Impacting 
Lost Row Rotor Blades 

As a first approximation, it will be assumed 
that the only potentially damaging moisture that will 
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Figure 1C“8 Cesium Turbine Portion Collected on 
Concave Side of Second Stator Blade 

impact the last rotor blades of these turbines is that 
collected by the last stator. The calculated amount 

of moisture collected by the sixth stator blades and 
subsequently impacting the sixth rotor blades of the 
six-stage potassium turbine is given in Table 1C — 1 1 . 
Similar information is given for the last (second) 
stage of the cesium turbine in Table 1C-12. 

TABLE 1C-11 

SIX-STAGE POTASSIUM TURBINE - SIXTH 
STAGE MOISTURE INVENTORY 


Flow (Voppr Min liquid) 9100 kgAr 

Bull Moiiture Sixth Stator 14.3% 

Bull Molttore, Average Fog Particle Rodiut 0.24 micron 

Portion of Bulk Moiiture Collected, Sixth Stator 2.6% 

Collected Moiiture Impocting Sixth Rotor 34 kg/hr 

Average local Rate of Impact of Collected Moiiture 167 gm/cm/bt 

Average local Collected Moiiture Impact Rate/10,000 Houri 1670 kg/cm 


TABLE 1C- 12 

TWO-STAGE CESIUM TURBINE - SECOND 
STAGE MOISTURE INVENTORY 


Flow (Vopor Plui Liquid) 31,500 kg/hr 

Average Bull Moiiture, Second Stator 12.8% 

Bulk Moiiture, Average Fog Particle Radiui 0.093 micron 

Collected Moiiture Impact Rote, Second Stator 26.2 kg/hr 

Collected Moiiture Impact Rote 294 grr/cnrs/hr 

local Collected Moiiture Impact Rote/10,000 Hours 2940 Ig/cm 


It is useful to compare these results with those 
calculated for the Yankee Atomic Plant steam turbine, 
where the calculated average local moisture impactior 
rate per 10, 000 hours was 802 kg/cm for the last 
stage of the low pressure turbine. 


6.0 STATOR BLADES COLLECTED MOISTURE 

ATOMIZATION AND TRAJECTORIES 

The moisture potentially damaging to the 
rotor blades collects from the bulk stream, runs to 
the aft edge, departs this edge as primary drops, and 
is caught up in the wake of the stators where 
additional atomization takes place and acceleration is 
to a fraction of bulk stream velocity. 

6.1 Atomization 

The primary drops that have the best chance 
to survive the passage between stator and rotor are 
those deep in the suction side wake. Given in 
Table 1C— 1 3 are the time of flight, the initial Weber 
Number, tfie time to droplet destruction, and the 
mass mean diameter of the resulting secondary drops 
for a range of primary drops departing the second 
stator of the cesium turbine. Information about the 
primary drops leaving the sixth stage of the potassium 
turbine is given in Table 1C-14. 

It can be concluded from these results that no 
drops greater than 5 microns in diameter will reach 
the second rotor and most, if not all, of the drops 
will be under 3 microns in diameter. In the case of 
the potassium turbine a few drops reaching the sixth 
rotor could be as large as 100 microns in diameter. 

TABLE 1C— 13 

SECONDARY ATOMIZATION IN CESIUM TUR- 
BINE - SUCTION SIDE WAKE STREAMLINED 

AT YA = 0.01 SECOND STATOR 
o 


Primary Drop 
Diameter 
(microni) 

Time of 

Flight 

(piec) 

Weber 

Number 

(max.) 

Time to 

Complete Droplet 
Destruction 

Man Mean 
Diameter of 
Secondary Dropi 
Jnicroni) 

Remark* 

2 

43 

10 



No diKuption 

5 

55 

24 

1.3 

0.490 

» 

10 

67 

49 

2.5 

0.533 

Disruption 

25 

82 

122 

6.6 

0.600 


50 

99 

244 

13.0 

0.658 


100 

120 

488 

26.2 

0.721 


200 

148 

976 

52.2 

0.822 


300 

161 

1464 

78.4 

0.880 


400 (max) 

173 

1952 

104.6 

0.922 



However, most, if not all of the drops will be under 
60 microns in diameter. The average mass mean 
diameter drop calculated for the atomized liquid of 
the sixth stator of the potassium turbine is 40 microns. 
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TABLE 1C- 14 


SECONDARY ATOMIZATION IN POTASSIUM 
TURBINE - SUCTION SIDE WAKE STREAM- 
LINED YA q = SIXTH STATOR 


Tim* to 


Primary Drop 
Piqmater 
(microns) 

Tim* of 
Flight 
(si s*c) 

Weber 
Number 
(max. ) 

Complete Droplet 
Deduction 



10 

98 

2.2 

6.6 

20 

118 

4.4 

13. 

50 

149 

11.1 

32. 

75 

165 

13.2 

48. 

100 

179 

22.2 

64. 

200 

212 

44.4 

120 

400 (max) 

255 

88.4 

256 


Mom Mean 
Diameter of 
Secondary Drop* 

(micron*) Remark* 

— No disruption 


(?) 

(?) 


Dliruption 


* Y l» the distance measured from the wake centerline; u tk« width of tfr# woke. 


Figure 1C-9 shows maximum impact velocities 
of drops colliding with the nose of the blades of the 
sixth rotor of the six-stage potassium turbine for 
representative drop diameters of 25, 50, and 75 
microns. The impact velocities are plotted as a 
function of blade height fraction where the height 
fraction is 0 at the hub and 1.0 at the blade tips. 

As for the cesium turbine, somewhere on the nose 
these impacts are normal to the blade surface. In 
the potassium turbine, these maximum velocities 
occur for drops accelerated along the wake streamline 
at y/Y = 0.01 of the suction side of the sixth- 
stator wake. 


7.0 DROP IMPACT VELOCITIES RELATIVE TO 

THE ROTOR BLADES 

Table 1C-15 summarizes impingement results 
on the second stage rotor blades of the cesium turbine 
for drop diameters of 0, 2, and 5 microns. Two 
representative wake positions (Y/Y ) and blade 
heights were investigated for the suction and pressure 
sides of the second stators. The values given in 
Table 1C-15 are at the rotor inlet; V . is drop velocity 
relative to the preceding stators, anctW , is the 
velocity relative to the rotor blades. In mis turbine, 
the velocity W ,, somewhere on the radius of the 
rotor blade nose is a normal velocity of impact. As 
can be seen the maximum normal drop impact 
velocities are quite low and cover only a narrow 
range of velocities. This is because the drops are 
accelerated to a very substantial fraction of the 
stator discharge vapor velocities. 


TABLE 1C- 15 


SECOND STAGE ROTOR DROP IMPINGEMENT 
SUMMARY - TWO STAGE CESIUM TURBINE 


Drop Diameter 

Wak« Position YA 0 (microns) 

Suction 0.01 0 

2 
5 

Suction 0.2 0 

2 
5 


Pressure 0.01 


0 

2 

5 


Pressure 0. 2 


3/4 Blade Height 



w d (fp*^ 




685 

273 

665 

268 

560 

267 

796 

321 

780 

313 

665 

268 

753 

299 

740 

293 

625 

263 

822 

338 

810 

330 

700 

278 


Blade Tip 



w d M 

632 

296 

614 

300 

517 

338 

735 

294 

720 

292 

614 

300 

695 

291 

683 

291 

576 

311 

758 

299 

747 

296 

646 

293 


For comparison purposes the maximum impact 
velocities calculated for 400-micron diameter drops 
impacting the ninth rotor of the low pressure end of 
the Yankee Atomic Plant steam turbine are also 
shown in Figure 1C-9. A 400-micron diameter drop 
is about the largest expected to impact the ninth 
rotor of the Yankee turbine. As can be seen, the 
maximum drop diameters and impact velocities are 
much larger in the steam turbine than in either of 
the alkali metal vapor turbines. 



Figure 109 Maximum Impact Velocities on Six - 
Stage Potassium Turbine 
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SECTION 2 

FLUID -DYNAMIC COMPUTATIONAL PROCEDURES 


2. 1 BACKGROUND 

As reported elsewhere In this report, while 
erosion In wet vapor turbines takes place locally, 
the conditions leading to the erosion Involve the 
total thermodynamic and fluid-dynamic history of 
the working fluid from the time It enters the turbine. 
The many processes that require analysis are given, 
again, in block diagram form in Figure 2, 1-1. This 
Section 2 gives an account of the basis of analysis 
and analytical procedures used in examining the 
detail fluid-dynamic process leading to the erosion. 
The processes covered in this Section 2 are indicated 
in Figure 2. 1-1. 


r 


I- 

I 

L 





2.2 TURBINE PERFORMANCE WITH DETAILED 
HISTORY OF CONDENSATION* 

(NUDROP Condensation Code) 

2.2.1 Background 

The purpose of this condensation study is to 
analytically predict the condensation point in wet 
vapor turbines and to determine the drop size distri- 
bution, including effects of molecular association 
on the condensation and flow processes. The 
approach is similar to that first developed I by 
O swatltlsh'^, and improved by others. The ' 
method consists of simultaneous solution of the con- 
tinuity, energy, ‘momentum, and state equations 
written for the hjrbine geolnetry, 1 including a descrip- 
tion of nucleation and growth pr6c6$s&i to determine 
moisfur'e content and drop $ize. The present study 
provides the. thermodynamic description of the flow 
process by using the vlrial equation of state and 
enthalpy relations derived by Ewing, et'al. ' ' 

• . * • > i ! . • l i ) ; ; • i > 3 ' 

: The numerical solution is by an ALGOL 
computer code which has been used on a Burroughs 
B-5500 computer. - * ' r : ■ ; : 1 : 


2,2.2 Theory 

* • i * m : r i . ■ ' : ; a * i : 1 1 ; : 1 1 ; 

• Nucleation * ’ 1 ’ - 

The nucleation theory due to Katz, Salts- 
burg, and Reis$W is used to describe the nucleation 


* R. E. Kothmann, Supervisor, Power & Propulsion, 
Westinghouse Research Laboratories, Churchill 
Borough, Pa. 


Figure 2. 1-1 WANL Turbine Blade Erosion Model 
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The change in moisture due to growth of a 
particular group of drops is 


dy. _ 

ST ' 


4 ir 


' N . r7 
L ri i 


d r. 
i 

d z 


( 24 ) 


The total rate of change of moisture fraction, 
including surface condensation and atomized drops 
originating by surface condensation, is 



all ^oupc 




( 25 ) 


The liquid temperature is taken as the 
weighted average of the drop temperature of the 
various groups, or 



The energy equation includes the rate of 
change of liquid temperature. Rather than by diff- 
erentiating Eq„ 26, the rate of change is obtained 
from the present and previous values of liquid 
temperature obtained in the integration process. 

This approximation is justified since the moisture 
energy change is small compared to the total energy 
change. 


• State Equations 

. , (4, 7) . 

From the work of Ewing, et al, it 

appears that an accurate equation of state can be 
obtained either by use of the virial equation or by 
an association model. The virial equation of state 
was chosen since it is generally available for use in 
obtaining the thermodynamic properties of wet 
vapors. In the case of cesium and potassium the state 
equations (References 4 and 7) fit the experimental 
PVT data with an average deviation of + 0.26 per- 
cent. The virial equation of state has the form 


PV 

ITT 



( 27 ) 


where B, C, D and E are functions of temperature 
only. These functions have the form 

lo 9, 0 | B | = B 1 + 6 ^ + log 10 T, B <0 ( 28 ) 

,o 9l 0 C = C 1 +C / J + C 3 /t 


log 


10 


= D 1 + D^T, 0 <0 


( 30 ) 


and 


E = = Constant 


(31) 


where B , B_, C., Cy C- D ] and D ? are constants 
for a particular vapor. It is convenient to express 
the equation of state in terms of the compressibility, 
which gives 


Z C= 1 + V- 


c + D 
7 7 


E 

7 


( 32 ) 


• Property Equations 

The various physical and thermodynamic 
properties required in the flow and nucleatioh 
calculations are computed from the following 
equations. 

The saturation pressure equation developed 
in References 4 and 7 has the form 

log 10 p s = a, + °/T + a 3 iog 10 T (33) 

where QyQy and a^ are constants for a given metal 
vapor. By rewriting this equation for the saturation 
temperature corresponding to the vapor pressure P, 
subtracting the two equations and linearizing, the 
following approximate relation between supercooling, 
supersaturation pressure ratio, and temperature can be 
obtained: 

-aj 

a T = 2 

A o °3 + T log^e (34) 

Surface tension of the liquid is correlated by 
an equation of the form; 

/ T \ 1.25 (35) 
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The liquid density at saturation pressure Is 
correlated in References 4 and 7 by 

' L « f 0 - (T-460) - > 2 (T-460) 2 (36) 

The enthalpy of the vapor derived from the 
virial equation of state in References 4 and 7 is 


R T 

k° o 

\ " TXT~ 


(-[•■' H 7- N-M] 

where 

h g hg o ” T * hg 2 exp ^ 
with hg^, hg^, hg^ and hg^ constants. 


(37) 


(38) 


For calculating the enthalpy of vaporizqtion 
the enthalpy of saturated liquid is expressed 
by 

h L = h L0 + h Ll T + h L2 T2 + h L3 T3 ^ 

The enthalpy of vaporization of the super- 
saturated vapor is obtained by 


fg 


h - h. 
g L 


(40) 


The specific volume of the vapor mixture is 
approximated by 


- XV = 


X V 
M 


(41) 

The specific heat at constant pressure is given 
in References 4 and 7 by 


^pv ^pv M S 




where 

x ci 


(v-£) 

’ TB 3C 


(42) 


C2 




/, 2B 3C 4D 5T\ 

K ~ V 2 + ^- + 7~) (43) 

■) • tV (- £r * Jfr) 


2d B) 
T! 


1 4 d 2 0 , 2 d D \i 

77 ( 7F 


(44) 


c = c + c . 

pv po 


pi 6XP (" C p2 / ^ r ) (45) 


• Association 


The discussion of association is in terms of 
a method which successfully handled the association 
of cesium and potassium vapors. The molecular 
compositions of cesium and potassium are deduced 
from PVT data in References 4 and 7. The data 
indicate that potassium vapor consists primarily of 
monomer, dimer, and tetramer species, whereas 
cesium probably also contains species of still higher 
order. The molecular species reactions are represented 
by a series of independent equilibria of the type 


and the equilibrium constants are defined by 


N. 


k. 




(47) 


N '.(V) 

Of the total vapor molecules, the fraction* 

T4 j exists as a monomer, and the remainder 1 - f\j 
is assumed to exist as a dimer. The partial pressure 
of the monomer is the mole fraction R ] times the 
mixture pressure, or b 


TTj P 


m 


The association is evaluated at both actual 
pressure and saturation pressure to obtain the ratio 
of partial pressure required in the nucleation ex- 
pressions. The equilibrium constants k 2 and k^ 
are expressed as functions of temperature in Ref- 
erences 4 and 7 as follows: 


log 10 (k 2 ) 


20 


k 21 A 


(49) 


and 


'°9l0 (k 4 ) k 40 


V T 


(50). 


The apparent equilibrium constant of dimer- 
ization when all association is taken to be 
dimerizanon, can be expressed as a power series 
in terms of pressure and the true equilibrium con- 


stants: 


k 2 = 


k 2 + 


2k P 
k 3 


3 k . P * 
4 


2k 2 k 4 P^ 


(51) 
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• vl ? 1 


Then, the fraction of total atoms which remains as 
the monomer R 1 is obtained from 





(52) 


where F is the friction force per unit volume of the 
flowing mixture. For an isentropic flow the change 
in enthalpy is dh =v dP. If it is assumed that 
irreversibilities (friction losses) are proportional to 
isentropic enthalpy change, the expression 


dh 


d P 


F = (1 -y TT = (,= V (v -3T ) 


where 


■FT = i - *T, 


(53) 


Solution for N 1 from these two equations gives 

"V 


4 P 1 





(54) 


• Flow Equation s 

The flow through the turbine is described by 
one-dimensional flow equations. The flow is assumed 
to havd Uniform velocity and pressure across the flow 
area; thus curvature of flow path and radial pressure 
gradients due to rotation have been neglected. The 
description is intended to describe the mean diameter 
flow conditions. The differential form of the contin- 
uity, energy, and state equations are as follows: 


I dA . 1 dW . _1_ dv 

r H T Wdz V dT 

♦ f 4f • »• <55) 


d T i 

^ s?)* ■ l ' i ‘ l 

I+yC, -r-i- = 0, 

z 7 P L di z 

(56) 


4»(h4h)‘ 


(59) 


is obtained, and the momentum equation becomes 

_W_ = v dP 

g dz p m d z 

For a given value of the description is 
that of a constant local condition expansion process; 
namely, for each increment in isentropic enthalpy 
drop, the fraction (1 - v) appears as a friction loss 
which is converted to heating of the flaw, and the 
remaining fractionij p is the net gain in kinetic energy. 

In the solution of the flow equations the 
quantities P, T, v, and W are treated as dependent 
variables with other quantities as independent 
variables. Simultaneous algebraic solution of the 
flow equations for the changes in P, T, v, and W gives 

the following: 

1 d W _ 6w 


W d z A o 

1 d v 1 dW + 1 d_A_ + 

7 dz Wdz Adz 


1 dy 
x d z 




ind 


1 dT 
T Tz 


1 d p + 
T77 



( 

_ az \ 

1 4 IT Tr) 

c • 


(60) 

(61) 

(62) 

(63) 


(57) , 

It should be noted that the enthalpy change 

cannot be described by the form C dT since 

enthalpy is pressure or volume dependent due to 

association reactions. The extra terms in the state 

equation arise from the use of the virial equations 

of state where the compressibility Z is a function 

of T and V. For an ideal gas, Z Q = T and the partial 

derivatives of Z are zero, 
c 

The momentum equation for a stream tube can 
be written as 

w d_w = _ v dP . v F ( 58 ) 

q d z m d z m 
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where 
= P x vt? 


and 


(’ + r IT 5 -) -&T ( h g (V ' T) ) 
p[(’ Tr) ( h fg 3^ ' y C 

SfT ft)] 


T 'aT (’g« V ' T) ) 


(64) 


+ V 


= P x vl 


(65) 




( 66 ) 



• Turbine Description 

The turbine geometry is required to compute 
the flow cross-sectional area. The passage for each 
blade row is described as the annular area between 
concentric truncated cones, with modification to 
account for blade thickness and blade angles. The 
axial cross-sectional area is 


A - * 

a - ~r 


by 


( d 2 " d ’)(’ " 0 w 

The diameters and blade thicknesses are given 

d l = d 1i + (d To ' d li ) W 

(69) 


d 2 " d 2i + (d 2o 


d 2 ,) z/L 


and 


n, - n,; + - V:)o - 




4 2 


(70) 


The blade shape is assumed to have a parabolic 
contour so that the local angle is 

cot 0 = cot 0 1 + (cot - cot Pj) z/L (71) 

and the local gauging is 
sin 0 = 


V 


_L 


1 + cot 0 


(72) 


The cross-sectional area normal to the local 
flow direction is 


A ~ A a S,n P 


(73) 


flow due to the singularity in the flow equations at 
the critical point. An approximate method is de- 
rived which permits computation to proceed for flow 
through the throat of a convergent-divergent pas- 
sage. Briefly, the method is to continue the numeri- 
cal calculation until the critical point approaches 
some arbitrary amount, say W = 0.95 C . . At this 
point special equations are employed tomtom the 
flow properties at the critical point and at some 
point Just past the throat where the flow is super- 
sonic, The stepwise integration can then be con- 
tinued. 


The following assumptions are made to ex- 
trapolate the flow variables from the subsonic to the 
supersonic state. 

1) The enthalpy change of the condensate 
is neglected. 

2) The value of is maintained at the 
original value Por the particular nozzle. 

3) The condensation can be calculated from 

the supercooling at the beginning and ic 
end points. |J5> 

4) Certain vapor properties during the ex- 
trapolation are defined by their effec- 
tive values at the starting point of the 
extrapolation. 

The flow equations described in a previous 
section can be integrated in a manner similar to the 
case of isentropic expansion of an ideal gas except 
that condensation terms are also included. 


The flow velocity relative to the blade is 

w = U c/ sfn/3 (74) 

The changes in area with axial position are 
obtained by differentiating the above expressions. 

• Approximation Method for Supersonic Exit 
Velocities 

Special techniques are required to continue 
stepwise numerical integration of the flow equations 
through the transition from subsonic to supersonic 


The critical point occurs when me denomina- 
tor of the solution for is equal to zero, namely 

when A q = 0, as defined by Eq. 64. Rearranging the 
expression for A 0 and setting A Q ^ 0 to find the 
critical speed gives 
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and 



f dh (V, T) VT 

dh (V, T) 

9 

M x 

v z at 

dV 

o 

~ aTTTVTD T~ 

• 9 * 



p vr, aT TT 

L p 



(77) 


Thus, the critical point is reached when W = 
C y where C ^ is defined by Eq. 76 and where 
y C Vs assumed to be a constant calculated from the 
properties at the initial state point of the extrapola- 
tion, The symbols V and T z are defined by equa- 
tions 80 and 81, 

For smooth flow transition through the critical 
point, the numerator in the solution for must 

be zero simultaneously with A© = 0, This requires 
that A w = 0, which from Eq. 66 is found to occur 
when 

1_ . ( h hf 9 . lx = o 

■,/, rsrvr Adz \ + x / dz 

(78) 

J Since d^ is positive during an expansion and 

the tetm in parentheses is also positive for x near 1, 
the critical point must occur at a location where 
dA is positive, that is at some point past the throat 

of the passage. For the present work the assumption 
is made that the critical point occurs at the throat, 
so that the minimum area is taken as A*. 

The flow equations will now be integrated 
by defining a number of pseudo properties which are 
held constant during the extrapolation. From the 
first assumption (page 2-7) above, the term dT L is set 
equal to zero in the energy equation 56. dz 
Eliminating dP and £vV from the momentum, energy, 
dz dz 

and state equations 56, 57, and 59 gives 


A j_ + 

/ Jh fg \ 

J v d z 

\ Pv ’p (+ a J 


1 d x 


where 


V =U 

z 




(79) 


(80) 


^Complex conjugate of A - A* 




♦ = 

V 


V J 


Sh (V, T) 

n 


<?V 

Tv *r 


and 


Defining 


and 


dh (V, T) 

IT - 9 .,- 

+ = I 

T Pv if 


*V + V z 
k - 1 = x r ~ 
9 +T ” 


s = 


Jh f, 


( 81 ) 

(82) 

(83) 

(84) 

(85) 


P ' z 

and assuming k_ andXp are constant during the 
extrapolation or their initial values, Eq. 79 can be 
integrated to give 


V 

V, 


m 


(86) 


L J 

where the subscript 1 refers to values at the start- 
ing point of the extrapolation. 

Also assuming T z and V z are constant during 
the extrapolation, the state equation 57 can be 
integrated to give 

h - ( t t) ' Ct)" V ’ 

Integration of continuity equation 60 gives 


(87) 


_A_ 

A, 


( 88 ) 


7w 

[w- 


1 dv 

Substituting the expression for — ^ from 


Eq. 79 into the energy equation 56 yields 

- 1 U 

^Tdz 


W d W 

J g d z 


. r 1 41 , d x 


= 0 
(89) 
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conditions. It is assumed that the condensation rate 
is proportional to the supercooling rate for the drops 
that already exist and no new drops are formed. Let 
the supercooling at the start of the extrapolation be 
ATj, and at the critical point, AT*. The average 
supercooling rate is 

AT = - 5 - (AT, +AT*) (98) 


and the average condensation rate is 



(99) 


Integrating and expressing the results In 
terms of x gives 



From the geometry, z* is known as the location 
of A m j n . A value of AT* is assumed and x* is cal- 
culated. Then T*, v*, and P* are calculated and the 
value of AT* is found from Eqs. 33 and 34. When AT* 
matches the assumed value, the critical point is 
specified. Then, it is necessary to compare the value 
of A* with the actual minimum area A m j n . If A* 
and Afp^ are not within a specified tolerance, the 
inlet velocity is corrected and calculations begin 
anew at the tuifcine inlet. When A* and A , agree, 
the extrapolation is continued to a point pasl the 
throat in the case of a convergent-divergent pas- 1 
sage, or the extrapolation ends at the throat For a' 1 
convergent passage. Let A 2 be the area at this 
point to which the extrapolation takes place. The 
Mach number at this position is estimated by approxi- 
mate expression to start the iteration, or 



Then x^ is found from 

*2 = x * -(jf) ( z 2‘ z *) < 102) 

The values of T^ v~, P^/ W 2 and A^ are 
then found with Eqs, 937 94/ 95; 96, and 97 rewritten 
in terms of conditions at position 2. Thus, 



1 + 



1 


ft ■&)'■(« 
ft) ft 

“sr 


The specific volume Is obtained from 


W, 

w 7 


( 104 ) 


( 105 ) 


( 106 ) 


and 


( 107 ) 


If A 9 does not agree with the desired value, 
M 2 Is corrected until A 2 converges. These properties 
are then used as Inputs to continue the stepwise 
integration process. Each type of moisture, including 
surface condensate, is assumed to increase in the 
same proportion during the extrapolation, and these 
new values are also required as inputs for continuing 
stepwise integration. 

• Expansion from Stagnation to Static Inlet Cond i - 
tions 

The inlet to the turbine is specified by the 
stagnation temperature T , and the axial velocity 
U ao at the first stator inlet. In the case where the 
inlet is supersaturated, the inlet temperature T Q is 
obtained from Its value corresponding to the 
equilibrium state as P g and T s and moisture fraction 
y by using the relationship: 


= T 


y > 

pv 


008 ) 


The expansion from stagnation to static con- 
ditions at the inlet is evaluated by the same tech- 
nique used in the extrapolation. The values of 
and are evaluated at the inlet stagnation state, 
which is analogous to state point 1 in the extrapola- 
tion, The static temperature is obtained from 


T = T 


- u iJ (’» jc , " a ) 


( 109 ) 


’• (v) 


1 - 


(HO) 


and the pressure from the state equation using the 
values of v and T to evaluate the compressibility. 

2.2.3 Method of Solution 

The numerical solution to the problem con- 
sists of integrating the continuity, energy, state, and 
momentum equations 60, 61, 62, and 63 for the area 
change obtained from the turbine geometry and the 
rate of change of condensate as determined by the 
nucleation and growth expressions. A stepwise 
integration is performed using the ICEADAMS in- 
tegration procedure listed in Appendix B, Basically, 
the order of calculation is as follows. Knowing the 
properties T, P, v, and the velocity W at a point, 
the property equations are used to calculate 


dZ 

c 

T T' 


dZ 

c 

dV 


c , h , 

pv g 


ah ah 

3 , - - 9 h • 0 p \ aT, T , r, ond T 

dV fg L V V o' s r< 


The association expressions are then used to obtain 

kly P., P, , and A., The turbine description gives 
Z 1 is i - dN 

dA. The nucleation expression gives J and i 

clz d z 

for the group of droplets being formed at the present 
value of z. The droplet growth and surfacej:onden- 
sation expressions are evaluated to obtain Li , 

, and_d^_. These calculations then provide 
d z dz 

the required data to calculate dT , dP , dv , and 

clz ~3z dz 

dW which are used to obtain the new values at the 

end of the integration step. This brief description is 
intended only as an overall view of the calculation 
routine. 

A listing of the computer code is given in 
Appendix A. The list of input quantities is given in 
Appendix C in the order required by the code. A 
flow chart for the code, showing the major control 
and logic, is provided in Appendix D. The corres- 
pondence between the code symbols and the text 
symbols is given in the nomenclature. Appendix E 
gives a description of the function and use of the 
control variables not included in the text. 
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2.2.4 Sample Turbine Calculation Results 


TABLE 2.2-1 


The computer code was run for a three-stage 
potassium turbine. The numerical input data used 
are listed in Appendix C, except for the turbine 
geometry description which is presented in Table 
Z2-1. The stagnation inlet state is defined by T = 
201 0°R, P 0 = 30.2 psia = 4349 lb/ft 2 , and x = 0.99. 
The inlet is assumed to be supersaturated, and the 
inlet temperature corrected for moisture content by 
Eq. 108 is T = 1982,9°R. The summary of calcula- 
tion results provided by the computer printout Is 
shown in Table 2.2-2, and the output nomenclature 
when the mean radius is in feet and units are given 
in Table 2.2-3. A typical printout is shown in 
Table 2.2-4 for the conditions at the exit of the 
second stator with corresponding nomenclature and 
units given in Table 2.2-5. 


The value of y calculated by the computer 

program requires correction due to variable specific 

heat between supercooled and saturated state points. 

The value of y is obtained from 
'e 


y 


e 


y + 


at c 


h 


__E1 

fg 


where y is the equivalent moisture, and C is the 
specific 6 heat at the supersaturated state. The 
correction to be applied is 



The value of C is obtained from the com- 
puter printout and ^pJj V $a j ma y be obtained 

from any suitable source of thermodynamic property 
values for the specific turbine fluid. For this par- 
ticular example, see Reference 4, In Table 2.2-2, 
the value of C is 0.36 Btu/lb-°R, and (^*p V ) sa (. 

is found to be 0.28. Thus, the corrected equilibrium 
moisture content is 0,102 and the tabulated value 
is 0.105. The correction is larger when greater 
supercooling exists. The correction required on the 
value of y does not affect any other calculations 
in the program. 


EXAMPLE TURBINE GEOMETRY FOR THREE- 
STAGE POTASSIUM TURBINE 



1 

2 

3 

4 

5 

6 

Inlet Who Diameter (In.) 

7.693 

8.080 

8.17 

8.48 

8.80 

9,27 

Inlet Blade Height fin.) 

0.605 

0.772 

0.66 

1.076 

1.04 

1.59 

Outlet Mean Diameter (In.) 

B. 00 

8.17 

8.68 

8.90 

9. 22 

9.31 

Outlet Blade Height fin.) 

0.772 

0.66 

1.076 

1.04 

1.59 

1.53 

fxoonrian fFflclency fir ) 

0. 95 

0.80 

0.95 

0.80 

0.90 

0. B0 

Axial (ft) 

0.1166 _ 

0.081 

0.0955 

0.0903 

0.101 

0.0983 

Inlet Angle fdegreet) 

90 

26.41 

124.72 

30.19 

121,32 

47. 70 

Ovtlet Angle (In. 1 

14.5 

154.65 

16.70 

152.14 

21.55 

146.95 

Blade Pitch fin. ) 

0. 633 

0.41 

0.572 

0.455 

0.641 

0. S57_ 

Edge Blode Thlckneii (In. ) 

0.012 

0. 0125 

0.012 

0.012 

0.012 

0.012 

Blode Velocity (ft/iee) 

0 J 

641 

| o 

689 

0 

734 

Maximum Blade TWckneiJ (In, ) 

0.12 

0. 166 

j 0.100 

0. 154 

0.170 

0. 125 


The Wilson point occurred at z/L =0.63 inch 
in the second stator row at a corrected equivalent 
moisture content of 7.4 percent. The expansion rate 
at the Wilson point was approximately P = 2500/sec. 


The Wilson point occurred at a supersaturation 
pressure ratio of 2.32, With all other parameters 
fixed, the classical nucleation theory would predict 
a critical supersaturation ratio of about 2,13. In 
the present case this will shift the Wilson point 
slightly within the second stator. 

The turbine geometry used has a diffuser- 
type section in the first part of the second rotor, 
causing the flow to return to the saturation state. 

The condensation zone in which nuclei growth 
occurred was located in this portion of the second 
rotor and the flow remained near the saturated state 
throughout the remainder of the turbine. 

The results of the present calculations can 
be compared in a qualitative manner with the results 
of Goldman and Nosek'°' In which saturated potas- 
sium vapor was expanded in a convergent-divergent 
nozzle. Although their results are somewhat incon- 
clusive, it appears that condensation occurred when 
the ratio of pressure to initial saturation pressure 
was between 0.31 and 0.33 at an axial distance 
of about 3 inches from the nozzle inlet. In the 
present example, condensation is predicted at a 
pressure/inlet saturation pressure ratio of 0.324. 
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TABLE 2.2-2 


COMPUTER OUTPUT SUMMARY SHEET FOR 
THE THREE-STAGE TURBINE EXAMPLE 


SUMHAHY Of HLbULTS OF U ONDE N S A 1 I ON CALCULATIONS 


NON 

T 

P 

VV 

N 

U 4 

T l 

Y S 

Y 

HMfc AN 

N T li 1 A l 

0 

1970 . 7 

4324.? 

16,03 

333.4 

333,4 

0.00000 

0, ouuoo 

o.uoooo 

0*00008+00 

0 , 0UUU8+00 

1 

1766*4 

2765,9 

22,19 

1 375.5 

343, 3 

0,06189 

0 ,00000 

0,00000 

0,00008+00 

0 , 00008*00 

2 

1731.1 

23 36,8 

25, 2B 

1056, f 

452,« 

0.07921 

0.00000 

0.00000 

9,93178-08 

1,41638+12 

3 

1665*1 

l 360.9 

44.26 

1464,4 

426 , 6 

0.10519 

0. 00000 

0.06805 

9,94598-07 

4.2/ 368+ 1 a 

1 

1712. B 

1114,3 

56,52 

1146,3 

533.9 

0. 11004 

0 , QUO00 

0.10182 

1 , 1 4 U 1 8-06 

4.2 f 368+ 1 4 

5 

1666*5 

764,0 

7 V , 06 

1232,3 

452.6 

0.13338 

0.00000 

0.12930 

1 ,23008-06 

4,2/368+14 

6 

1601.4 

554,1 

107.95 

1146,7 

624. U 

0.15442 

0.00000 

0. 14664 

1 ,2/628-06 

4,2/368414 


TABLE 2. 2-3 

NOMENCLATURE AND UNITS FOR COMPUTER 
OUTPUT 


Title 

Cod* Symbol 

T*xt Symbol 

Unit, 

R0W 

S 

Blade row iod.x 

— 

T 

T 

T 

■R 

P 

P 

P 

lb/ft 2 

W 

VV 

U 

ft 3 /lb 

W 

w 

W 

ft/wc 

UA 

UA 


ft/»ec 

YT 

YEQUIUB 


— 

YS 

ysurface 

+ y bo * y abs 

-- 

Y 

YSUM 

y 

— 

RMEAN 

RMEAN 

t 3, f 
T \ TprffrJ 

ft 

NT0TAL 

NT0TAL 

2N f( 

lb' 1 


An earlier condensation in terms of pressure ratio, 
in the turbine as compared to the supersonic nozzle, 
is expected due to the lower expansion rate. 

According to Linhardt, condensation in his 
tests occurred upstream of the nozzle throat. This 
would imply a ratio of condensation point pressure 
to inlet saturation pressure ratio greater than 0,5, 

This is contrary to the Goldman and Nosek experi- 
ment and theoretical calculation. 

The droplet size resuLte can be compared with 
results obtained by Linhardt . His analysis of his 
experiment predicts a droplet radius of 0.05 microns 
for 10 percent exit moisture in his test No. 4.^ His 
tests 2, 3 and 4 had the same stagnation condition 
and the same nozzle except for length. With critical 
flow in the nozzle, the conditions at the condensation 
point would be unchanged due to the additional 
length of the nozzle. Thus, for the same conditions 
at the Wilson point the droplet radius at the nozzle 
exit is expected to be proportional to (y e ) ' r 

where y is the moisture fraction at the nozzle exit. 

' e 
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TABLE 2.2-4 


COMPUTER OUTPUT INTERMEDIATE SUMMARY 
SHEET FOR THE SECOND STATOR EXIT 


COUNT 
22 2 

STEP SIZE H 
,*0000000-04 V 

z 

,5*000000-02 




P 

l, 36066M03 

T 

1 .665110+03 

SP, VDL.-V 
4,427**0+01 

N U-AXIAL 

1,464400+03 4,265*70+02 

Z-C0MPRES5 

9,049120-01 


DP 

-1 , 146330+0* 

UT 

-2. 499280+04 

DV 

2,966660+03 

OH -(DP/Dn/P 

9,736360 + 04 3,593110+04 

A RE A A 

2 , 072590 + U1 

DA/A 

-3,564850-01 

DELTAT 

B.648610+01 

TL10UID 
1 , 7 f 1 0 1 0 ♦ 0 i 

lambdao 
*, 162230-01 

L A MB 0 A 1 J0UT 

4.726430*01 1,3*2740-07 

rcritical 

6,934010*09 

DN/D/ 
1 , 309370-06 

R 2 

l ,956640-Ql 

K 4 

1 . 0*66 fP-0* 

K2PRIME 

2.U73260-O1 

mfg cpvo 

6,404270+02 1,270000-01 

CPV 

3,608620-01 

SI&MA 
4 , ? 1 BU l 0-03 

TOTAL MOISTURE 
6.60*490-02 

PARTIAL PI 
1 . 2 16030+03 

DUAL I T Y 
9, 3194*0-01 

MEAN RADIUS TOTAL DROPS 

9,94*660-07 4,273560+14 

*2 PR I ME SAT 
1,999700-01 

S i NbE 1 A 
2, 87 36 10-01 

Y-tQUlLIB 

1,0*1920-01 

H5 

1 . 1*7720+03 

HL 

3,1729*0+02 

hfg uelu 

8,404270+02 1,622100+06 

DELH 
1 , 064 170+U8 

1-M*2 

5,940870-02 

Y B = Y BLADE 
0,000000400 

Y BD* Y CASE 

o ,000000+00 

T ABS«YATUM1 ZED 
O,OOOOU0+OO 

ysurface natomwe 

U, 000000+00 0,000000+00 



GROUP 

1 

2 

3 

4 

5 

6 
7 
0 
9 

10 

MOISTURE 
1 ,29722710-03 
3 ,0^5*6970-03 

1,20000100-03 
2.0^047190-03 
4,101*1000-03 
9, 0*67 3050*03 
2.12440670-02 
2 ,5936*090-02 
0,00000000+00 
0,00000000+00 

NUMBER 
1 .41632270+12 
3 ,544948 7 0+ 1 2 
3.2210*670+12 
6.56427290+1? 
1 , 59908210+1 3 
4,26794670+13 
1,33423060+14 
2,20*16090+14 
U, DOUOOQU0+OO 
0.00000000+00 

RADIUS DMD1STURE 
1,76196110-06 1,415*7140-02 
1,7*008040-06 3,46906160-0? 
1,32061450-06 2.2*393140-02 
1,24663110-06 4,20166290-0? 
1 , 1 7 33H 1 60-06 9,68210460-02 
1,094*4740-06 2,37045030-01 
9,94536*40-07 6,56962400-01 
8,990*6010-07 9,54548600-01 
0,00000000+00 0,00000000+00 
0,00000000+00 0,00000000+00 

dnumheh 
0, 00000000+00 
0,00000000+00 
0,00000000+00 
0, OOOOOOO0+UO 
0,00000000+00 
0, OOOOOOO0+UO 
0,00000000+00 
0,00000000+00 
0,00000000+00 
0*00000000+00 

DR A 0 I 05 
6 ,461 82960-06 
6.57991600-06 
5,26 2 7 4 7 00-06 
8,64339240-06 
9,0*637970-06 
9,54721 750-06 
1 , 025 16*20-0* 
1 . 1 0785*50-05 
0,00000000+00 
0 , 00000000 + 00 


Viewed in this way, the results of Linhardt' s test 
3 corrected to 10 percent moisture would give a 
radius of 0.06 microns while Linhardt' s test 2 would 
give a 0.26 micron radius. The present calculations 
indicate a mean radius of 0.35 microns at 10 percent 
moisture. The larger size is consistent with the lower 
expansion rate, 

2.2,5 Discussion 

The results obtained by the condensation code 
have been in general agreement with the limited 
experimental data available for comparison. The 


variable with the greatest influence on the location 
of the Wilson point Is the surface tension. It appears 
that the correlation used provides satisfactory agree- 
ment and is suggested for use until further experimen- 
tal data are available. 

The computer code performance has been 
satisfactory for subsonic turbine analysis. On occa - 
sion, choking flow conditions have been encountered 
In turbines designed for subsonic flow. This difficul 
ty is due to the relatively simple blade profile and 
blade thickness expressions which are not general 
enough to give the same flow area as an actual 
blade when the actual blade thickness is used in 
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TABLE 2, 2-5 

NOMENCLATURE AND UNITS FOR COMPUTER 
OUTPUT 


Tlri* 

Cod. Symbol 

Twtt Symbol 

Unlh 

C0UNT 

C0UNT 

Stop* lino. W»f output 

-- 

STEP SIZE H 

H 

Stop ilx. 

ft 

Z 

Z 

z 

ft 

p 

P 

p 

lb/ft 2 

T 

T 

T 

°R 

$P. V0L -V 

W 

V 

ft 3 /16 

w 

W 

w 

ft/toc 

U-AXIAl 

UA 

U o 

fl/toe 

Z-C0MPRESS 

zc 

Z 

c 

— 

OP 

DP 

dP/dx 

Ib/ft 3 

DT 

DT 

dT/dx 

Vh 

DV 

DW 

dV/dx 

tt 2 /ft> 

DW 

DW 

dW/dx 

1/toc 


PD0T 

I/P dP/dt 

l/»*c 

AREAA 

AREAA 

A^ 

In. 2 

DA/A 

DA 

I/A dA/dx 


DEITAT 

0ELTAT 

AT 


TLKJUID 

TUQ 

\ 

°R 

IAMBDA0 

LAMBDA0 

A 0 

— 

LAMBDA 1 

LAMBDA] 

A l 


JD0T 

JD0T 

7 

1/FT IK 

KCRmCAl 

RCRIT 

'erlt 

ft 

DN/t)Z 

NEU 


l/lb ft 

K2 

K4 

K2 

M 

k 4 

l/otm 

1/otm 3 

K2 PRIME 

K2 PRIME 


l/ohn 

HFG 

HFG 

V 

Itw/lb 

CPV0 

CPVO 

ltu/lb°R 

CPV 

CPV 

<> 

Btu/lb°R 

SIGMA 

SIGMA 

# 

Ib/ft 

T0TAI 

M01STURE 

YSUM 

y 

— 

PARTIAL PI 

PI 

p i 

Ib/ft 2 

QUALITY 

X 

X 

— 



/ 3v \ ,/3 


MEAN RADIUS 

RMEAN 

'■( 57 ^) 

ft 

T0TAL DR0PS 

NT0TAL 

N ,i 

l/lb 

KJ PRIME SAT 

K2 PRIMES 

kj ot xaturoHon 

t/otm 

SIN BETA 

SINB 

iln fi 

— 

Y - EQUIUB 

YEQUIUB 

u 

— 

HG 

HG 

h 

Btu/lb 

HL 

HL 

\ 

Blu/lb 

HFG 

HFG 

\ 

•to/lb 

OEL0 

DEL0 

Ap 

Btu fl/lb 

oaw 

Daw 

A 

Btu/lb 

1- M*2 

Da0s 


— 

YB « YBLADE 

YB 

^b 

— 

Y*0« Y CASE 

YB0 

y bo 

— 

YAIS - 
YAT0MIZED 

YAIS 

y fl bo 


YSURFACE 

YSURFACE 

'b%o%. 

— 

NAT0MIZE 

NAT0MIZE 

Numb, of otomliod 
drop* 

1/»b 

GROUP 

1 

Indox donoHng group 

— 

MOISTURE 

y 03 

7| 

— 

NUMBER 

NL[l] 

N r1 

1/lb 

RADIUS 

RL[l] 


ft 

DM0ISTURE 

DY Q] 


1/ft 

D NUMBER 

DNL [1] 


I/ft - lb 

D RADIUS 

DRLD [I] 

dr^/dx 

— 


the expressions. This difficulty is overcome by de- 
creasing the blade thickness. The blade heights 
used should also correspond to the actual flow areas. 


In the present version of the program, the in- 
let angles to blade rows are modified to line up with 
the relative velocity vector at the inlet to the blade 
row. The incidence angle effect could be approxi- 
mated by assuming that an additional blade row 
exists between each actual blade row 1o provide 
the expansion or compression effect of non-zero 
incidence. 


The code has a provision for extrapolating 
through the critical point from subsonic to super- 
sonic flow. After one such extrapolation, subse- 
quent blade thicknesses must be modified to accom- 
modate the flow, since no provision for shock waves 

is included. The code has a provision for automati- 
cally adjusting blade thickness; however, the code 
did not converge in the case of a cesium turbine 
analysis. 


The subsonic-supersonic transition worked 
smoothly when the correct blade thickness was sup- 
plied as input. Careful description of the flow areas 
at the throat and exit of a supersonic blade row is 
required to obtain a desired exit velocity since an 
increase in Mach number from 1,00 to approximately 
1,10 will occur for a change in the exit-to-throat 
area ratio from 1 .00 to 1 .01 . 

In summary, the code has performed satis- 
factorily for subsonic turbines but require* careful 
input to obtain desired area ratios for turbines 
having supersonic flow. 
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2.2.6 Nomenclature 


. T.tt Symbol 

Cod. Symbol 

Definition - Uhlh 

A 

- 

Flow crou- s«c Hanoi ar.e, (ft 3 ) 

A 

a 

AREAA 

Axial crou'McHoool oreo, (ft 3 ) 

A,. A, 

A1, A2 

Flow croB-MOtlonol area at polnh 1 and 2, (Ft 3 ) 

A m.n 

AMIN 

Minimum flow cron wetlon, (Ft 3 ) 

A* 

- 

Critical minimum flow crow ttcKon, (ft 3 ) 

°r °r r 3 

APS, APS1, APS2 

Comtonh describing Mturation pr.uur*, (ft^/lb mol.) 

«, 8,. b 2 

B, Bl, B2 

Comtonh In vlrlol equation of ttota, (fZ/lb mole), 

(-), ft) 

c, c,, c r c * 

c, a, a, C3 

Comlwih In vlriol .qua Hon of itafo, (ft 3 /)b mol.) 3 

H, ft). fR 3 ) 

C erlt 

CCR IT 

Critical tp.»d of mixtur., (Ft/wc) 

C PL 

CPL 

Specific hoot of liquid, (Btu/lb°R) 

C PT 

CPV 

Sp*cHlc hwit of vapor, ®tu/lb°R) 

V 

CPV 

Twnpwotur. dapanefont form In .xpreulon for C, 
, (Btu/lb°R) 

WS* 

ACPO, ACPI, 
ACP2 

Comtonh doflnlng CpJ 5 ai a function of T, (Btu/ 
lb°R), (Btu/lb°R), (“*) 

c. 

CETA 

Effec tlv. ifMcIflc hwat (Btu/1b a R) 

d,d,,d 2 

0,D1,D2 

Comtonh In vlrlal aquation of itafo, (ft 3 /)b mol.) 3 , 

H TO 

d vV\o 

DIAl, DIAH, 
OIA10 

Hub pauoa. diameter, of stag. Inl.t, at ibgt 
outlet, (Ft) 

W d 2 O 

DIA2, DIA21, 
DIA20 

Tip passage dlam.for, ot stag. Inl.t, at itog. 
auH.f, (Ft) 

C,E, 

E, ET 

Constants In vlrlal .quatlon of itafo (ft 3 /lb mol./ 

F 

- 

FrlcHcn fore, par unit volum. of flow, (lb/Ft 3 ) 

9 

O 

Acceleration of gravity, (Ft/sac 3 ) 

K ofo 

HAB5 

Heat tromfer co.fflcl.nt, atomized moisture, 
(Bhi/sec fr °R) 


HAM* 

►foot Iromfor coefficient, mating to ambient, 
(Blu/ioc Ft* °R) 

h b 

HB 

Hmat kontf.r coefficient on bind, mrfoce, Jltu/ 
»c rr °R) 

h « 

- 

Hwat troniFm co*F?Iel«ol, (Blv/ft 3 °R) 

V 

HFG 

La font heat of voporlzotlon, (Btu /1b) 

“9 

HG 

Enthalpy of vapor, (Blu/lb) 

V 

HGO 

Enthalpy of morvomw spiles, (Btu/lb) 

WV 

\*3 

AHG, AHG1 
AHG2, AHG3 

Constants defining temperature depwacfonc. of 
bg°, (Btu/lb), (°R Blu/lb), (Btu/lb), (*R) 

\ 

HL 

Enthalpy of lalurofod liquid, ®ty/lb) 

h u 

AHL, AHLI, 
AHL2.AHL3 

Cam ton h d.flnlog temperature dependence - 

ofh L , (Blu/lb), (ltu/lb & R), ptu/lb^lr), (Btu/lb°R J ) 

S 

HFTA 

EFfm:tf'n» hmat of vaporlratlon, wr Eq. 91, 
(Blu/loR) 

J 

J 

Mmibanlcol mfjlvolwit of hmif, (T^lb/Btu) 

T 

JD0T 

Nuclmitton rofo, (I/l/im;) 

K 

_ 

Clwnlcol tymbol for poteulum 

s 

K2, K4 

Equilibrium comtonh for ipm:TM 1 = 2 , 4(alm)* * 

k i,<r fc l, 1 

u 

> 

> 

7* 

A. 

Comtonh d.flnlrvg forrpwatur. d.p«i<fonc« of 

k, (-), cn h <°r) 

k 2 

K2P9IME 

Apparwit ^ulllbrlum com tent, (atm) 

k 

KV 

Vapor tWma! conductivity (Btu/«w; Ft °R) 

k * 

KETA 

EffocHv. pofytroplc nrpor bt:*, (-) 

t 

- 

L wig l+v along chord, (ft) 

L 

LENGTHS 

Axial 1 wig tii of bfod. row, (Ft) 

A 

- 

Maw How rot., (Ib/Mc) 

M 

M 

Mol.culor w*Ight of nonomir vapor, (Ib/lb mol.) 

*2 

M2 

Macii numbw ot point 2, (■) 

N 0 

NO 

Avogadro'i numbw, ^nolwcul^lb mol.) 

N, 

- 

Molal concontroflon of tpocisi 1, (-) 

R ( 

NIPRIME 

Apparwif molol concwitratlan of tpM:l«t 1, (-) 

N rl 

nl ta 

Dropl.h pw pound In group 1, (1/1b) 

P 

p 

Static prm+m, (lVTi 3 ) 

P 

0 

PATM 

Aknouhwlc praam convwilon com tent, 

(IbAr/alm) 

P 1 

- 

Partial prouwr. of ip«:l« 1, (Ifc/ft 3 ) 

P *FF 

PEFF 

Prowur* form In nuc (nation wjuatlon, (Jb/ft 3 ) 

P 

PD0T 

Expandon rofo d*flr>wd by ^ ^ , (l/tw:) 

P o 

P0 

Infot rtagncHon pr.wur., (Ib/ff 3 ) 

P l, 

PIS 

Partial prwrur. of memomw at lofuratlon pr.vxjr. 
corroipondlng to vapor fomptrotur., (|b/Fr) 

'r 

PRANDTl 

ProndH nurnbar, (-) 


Nomenclature (Continued) 


f 

* 

PS 

Saturation prowur* at vapor fompwa for. , (lb/ft 3 ) 

Q 

- 

Hoof tronifw rofo to bkad. mrfoc*, (Btw/iac) 

ft 

0 

RO 

Lfolvwwf got com tent, (ft-lb/lb mol*°R) 

r 

RECF 

Racovwy foe tor, (-) 

r 

RMEAN 

Rodlui of mwan dropl. t, (Ft) 

f ©bi 

RABS 

Atomlzwl drop rodlut, (Ft) 

r crU 

RCRTT 

CrIHcol rodlu., (ft) 

r 1 

M- [1] 

Dropl.t rodlut of group 1, (Ft) 

S 

• 

Pwim.tw oF flow pouog., (Ft) 

T 

T 

Vapor twrvpwotur., (° R) 

T omb 

TAM* 

Amblwit fomp.ro tur., (°R) 

T 

c 

TC 

Critical vapor twrp.ro tur., ^R) 

t l 

TL 

Condwtiafo fomp.ro tur., (° R ) 

T o 

TEMP0 

Inl.t ttogvatlon fompwotur., f*R) 

T n* 

TREC 

AdlaboHc rwiovwry twnpwotura, f’R) 

T r. 

- 

Twnpwatvr. of dropl.tt In group 1, f*R) 

T 

i 

TSAT 

Saturation hwnp.ro tur. ot protiur. P, f*R) 

T 

TZ 

Pa ram. for, W. Eq, Bl, {-) 

r 

- 

Twnpwotur. at crlHcol point, |°R) 

t,.t 2 

0LDT, T2 

Twnpwofgr* at point 1, 2, (°R) 

at, fll*, AT,, 
At 

DEL TAT,-, 
0LDOELTAT, IDS 

Swparcoollrtg, at crlHcol point, at point 1, 
avmog. during .xtropolatlon, ^R) 

t 

- 

Tim., (Sm) 

W*bm 

THICKB, 

THICKB0, 

THICICBMAX 

Bfod. lhld(n«j, ot ttag* Infot, maximum bfod. 
thickn.w, (Ft) 

‘b. 

BLADES PACE 

Bfod. tpoclng at mwsn dfom.for, (Ft) 

f f 

- 

Thlcknot* of flew charm.!, ft) 

U o' U ao 

UA, UA0 

Axlol y.loclfy of vopor, at Inl.t, (Ft/*^) 

v / 

W, - 

Spw:lflc volum. of vopor, of mlxtor* (Ft 3 /lb} 

V* 

- 

Spw:tfk volum. of vopor at crlHcol point (ft 3 /)b) 

v l' v 2* v a 

OLDW, V2 - 

Spwclflc voluqfo of vopor ot point l, 2, ot Inl.t 
itagnaHon (Fr/lb) 

V 

V 

Mofo! ipoclflc volum. of vopor, (Fp/'lb mol.) 

V 

VZ 

ferom.for, w. Eq. BO, (-) 

w, w,, w 2 

W, 0LDW, W2 

Strwim voloclty r.foHv. to bfod., at point 1, 2 
(fl/rac) 

W crlt 

- 

W.lght of crlHcol tit. dropl.t, (1b) 

x, *rV x * 

X, 0LDX, X2 
XSTAR 

Vapor quality, ot point 1, at point 2, at crlHcol 
point, (Mb) 

X CV *C2 

XC1, XC2 

Abbr*vfotlorn, m. Eqi. 43 and 44, (-), (Ft 3 /lbmol.) 

Y 

YSUM 

Molitur* fraction, (-) 

y ab« 

YABS 

Molilvrr* fraction atom Izad^om bfod., (-) 

y b' 7 bo 

YB, Y80 

Molitur. fraction on bfodm, caving, (-) 

*b 

- 

Rofo oF condwifata formation on bfodai, (Ib/wc) 

Ya, Y.' 

YEQULIS, - 

Equlvalwit Hprlllbrlum moliter., corrwtfod valuv, (-) 

y l 

MY [1] 

Molitur. fraction of group 1, (-) 

y N 

" 

Molitur. fraction do. to forma Hon of itobfo drool. ti, 
(-) 

2 1 

Z» 

Pvom.tar In nuclootton expmtlon, (-) 

2 

c 

zc 

Compfanlblllty, (-) 

Z 9 Ty Xyl 1 

Z, 0U5Z, Z2, 
ZMIN 

Axlol caordlnafo, at point 1, at point 2, ot 
crlHcol point, (Ft) 


BETA, BETAI, 
BETA0 

Bfod. angl., at Infot, ot.xlt, (d*gra»i) 

% 

GETA 

EFfocHv. ipaclRc hwit ratio, (-) 

4 o 

DEL0 

Abbr.vtarton, m. Eq. 64, (Btu ft/lb) 

A W 

DELW 

Abbr.vlafton, rw Eq. 66 (Btu/lb) 

*P 

ETAP 

Laool .xpamion .fFIcfoney, (-) 

A ,A, 

Q 1 

LAMBDA 0, 
LAMBDA) 

Logarithmic lupanohjrotlon prawur. ratio, 
for monomw, f) 

S 

LETA 

Exponwit In .xtra polo Hon, ih Eq. 85, {-) 

, v 

NEUV 

POrtomafle vlicoilty of vapor, (Ft /we) 

F 

- 

Abjolufo vltooilty, (IbAt-iac) 

'L 

RH0L 

Dwwlty of oturofod liquid, OVft 3 ) 

\o' ir "u 

ARH0, ARM 01, 
ARH02 

Comtonh d. Fin fog fompwotur. dopendwic. of 

. ft. lb ib 

L ' ft 5 ' ft 3 °F ' ft 3 V 

• 

SIGMA 

Surfoc fomfon, (lb/ft) 

-0 

SIGMA0 

Constant In wrfoc. homlcn coir. fo Hon, (Jt/ft) 

y 

PHI0 

Abbr.viotfon, i*. Eq. 65, (Btu/lb) 


PHIT 

Abbreviation, s~ Eq. 83, (-) 


PHIV 

Abbreviation, m. Eq. 82, (-) 


2-15 





2.2.7 References 

1. OswatiHch, K„ and Z. Angew, Math. U. 
Mech. , Vol. 22, pp. 1-14 (1 942^1 

2. Hill, P. G., H. Witing, and E. P. Demetri, 
"Condensation of Metal Vapors During Rapid 
Expansion," Trans. ASME (Heat Transfer), 
Vol. 85, Part C, pp. 303 to 314, November 
1963. 

3. Gyarmathy, G., "The Basis for a Theory 
of the Wet Steam Turbine," Juris-Verlag 
Zurich, 1962. 

4. Ewing, C. E. et al, "High Temperature 
Properties of Potassium," U. S. Naval Re- 
search Laboratory, Report NRL 6233, 
September 24, 1965. 

5. Katz, J, L., H. Saltsburg, and H. Reiss, 
"Nucieation in Associated Vapors," 


North American Aviation Science Center, 
SCPP-65-32, May 18, 1965. 

6. Eckert, E. R. G., and R. M, Drake, Jr., 
Heat and Mass Transfer, McGraw-Hill, 
New York, N. Y., 1959,pp. 211, 257-260. 


7. Ewing, C. T., et al, "High Temperature 
Properties of Cesium," U. S. Naval Research 
Laboratory, NRL 6246, Sept. 24, 1965. 

8. Goldman, L. J., and S. M. Nosek, "Experi- 
mental Nozzle Expansion and Flow Charac- 
teristics of Potassium Vapor," NASA TN D- 
3209* 

9. Linhardt, H. D., "Potassium Condensate 
Droplet Size Determination," Aeronutronic 
Division, Philco Corporation, U-3709, 

August 1, 1966. 


2-16 



APPENDIX 2.2A 


LISTING OF COMPUTER PROGRAM 


09 t 1 7 ! ? 3 THURSDAY# SEPTEMBER 26, 1967 


COMMENT STUDY OF CONDENSATION OF ASSOCIATING VAPORS IN TURBINES* 

file OUT print 4(2# 15)1 

RfAL ARRAY ROTOR# D I A M J # HEIGHT I # D I A MO # H^IGHTO# BETAjN, BETAOuT, 
8SPACE# ETAPI# lit UB# THICKBOI# THICKRMAXI CO 118) J 
real array OlOF# 0LUCA5EC0154]; 

INTEGER COUNT# EqNS# GROUPS# GROuPMAy# GROUPO# GROUPPRINT# I# 5# 

REAL ARRAY JS# wy, DyL# ORLO, ONl# n MY# RL# RLD# RLO# *R# NLC0*?5]I 
BOOLEAN WILSON# wlLSONO# RESTART; 

LABEL LABELV# EXIT# SKlPv; 




LABEL NEwSTAGE? 

BOOLEAN EXTRAPOLATED; 

REAL ARRAY ASAVECOtiOO); 

REAL ARRAY F[0I543; 

INTEGER ARRAY CASE[0t251J 
COMMENT declarations; 

LABEL E NTE R I C E * INITIAL? 

label lahelice; 

REAL ARRAY DT# OP# UVV# 0*# OUA# DYE# OYS# OY# ORMEAN# QNTCOUBlJ 

REAL ACPO, ACPI# ACP2# AREAA, AHPG, AHFG1# ARHO# ARHOl# A RHQ2 # Ak2, 
A K 21# A k4 # A k4 1 # B # B1 # B2 # BOOT# RDDOT , BPRlME# BPPR I M E # 

BLA0E5PACE# APS# A P S 1 * APS2, 0ETAI# C# Cl# C2# C3# CPL# CPv# CPVO# 
COTB, COT Bt # COTBO# CD^T# CODOT, CPRIME# CPPRImE# C0S8# CALLCD# 
j G L U # 0# D\# 02# DQOT, D D 0 0 T » OA, 0TA2, 0IA2I# 0IA20# UIA1, DlAlI# 
0IA10# o A RE A A # HBET60Z# DELO# 0TLI0# DPRiME# DPPRImE# OZDT# OZOV# 
DELTAT# DYSUM, DEL*# 0 w , OP# OT » OVV# CALLC# HmIN# HMAX, DELOS# OmE 
, PHlv# PHIT# PHlP# KETA# CETA# phig# geta# ccritsq# oldw# OLD V V# 
OLOP# OLDl# OLDZ# OlDDElOS# OLOOHGOv# OLDPXvN# OLDOHGOT, OLDvZ# 

OL DT 2 # OLDX, 0LDV, OLDAREA, AmIN# ZmIN# PP# OLOGROUPS# TSTART, 
VSTARV# WSTARW# ASTARA# ERRHRA# M2# T2# W2# VV2# A2# Z2# ZF# TsAT# 
PRANQTL* RFCF# TR# TAMB, HA m B# SOA, REYNOLDS# HR# OYB# OYBD# RA0S# 
YAB5# DYABS, HARS# YB# y 80 # YSURFACE# NATQMIZE# TF# SOAO# E# El# G# 
GAMMA, H , 'HFG # J# JOOT# JCHIT# jINC# HG, HGO# HL # OHGOOT# DHGDT # 
DHGD V # YEQUILIB# A HG# AhGI# AHG2# AhG 3# AHL# AHLl# AHL2, Ahl3# LETA 
# hETA, TD, TD5# DYDZ# XSTAR, PSTARP# ERRDT# PH 1 0 # A A 1 # X2# OLDHFG. 
OLDDYDZ# 0L00ELTAT# SUSPEND, NOSURF, JDt# J02# KV# K2 # K4# K?PP I ME » 
K2PRIME5# LENGThb# LNPA# L a mROAO# LAMBDAl, m# ml# MACH# NO# NEU# 
NEUV# NEFF. N1PRIME# N1PRIMES# NTOTAL# P# PI# PI# PS# POOt# PATM# 
PIS# PEFF # P X y N # PO# RELB# ABSB# phi, RO# RI# RHOL# RCRIT# SINR# 
sigma, SIGMAO# tb# tbp# t# TZ, THICkB# THICkBO# thickbmax, tc# smp, 


TLSUM# tl# tempo# t l old# ua, y# W# VM# 

UAO# YSUMN, DYSuMN# YTOTAL# YSUM# BETAO# VZ# ETAP# 

zo# zi# zc# gama; 


XC1# XC2# XCPvT# 
RMEAN, ZCC < Zt 


FEXTRA1 (XZ5» "EXTRAPOLATION OUTPUT "/XI 5» "OLD"* X25, «NE*"//X3# "7 "* 

Xll»F14.7>Xl4»E14.7/X3,"P"»XU*Et4.7,X14,E14.7/X3,"T",Xll,E14,7. 

X 14 »ei 4 . 7 /X 3 ,"W"»xn»E 14 . 7 ,X 14 ,ri 4 . 7 /X 3 »"X».Xll»E 14 . 7 ,X 14 »E 14 . 7 / 

X3#"OELTAT"»X6»E14.7»X1A,E1«.7/X3»"VV"»X10»E1A.7.X1«,E1*.7/1J 

LIST LEXTRA1 (OLDZ» It OLDP, P* CLOT* T , OLOW, W. OLOX, X, OLOOElTAT, 
CELT AT t OLOVV* VV)J 
FORMAT 

fthickc'new thickness « "#E1*,7/jj 
l ist l^xtracketa, c eta, TSTArT, vstarv, wstarh, astara, ccRtTsa, 

GETA, A2, ZC, S)J 
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FORMAT 

FEXTRA(Xi#X8#"KETA"#X8*"CETA",X8# "T*/T"#X0# "V*/V% X8# "W* /W"# X8# 
"A*/A"#X2#"W- C RlT*2 "/Xl#7E12.4//Xt#X8#"GETA"#X10#"42"#X10#"Zc" 

»xii«"S”/xi»4E12,4//)J 

FORMAT 

FEXTR42(X10# 

"ATTEMPTED E X T RA POL A T I ON- Ml N I MUM AREA DOES NOT MATCH, RETURN TO INLET" 
//XiO#"OLDZ WAS ",Fl5,5#” OLD* W 4 S" # F i 5 , 5/ 3 J 
FORMAT 

FGEOMfXlSf" TuRBlNE GEOMETRY T A0UL AT ! ON "/ / /"RO *"# X 3 # "0 1 A , - 1 
" HEIGhT-IN",X2#"0I 4 .-OUT"# X2#"hEIGhT- 0*#X3,"ETAP"#X3# "LENGTH"# 
XI# "BETA- IN", XI# "BET A OUT"# XU "BL AOESPACE " # X3#"TH!CKtfO U8",X1# 

"THlCKBMAX"/{l3»aFi0.H#F7 t 3*F9,A#F8.2#F8.2*FU.«»F10,a#T«#F10*4/ 
/) ) * 

LIST GEOM(F0R $* 1 STEP 1 UNTIL STAGES DOCS# DiAmiCSI# HElGHTjCS], 

Dl A m0 £ 5 3 # hEIGHTOCS], ETApIfS], L II $ 3 # 0ETAIN£$3# bETADuTCSI, 

9 $ p AC E C S 3 # THICkBOICS]^ U0ts3# TH I C KBM A X I £ S 3 3 ) > 

FORMAT 

FSUMY(X20,mSummARy OF RESULTS Of CONDENSATION CALCULATIONS"/// 
H R0W"#X7#"T H #X7#"P"#X6#"VV«#X7#"W"#X6#"uA"'X7#"Y£"#X7#"YS"#vB# 
"Y"#X7#"RMEAN"#X6#"NTOTAL"//<I3#2F0,l*F8.2#2FB.i#3F9.5>2El? t A//] 
/)) 

LIST L SUMY (FOR $♦• 0 STEP 1 UNTIL STAGES DO£S# OT £ $ 3 # OPESJ# 0VV£S3# 
Ow£53# 0 uA £ S 3 # 0 YE t S 3 # OYStSl# OY£S], ORMEAnCST, ONTCS33)' 

LIST lAOAmch, CAlLC» HM A x # Hv*In. REl 8 # 40 SB ) # 

LIST LMAINIcuAO, TEMPO# PO, lENGTHB 3 ) 

LIST LMAIN?(m, R 0 # K v# NEUV# JCRIT, JINC, J# UB£S3)J 
LIST LMAIN3CB1# B2# Cl# C2# C3# Dl# 02# E 1 3 I 
LIST IMAIN4(ACP0# ACPI# ACP2# ARhO# ARhDI# ARHQ2)J 
LIST LMAIN5fCPL# APS, APS1# AP$2# A*2, Ak 21# AK4, AK4l)I 
LIST LMAlNSAfANG# AHG1# AHG2, A HG 3 # AHL # AHL 1 # AML2# AHL 3 ) J 
LIST LMAIN6(0IA1 I# 01 AID# DU?I# DIA20# BETA!# BE T A 0 , BL A DE SPAC r » 
THICKBU); 

LIST lmA IN6 A ( STAGE S » FO* S + 1 STEP 1 UNTIL STAGES On[R0TOR£S3# MAmI 
[ S 3 # WEIGHTIEST, DIAMDCS3# hEIGwT0[$3# E T A P J £ S 3 # LHS3* uB£S3# 
BETAINES]# HETAOUTCS}# B$PACE£Sj# Th I C * RG I CS3# T H I C kBM A x I £ S ] 3 3 I 
LIST LMAIn7cTWICk3MAx# p ATm# TC# Smp, STGMAO, ETaP# GR0UPMAX)? 

LIST LMAIn7A(PATm, TC# Sv.p, SIGM40, GRO’JPMAX); 

LIST LMAIN8(DmE, ERRORA, ERhqT# A A 1 » SUSPEND, N 0 S U R F ) ) 

LIST LMAlMQfS# p # T# VV# UA# w )} 

LIST L M A I N 1 1 ( T A w R , ha mb, RA^S)# 

FORMAT 

FA2("A2= M #E1A.7>; 

LIST lREST APT ( GROUPS, F r ' R I ♦ 1 STEP 1 UNTIL GROUPS OOCRLOCM, Ni.Cin 
, YSUM# TLDLO# W); 

FORMAT 

F"AIN1 £ X 3 , X2*# "INPUT CONSTANTS AND P A B A ME T E R S " / / * 3 # X9 , "U A 0 " # X 7 # 
"TEMPO" . X 1 0# "PU"# X6# M LENGTHR f VX 1# 4E1 2, 4// ) # 

F M A IN? £ X3# Xil , "M n # X10# "RO"# Xt r # "^V M # XB# "MEUV", X3, " J-CRI TTC AL W # X2 , 
" JINCREmEM"#X 1 1#”J M # *lD,"uP M /Xl#P£i? t 4//}# 
r^AIN3CXl#XiO,"Bi"#Xin#"^?"#XjO# M Cl H #xlO#"C2"#X10,"C3"#Xin,"01"# 
XlO#"02"#XlO,"ei"/X3#8El?.4//), 

r^AlN4CX3,X8#"ACP0 M #XP,"ACPl M #Xfi# M AC p 2"#XS#"ARHQ M ,X7,«ARMni".x7# 

"4RMn2"/X3#^E12.4//3# 

F A I NS ( X ^ , X 9 , " CP L " # X 0 , " S" # X 8 # ” A P S 1 H # X 8 # " AP S2" # * 9 # " ** 2 " , X 0 , 

"AK2r f #X9# ,, AK4»#xe#"AK4l"/X3#fln2,4//3# 
FMAIN5ACy■?#XR#"AHG"#v8# M A^G^ , ,Xfl, M AHG?"#Vfl# H 6HG3 ,, #X9#"AHL M #XA, 
"AHL 1 "#x«# "A hL2”# Xq# "AhL 3"/X3# pFl2 ,4// ) # 
F^AIN6(XB,X7,"i)IAlI”,X7# M Dl a10"#X7,"DI A2I"#X7,"0I A20"# X7,"BETAI", 
x7#"RET4n"#X?#"riLADESPALF",XS#"THlCKB0 M /X3#PEl2,a//), 

F m a I N R ( XT, X 9 , "OmE", X6# ’’EhrORA"# X?, " E R R D T " , X 9 , "AAl " , X5, "SUSPEND"# 
X8#"N05 l iPF"/x3#6E12*^/3# 

FMAIN10CXS#"XSTAH= M ,F1? # 6,X5' M DELTATSTAR=",F12.5^X?#"DY0Z* M #F14,^ 

/)# 

F«AlNtKx3,X4,"TAMBlENT H #X4,"HAMQirNT H #X8,"RAB$"/x3#iEt2,4//')# 

F m a I N 7 ( XT, X3# "THICKBmaX", X 8 # "PAT y "# X t 0# " T C " # X Q # " $ m P H # X6# "$IG m AO"# 
xB# M ETAP",X4,"GRnUPMAX"/x3#7Fi2 i 4//)J 


2-18 



FORMAT 

F KFST ART c xSi- "GROUPS"# X 1 3 » "I " » X 1 2 » H R L M # X12 # m Nl"#X6# "MU { STORE: "* X7, 

M TLlQun”>Xl?#"VV M /?J 1 4# 5E 14. 5/1*15* I14*2E 14, ?/)//)> 

FORMAT 

FAD AM CX2S » M ICr-AOAMS P AR A mE TE R S "/ / X5 # X 1 3 # H H ", X <? # "C ALLC " * X l 0 # 
"HMAX ",X6#”hmI N", XlO,"RELB M »XiO# M ARSe"/X5#6Fl A. 8/ / ); 

FORMAT 

FAREA(/"AMlN*"#E12.4#"^MlM="#ei2.4#"AEXIT::",Fl?,U); 

FORMAT 

FSTG( X5*X12# "PP"* X12* "VV"#X1 3#"T"* XIO* "CETA"# XlO* "GETA"# XIO# 

"KETA "#X6,"PHlP"/X5*7EiA.5//) J 
FORMAT 

FMAIS9CX15#"STATIC PROPERTIES AT INLET OF BLAOE ROH NO . "# I 2//X1 # 
xn»"P n ,Xll#"T"»X10»7VV'%X10, M uA"#Xli#"R"/Xlf5n?.A)J 
$ % 8 ICEADAMS 

COMMENT begin ICE-AQAMS; 

PROCEDURE BD X A ( Z , Y» DY); 

VALUE z; 

REAL Zi 

ARRAY Y # DY [ * 3 ; 

BEGIN 

LA0EL LA8ELC# labels* SkIPGSTART. skIpgroups# vanish# GSTARTI 
COMMENT 8EgIN Y TRANSLATION; 

FOR N* 1 STEP l UNTIL GRUljPMAX DH 
BEGIN 

N2* n+grgupmax; 

NLt N] «■ Y [ N 3 ; 

RLD[N]«- Y[N2)) 

end; 

W«- Y C EONS- 3 3; 
p* YCEQNS-23J 
T ♦ YCEQNS-ii; 

VV* YCEUNSIi 

COMMENT TURBINE OE S C K 1 p T I 0 N 5 

D I A 1 * OIA1I4-C0IA10-OIA1I )*Z/LEnGThB; 

DI A2* 01 A2I ♦ ( 0Ia20"0I A2 1 ) *Z/LENG t hBJ 

T h I C K 8 + THlCKB04(TMlCKBMAx-THICK«0)KCl-Z/LENGTHB)xAxZ/LENGTHPj 
A KE A A «- PI*(DTA2*2*DIAl*2)*U-THICK8/«LADeSPACE3/A; 

DARE A A* ?x(DlA2*CDlA?0-DlA2l ) -OT A I x Ot A j 0 -0 I A j I )>/(LEnGThBx("IA?* 
2-0TAl*?))-Ax(THlCKRMAX-THlCKBn3*(l-2*Z/lENGTHB)/(L^NGTHRx( 

HLAOESPAcE-ThICRR ) ) * 

C 0 T B •“ COTBt ♦ (COTBO-COTBI )5 <Z /lengths; 

5INB*- l/STRTt l+COT3*2 )> 

OBETAOZM S I NR #2 x ( COT BO -C OTB I )/LENGTHP)*COTB*(-l ) # 

COMMENT ***** CALC AXIA L VELOCITY; 

M A* rt X S I M B ; 

UA* O ARE A A + OBE TADZ ; 

COMMENT V IS FT*3/LR-M0LE ; 

V * VVxMJ 

COMMENT CAlC z AND CPv; 

B*-EXP(CRl*B2/T)/ML^LNCTn; 

C* EXP((C1*(C2*C3/T)/T)/.4L)) 

0*-EXP( ( 0 t ♦ 32 / T ) /ml ) > 

E* El J 

BD0T*4>(1-(B2)/(ML*T))/T; 

CU0T**CC2+2xC3/T)/(MLxT*2)| 

DU0T*-D2/(T*2xML>; 

0DOOT4.(C2X82)/(MLXT)-1)/T*2; 

CD00T«.(2xC2 + 6xC3/T)/CMLxT*3); 

DDQ0T*(2*D2) /(MLxr*3 ) i 
BPRIME4. BxBOOT; 

bpprime* bx(bdot*2 + bddot ) ; 

CPRlME* CxCOOT; 

CPPRIME> Cx(CnOW*CDDOT); 
dprime> dxodot; 

DPPRIME* Ox(DDOT*2 + DDDOT ) * 

zc* i + cc(E/v + 0 )/v+c)/v+B)/v; 

DZDT * ( ( (DPRIME)/V+CPRIME)/V48PRI w E)/v; 

oznvA-*((caxE/v* 3 xD)/v* 2 xC)/v^B)/v* 2 ; 


00000000 
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CPVO* ACPO + AC Pi xEXP< -ACP2/T ); 

XC1 *(ZC+Tx0Z0T>*2/< < < (5*E/V*4xD)/V+3*C >/V*2*R)/V*t ) J 
XC 2 *((TxDppRlME+ 2 xDPRlME)/( 3 xv)*CpRlM£*TxCPPRI M E/?)/V* 2 xRPRI M E*T* 
BPPRIME \ 

CPV* CPVO.>CR0/<MXJ))*C1-XC1+TxXC2/V)J 
MOO* AhG*AhG1xT*AhG2*EXPC-AhG?/T); 

DHGOOT* AHG1*AHG2xAHG3xEXPC-AhG3/T)/T*2I 

DHGDV*(ROxT/M)x(DZDV+Tx((DPRImE/v*CPRIME)/V+9PRIME)/V*?)/j; 

OhGDT * DmgODT*(ROxT/m)xcL>ZDT*( ZC-1 ) /T -2 x c ( DPR I ME / ( 3 *V ) *C PR I MF /? > / 
V4.8PRIME)/v-TxCCnPPRIME/( 3xV)*C p PRI M E/2)/V*8PPRIMC)/V)/j; 

COMMENT CALC RHOL^HTG/ANO SIGMAJ 

HG* HGO+(ROxT/M ) X( zc-i -T*( ( 0 PR I ME / ( 3 x V ) *C PR I ME /2 ) / V + BPR I ME )/ V ) / J > 
HI* AhL*Ahl1*T+Ahl2xT*2*AhL3xT* 3J 
HFG*(HG-Wt ) ; 

RHOL* ARH 0 ^ARHDlxT>ARHO 2 ><T* 2 i 
SIGMA* SlGMAOxC 1-T/TC)«5MP; 

COMMENT calc SATURATION PRESSURE and t; 

PS* EXP((AP$+APS1/T )/ML*ApS2 x LN(T )+LNPA ); 

LAMBDAO* ln ( P/P S ) i 

OELTAT* LAMBDA0xT/(APS2-LAMB0A0-APSt/CMLxT)}) 

COMMENT calc of association at p and TJ 
K 2* EXPC'C AK2 + AK21/T)/ML)> 

K«* EXP < ( AK4 + AK4 1/T )/ML )> 

K2PRIME* K2*K4x(P/PATM)*2x(3-2*K?xP/PATM}; 

N1PRIME*( SORT ( 1 +4xPx«2PRl ME/P ATM )«1 ) / ( 2 xP xK2PR I ME /PA TM ) } 

pi* pxniprime; 

COMMENT CALC OF ASSOCIATION AT PS AND T) 

K2PRIMES* K2^KAxCPS/PATM )*2x( 3-2 xk2xpS/PATM ); 

N 1 PRIMCS*C SORTC l + i»xPSxK 2 ^Rl MES/P ATM). n/( 2 x p sxK 2 P RIMES /P ATM) > 

pis* psxniprimes; 

lambda i * LNCP1/P1S); 

comment surface condensation; 

PWANOTL*- NEUVxCPV/CKVxGxV , ); 

tsat* t+oeltat; 
recf* PR4NQTL*( 1/3); 

TN* T*RECFxr*2/(2xGxJxCPV)*N0SURFxTS4T; 

IF TSAT>TR Then 
BEGIN 

TF*(BLADESHACE-THICkB)/12; 

SOA* 2/cTFxslNB); 

SOAU* 12/BLADESP4CE; 

REYNOLDS*- 2xTFx w /NE')V; 

hB* 0*023xKvxREYNOLnS*O.BxPRANDTL*D 4 4/C2xTF); 

0 Y R *. SOAxHBxVVxfTSAT-TR)/(HFGx ! !A); 

0YBd*(SnAD x HBXvv/( rt FGxU4))x(TS4T-TR*HAMBxCTSAT-TAMh)/HR) 

END 

ELSE 

O Y B * 0 YBf)* O; 

IF OELTAT>0 ThEN 
BEGIN 

HARS* KV/(RABS*2. 3 9XNEUV/SORT <GxROxT/M) ) J 
DYMS* 3 xyAqSxOFLTATxhAbS/( RABSxRHnLxHFGxUA 5 : 

END) 

COMMENT inHEn PI/PIS < 0 VAPOR. IS SUPERHEATED; 

IF LAMBUAKO THEm 
IF CARE C i 1=0 Then 
GO TO StfIPGRDuPS 
ELSE 

BEGIN 

RCRIT* O; 

GO TO larelc; 

EN ); 
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COMMENT CALC OF NuClEATJON rate, 

NIFF * NO 1 

PEFF«* PU2x(P-Pl)xS0RT(2); 

RCRI T* 2*SIG^AxM/(RHOL*ROxTxLAMBOA1 ) ; 

ZO* NEFFxSQRTcRxGxSIGmAxnCixM/pI )/(RHH|_x(R0xT)* 2)J 
7W lAxPTxN0x(SlGMAxM/(rt0xT))*3/( 3 xRmDL*?xM); 

junr*. pxpf FF*Z0*EXP(-Z1 *0.5 /l AMRO a U? )X^XP(-Z1 xo ,5/LAMBDA 1 *2 3 ; 

T F C A SE C 1 ] *0 ThF.n 

go tu skipgroups; 

NEU«- JnaixVVxx/UA; 

IABELC : 

COMMENT calc OF UROP GRCwT" and number I 

if GRnuP$<2 then 

GO TO gstart; 

FOR I ♦ 1 STEP 1 UNTIL GR0UPS-1 OH 

begin 

RU RLCIU RLO C I ] ♦ RlD C I 3 ; 

if lamboako.i then 

GO to LA9ELG; 

if riso.sxrcrit then 
begin 

NLtn* DRLDH3* RLDC 1 3 ♦ RL0CI3* OJ 
Gfl to vanish; 
eno; 

LABELGI IF R I > 0 THEN 

begin 

0TL[I]^C1-RCHIT/RI)x0ELTAT; 

DRLL) C I )*■ KVXJTLC I)/( (1^2, 3BxneUV/( RIxSORT( GxROxT/M) ) ) 
x ( UAxRHOlxRI x hFG ) ); 

end; 

VANISHI dnli I )+ o; 

WRCIU AxPIxRHOlxRI * 3/3 ; 

MYr I H WRC I 3 *Nl f I 3 ; 

DMY[ I 3 * '4xPIxRhOIxHT*2*DRlO[I3xNI[I3; 

eno; 

GSTART* 7* GROUPS; 

IF CASE [13*0 THEN 

QRLDC I 3«* OMU I 3*“ UNLC I ] •» 0 

ELSE 

BEGIN 

OHLOtl ] *- 0 ; 

ONL[ I )«■ NE u; 

RLCI 3* RLO C [ 3 ♦RLOC I 3 '> 

*HU )+ «xpixRHOLxRL[ 13*3/31 
OHY[ T 3 *■ WRC I ] xONL [13 5 
MYCI3* wR[ I JXNLCI3 5 
ENO* 

SkIPGSTART j FOR I* GROUPS^! STEP 1 uNTIl GROUPMAX 00 
URLQC T 3*- Oh Y [ I )* OUL [ I 1 * 0; 

Y 5 U M * OYSUM* TL SUM* 1 ) Y Su M N* Y SUMN * OJ 
FOR I#- 1 STEP 1 UNTIL GROUPS 00 
BEGIN 

DYSUMN* 0 YSuhN + DMYC I } ; 

Y Si )HN 4 - YSuPNfMYCn* 

TLSU** TLSum + mycI jxQTLt I 3 ; 

END* 

skipgroups* dysum* oysumn+uyb+uybo^oyars; 

YSUM4- Y5 (YN4-YB + YB0 + YAB5; 

TL* IF Y 5 UM = 0 THEN T ELSE T ♦ TlSu M / Y SUM; 

otlio4-(tl-tlold3/h; 
x* i-ysum; 
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COMMENT FLO* EQUATIONS* 

TZ* 1 *T *f>ZDT/ZC J 

vz * t - vxozov / zc ; 

P X V N* P*XxVV*ETAP* 

XCP V T * XxCPV*T> 


DFLO.. H PXVN*CW2G*TZ/J + XxTXVZxOhGDT + TZxXxV*OHGDV>-«ZGxX.<TxOHGDt; 

DUvOS* DELO/I PXVNxC X*TxVZxDHf>OT*TZxX*V*DHGOV) ) ; 

j f DELDS<OME and Z<ZMINxL E NGTHR then 

OEuSS ; 5 ,S“ 55 K"«U«.Y»U«.Crt-<TLI»).TI.l-l)»-Or SU »/«.. 1 «.T.V 2 . 

OHGOT + XxTZxVxDhGOV 5 ); 

Dvli U VVX(OH/ 2 *OAREAA*OBETXOZ*DYSUM/XW 

0 P,.-PxCH;>G/PXVN)*ON/*J 
OT*. Tx(OP/P*VZxDVV/W)/TZ< 

COMMENT BEGIN INVERSE Y TRANSLATION; 

C ° F0 p N * 1 STEP 1 UNTIL GROUPMAX OH 
BEGIN 

n2» n*groupmax* 

YEN)* NLtNlI 
Y(N 23 * RL.OCN 3 ; 

OYENU ONLCN 3 * 

D Y [ N 2 3 * ORLD t N 3 I 
END J 

YCEQNS- 33 * W* 

OYEEON 5 * 3 > Ow* 

Y C E 0 NS *2 3 * P* 

DYfEGN$» 2 ]* OPJ 


YCEQNS-13* TJ 
UYEEQNS-n** DT* 

Y [ EQNS 3 * VV* 

DYCEONSU DWJ 

COMMENT END INVERSE TRANSLATION* 

END BOXA* 

PROCEDURE BOXBcZp Y $ DY)* 

VALUE Z* 

REAL Z* 

ARRAY Y# DYE*]* 

BEGIN 

label allsame* 

IE JD 0 T<JCRIT ANO CASECI ]*0 THEN 


IF 


GO TO ALLSAME* 
WILSONO THEN 
WILSON* IF JDUT>JCR! 


T 


then false else true 


ANO JDOT>JO? AND JD0T>J01 


and 


ELS «lLSON» IT JDUT < JOLO *ND JDOTxjOl ANO JDOTOOZ THEN 

false; 

IF WlLSONO THEN 
BEGIN 

IF * I L SON THEN 

gd to allsame 

ELSE 

begin 

I* GHOUPSJ 
CASE! n* 1 * 

JSC I]* DOOT* 

RLUC I 3* NCRIT J 
GO TU ALUSAmE* 


END* 


JDOT > jOLO 
TRUE ELSE 
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ENU 

ELSE 

IE WILSON Then 

begin 

GROUPS*. GROUPS* l j 
GO TO AlLSA^e; 

end; 
i* groups; 

IF J 00 T>JS[ I]x JINC Then 
BEGIN 

GROUPS* GNUuPSM; 
i* groups; 
case t IU i ; 
jscn* J 0 U T ; 

RLHf I ]* RCHIT; 
eno; 

allsamEi if GRnuPS>GROupMAx then 
groups* ghqupmax; 

YB* YB*HxOYBI 

yho* yqo+hxdyqo; 
yabs* yabs+hxdyabs; 

Y 51 JRT 4 C E «■ yb*ybo*yabs; 

NATOMIZE* 3 *YABS/( 4 xPIxrhOLxRABS* 3 ); 
J 02 * JOI; 

jui* jolo; 

WILSONO* WILSON; 

julo* jonr; 

TLOLO* tl; 
cuunt* COuNT+i; 
olOw* w; 
oldvv* vv; 
olop* p; 
olot* t; 
oloz* z; 

OLODELOS* DELOS; 

OLDDHGOV* DHGOV; 

oldpxvn* pxvn; 

OLOOHGOT* DHGDT ; 

OLDVZ* vz; 
uldtz* tz; 
olox* x; 
olov*. v; 

OLD ARE A * AREAAXSInb; 

OLODELTAT* DElTaT; 
o l o h r g * hfg; 
olddyoz* o; 

EUR I*. 1 STEP 1 UNTIL GROgPS -1 OH 
OLUOYOZ* OlODYOZ*Om Y [ I ] ; 

ENO bqxb; 

PROCEDURE BOxCCZ# Y > QY); 
value z; 

REAL Z; 

ARRAY Y / DYC* 3 ; 

BEGIN 

FORMAT 


»7 X ^n X13 P ' X13 ' T ,X3*"5P. V0L,-V”,X1S#"W" # X7^U-AXIAL , S) 
# Z - C0MPRESS f, /X5*6ElA,5//) / 

FORMAT 

FC ^=3' Xl? '" DP "' X,? *"' JT ”' Xi: ?»’^ VH 'Xi?,"OW".X4, — (UP/OT)/P-.X1 

*-ARP*A",x9,"0A/A-/X?.7CU.5//)l 1 UF * X1 

FORMAT 

r "JOOT- X Xs’ , »ScI?jT^, 7 r TLIOUI ' 1,, ' X7 '" LAM8C,40 "' X7 '" L * MUn * 1 "'XlC 
juor , X5, RCRI T I C AL # X9# m DN/0Z m /x5#7F!4,5//); 
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FORMAT 4 * „ V7 .,*;>PRTMr«,Xtl* M HF&">XlO*"CPVO H #Xil 

FC4cxs,xi?, ’’ k2">xi 2 * 7 '" K 2" RTMt 

# "CPV'%X9*”SlGMA M /X5'7Ei4.5/7)p 

FORMAT «teT..orH vn "PARTIAL P 1 « p x 7 , " G 0 A L I T Y " p X 3 p 

FC5(XS, -TOTAL M0IST ^^"' nonD^” i^."K?PRl«E S AT " . X7 . "S I NB^ T A" / 
-v!EAN RADIUS". X3. "TOTAL DROPS”. X3, KPPHl «- 

X*5#7F14,S//)i 

FORMAT 

rCSA(X5.XS,"Y-EQURI6’'.Xl2."Hf.".X12."RU"'Xn."HFG".XlO."0«-LD". 

F0R ?M<XS.X*. -COUNT”. X3,”STEP SIZE H", X» 3. "Z"/X5, I 1*. 2E 1 « . 7// , J 
FORMAT . tjn Dtf v , « MnT C ryRF «, x« , "NUMBER**# XB, M RA0I U$ H , X*# 

F0R ?^ ( XS,X4."YB.Y BLADE". XA.-YBOsY C A SE ” , X 1 , ” Y A B S . Y *T0«1 ZE D” . X5 . 
-YSURFACE".X6,"NAT0MIZE"/X5,S£1«.5//)I 

XU ]l°[ STEP* 1 T uNT R C 6R0UP°Rl NT DDE W *UU. NttH. RLE 

'ii nMYtn* nNLtn# oRiotni)' 

CQMMENT^^^^pCALCULATE GROUPS* 1 ELSE GROUPS 

YEQUILI&* YSUM<-CPVKDELTAT/MrG) 

PL)OT*'"COP/P 3 * U A , 

NTOTAU** YTOTAL^ OJ 

FUR U 1 STCP 1 UNTIL GROUPS-! D" 

BEGIN fl , t 

NTOT AL*- NTUT AU^NLC M > 

Y T 0 T A L *• YTOTAL + MYCn; 


£NUJ 

WRITE(PRINT£PAGE3) J 


WRI TE ( PR I NT p F CO# 
WHITE<PRINT# FC!p 
HHITECPRTNT# F C 2 , 
WRITFCPRINT, F C 3 p 
; 

wRlTECPRTNTp F C 4 p 

WRlTEcPRTNTp 
WRITE(PRTNT, FCS*p 
rR1TE(PRInTp FC 7 > 
WHITE(PHINT, FC6p 
COUNT*- OJ 

callo if lengthb- 
IF Z>LFNGTH8 THEN 


COUNTp h, Z)J 
p , Tp VVp Rp U 4 p ZO> 

DPp 0 T » D V V # DR p PDOTp AREAAp 
DELTATp TLp LAMBDAO, LAMBDA!, 


DA ) i 
JDOT p 


RCRITp NEU3 


K2p K 4 p K2PRIMF, HFGp CPVOp 
X. RMfAN p NTOTALp 

HFGp DELOp OELW' 0Et05)J 


Y5UM, 
YFOUILIBp 


CPV, 5 I G M A ) J 
K2PRIMESp sinb>j 


HGp HLp 


LC 7 ) J 
LC* ) J 


7< CALLC THENaFNGTHB-Z) ELSE CAlLCOJ 


BEGIN 

YA9S* YSURFACEJ 
YB*- YBO* 0 * 

OT t S 3 *■ T? 

OP t S 3 <■ P/ 

Q V V £ S 3 * VVJ 


OH t S 3 * HJ 
ouac s 3 * ua; 

0 YE t S 3 ♦* YEUulLlfi^ 
OYSCS3*- YSURFACEJ 
0 Y C S 3 YSUHJ 
ORMEANtSl* RMEANJ 
ONT t S 3 * NTUTALJ 
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IF GR 0 UPS >0 THEN 

FDR I** 1 STEP 1 UNTIL GROUPS Dq 
RLOC I )«■ RLC I 3 * 

COSB* COSCyETAOxPI/IRO); 

IF ROTQR C S 3 a 0 THEN 

PHI «■ ARCTAN((rtxl'0SB-URtS + l))/UA)xl80/PI 
ELSE 

PHI* ARCTANC (W*COSB+UBt S] )/UA )*1 80/PI ) 

BE T A I 4* 90-PHi; 

5* S ♦ I 5 

if s>stages then 
go to exit; 

BETAINCS3*- BE T A I ; 

GO TO NEHSTAGE; 

end; 

END HOXC; 

PROCEDURE BOxDCZ# Y# OY); 
value z; 

HEAL Z; 

ARRAY Y # DYC* 1 ; 

BEGIN 

FORMAT 

FD1(XS# M FATLED AT Z= M *E15»5# X5, r H=" »E15«5)J 
FORMAT 

F 02 C//X5#Xl3# f, P , SXi3# M T",Xi2#"VV",X13,"W,X7, w u- AXIAL "#X6. 

"MACH H ,X3, ,, Z-C0MPRESS H /X5,7E14,5//)J 


F U R M A T 

FD3(X5#X1?#"DP m #X1?#"UT h #X11,"DVV m #X12#’’Dm ,, #X 10# '•□FLO'S XI n. 


"DELE'S X 1 "YSUM"/X5#7E14 .5// ) 

FORMA T 

F04CXS,"TL* "#CU.<i#x:># ,, TLOLO» 
wRITE(PH1\T# F D 1 # Z # H ) , 
WW!TE(PRTNT, F U2# Pf T# vv, w, u&# 
WR!TE(PRTNT# F U3» DP. DT# UW, Dw, 
mhitecprtnt# ro9# Ti# tlulD)# 

GO TO exit; 

END HOXDi 

comment main program ; 


#El<S*/ 3 ' 

MACH, ZOJ 
DFLUf DEL*# 


Y 5 uH>; 


G* 32.17J 
NO*- 2,732P*26) 

PI* 3,191592653) 

ML* 0 , 939299982 ; 

J* 778 ; 

RO* 1595 ; 

PATM* 2116,8; 

READ C RE AOER * /# H# CAlLC* HmAx# HMIN# RELB# A 8 $B# 0 M£# £RRORA, E^RDT * 
A A 1 , RESTART, HILSONO, E XTR A POL A TE 0 , SUSPEND, NOSURF# JCRIT, JTNC, 
GROUP MAX# 81 # B 2 # Cl# C 2 # C 3 , Di# 02 # r l# Ak 2 # AK 21 # AK 9 # AK 91 . 
ACPO# ACPI# A C P 2 # ARHO# ARHQ 1 , ARH 02 # A HG# AH G 1 # AHQ 2 # AHG 3 # AhL# 
AHL 1 # Ahl 2 # AHL 3 # APS# APS 1 , A PS 2 , M# TC# SIGMAO# SMP, CPL# KV# 
NEUV# TAMB, H A M B # RABS# UAO, PO, TEMPO ) ) 

RE ADC READER# /# LMAIN 6 A )) 

IF RESTART THEN 

READCREAOER#/# LHEST ART ) # 

CLOSE ( RE AOE R , RELEASE)) 

HRITECPRlNTtPAGE)); 

WRITECPRINT, FGEOM, GEOM)) 

hritecprintcpage] ); 

CALLCO* CALLC) 

J 5 C 03 * JCRIT/JINC; 

LNP A * LN(PATM); 

INITIALI P* PD) 

t* tempo; 
ua* uad; 
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COMMENT CALCULATE initial specific volume; 
if restart THEN 
GO TO skipv; 
etap* etapi c n ; 

K 2 * EXP C C AK2 + AK21 /T ) /ML); 

ZC* 1 /( 2*N1PR IME ) ; 

W* ZC*RO*T/<P*M)J 
L ABEL V I V* VVxm; 

Bi.-€XPC(B1*B2/T)/ML*LN(T))I 

C EXP((C1+CC2 + C3/T)/T)/ml); 

D — EXP<CD1*D2/T)/ML)> 

E* Ell 

ZCE* 1*< ( (E/V*D W*C )/V+B)/V| 

IF A8S(ZCE-ZC )>0.0005 THEN 
BEGIN 

ZC* ZCE) 

V V * ZCxRO^T/(P*M5I 

GO TO labelv; 
end; 

** uAO/SIN(BETAINC 1 3kPI/IBO) J 

vv* v/m; 

X* 1-YSUMJ 

B00T*-a*32/(MLxT))/TI 

80D0T •■ ( (2*B2)/( M L K T ) • 1 )/T *2* 

CD0T*-(C2*2xC3/T)/(MLxT*2)J 
CDOOT**( 2xc24-6*C3/T )/( ML x T*3 ) ) 

OD0T*-02/(T*2*ML)J 
0DDGT*(2x02)/(MLxT*3)J 
BPR I ME** BxSOOTI 
BP PRIME* 8 x(B00T*2+B0D0T)I 

cprime* c*coot; 

CPPRIME* C x ( COO T *2+CDD0T )I 

□PRIME* DXDOOTI 

OPPRIME* 0x(DDDT*2*U0DOT); 

DZDT«-(( COPRIME )/ V + CPRI ME )/V*RPRIME5/v; 

OZOV*--(((ft x F/V + 3xD)/V*2 K C)/ v * 8 ) /v *2) 

SHlS?l‘3SS^iHo^Tlfhs<OZoUcleit>/?U»KD?2l2y^ US^CPRIMEXZWV* 

!SIi E ,/v5«<(n?PRlHC/(3KV)*CPP»»lMe/2j/VBPPRlME)/V)/JI 

PXVN*- PxXxVVxETAP; 

TZ* 1 + TxDZDT/ZCI 
VZ* 1-VxUZDV/ZC; 

PhIV^ xxvxdhgdvxj/cpxvn); 

PHlT^fTxXxDHGDTx J5/PXVNJ 
PHIP#»(PHI VXTZ*PHI TxVZ }/(PHlV^V7) 1 
K ET A *■ 1*(PhIV*VZ)/(PhIT-TZ)I 

CET A «. XxDHGDT-XxvxDHGDV/C CKETA-1 jxT)I 

PH I G*- XXC0HGDTxvZ*VXDHGOVxT//T )l 

GETA.CPHIGXM/ROVCTXXXOHGOT/PXVN-TZ/J); 

T#. TEMP0-W*2/<2XGXJXCETA ) 1 

VV* VVXC T/TEMPO)*C l/( 1-KETA) )I 
V «■ V V x M I 

PP* pQx ( T/TEMpO ) *PHI pl 

B^-EXP(CB1*B2/T)/ML*LN(T) >; 

C- EXP(CC1*(C2*C3/T)/T)/ML)I 
□ •■•EXP ( C01*02/T)/ML)) 

ZC- E li<CCE/V*D5/V*C>/V*B)/V; 

P* ZCxROxt/CMxW); .f-u, P H I P ) J 

WR I TE ( PR I NT i FSTG# PP# VV# T, CETA, GETA, KETA# P ) 
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SKIPVI S * OJ 

ot[5]4. t; 
opcs]* p; 
owes)* vv; 
oncsi«* h; 

ouacsi* UAJ 
0 YE C S ] * YEOijlLlP; 

0 YS C 5 ) * YSURFACE; 

Q Y [ 5 ] * YSUMJ 
URMEANCS]* RmEAN; 

ONTCS1* NTOTALJ 
$* 1 \ 

betai* betatncu; 

for i* i step i until groupmax do 


BEGIN 



N 2 * GROUPMAX 
CASEf I 5* o; 

+ 1) 




FCN23* FC H* 

01 




end; 




IF 

restart then 

FUR I* 1 STEP i 

UNT I L 

GROUPS 

on 


casec n* i ; 




IF 

restart then 

FOR U 1 STEP l 

UNTIL 

GROUPS 

00 


BEGIN 


Fin* nlch; 

N2 + I *GROuPhAXJ 
FCN2U RLOt I 3; 

RLH[ I ] * 0? 

ENOi 

groupo* groups \ 

NE^STAGEi Z* Oi 

D I A 1 1 * 01 AMI t S] -ME I GHTI t S 
DIAUJ* OIAmO[ $]-hEIGhT0C$3j 
01 A2U 01 AMtCsI+HEIGHTIC sT> 

0 1 A ? 0 * UI AMOCSI+hEIGhTOCSI J 
BE T A U* HETAOUTCS]; 

BLADESPACE*- BSPACtCS]) 

THICKRO* THICKB0ICS3; 
lengthb* ntsi; 

ETAP* ETAPl£S]> 

THICKBMAX#* THI RMAXICSi; 

hritecprintcpaged; 

HR ITE( PRINT, FAOAM, lADAm)J 
WRI TE ( PRI NT » F M A I N 1 # LMAINUJ 

*RI 7£( PRINT# FMAIN2# LMAIN2) J 
KRITECPRINT* FMAIN3# UM A I N3 3 ; 

WR t TE( PR I NT , FNAINft# IMAJN4); 
rtRITECPRINT, FMAIN5# LMAIN5); 

WRI TEC PRINT, F M A I N 5 A # LMAIN5A) J 

writecprint, f m a i n 6/ lmain6); 

WR I TE ( PR I N T , F M A I N 7 > LM A I N 7 ) J 
WRITECPRINT, F M A I N8 > U ^ A I N8 ) ; 

W R i T £ ( P N I N T » FHAi-Nii, LMAjNU)J 
COMMENT CALC OF. CONSTANTS AND INITIAL CONDITIONS; 
SINS* S I N C K ? * P I xBC T AO/ i 80 > J 
COTOO* C0S<K2VS!NCi 
SINS* SINCK2* PI xOETAl/1 00 )> 

C 0 TO I * C05(i<2)/5INBi 
w* ua/sinb; 

EONS* 4*2*GRCUPMAX> 

FOR I* 0 STEP 1 UNTIL 100 00 
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BEGIN 

z r * i / ioo ; 

014 i «■ oiai i + coiaiq-cim i >* zf; 

0 1 a 2 «■ DIA 2 l + CD ! A 20 - 0 ! A 2 l ) xzr ; 

THICKB- THlCKBO+<THICK3MAX-THlCKBn?x<t-Znit4xZri 
ARFAA*- PIx(DIA 2*2"DIAW2) x ( 1*THICK8/BLADESPACE)/4J 
C07B*- COTRI+CCOTBO-COTelJxZFJ 
SINB*- 1 /SORT { 1 +C0TB*2 ) > 

a save t i l*' arEaaxsinb; 

IF ZF = 0 THEN 

AMIN* AREAAxSIND; 

IF AMIN>AREAAXSINH them 
BEGIN 

AMIN* AREAAXSIN*; 

ZMl N* ZF; 

end; 

END J 

KRIT£(PRIMT# FAREA, A M I M ^ Z^IM# A$AVEtt003^J 
COMMENT INITIALIZATION BEGINS! 

ENTER ICEt WRITECPRINTCPAGE3 >> 

WRITE<PRIMT, F M A I N9 * LKAIN9); 

FDR 1 * l- STEP l UNTIL GRGUPMAX 00 
BEGIN 

N2* GROUPMAX+i; 

OlDCASEC I 34- CASECI )> 

FCN21* Rl[!W 
SLOCIU O; 

rci 3 * nlc n; 


end; 

FCE0NS-3> w; 

FCEQNS-2]* p; 
rCEONS-lH TJ 
F[EQNS> vv; 

FOR I* 1 STEP i UNTIL EONS l>0 


OL OF [ !]*• fc n; 

OlDGKOuPS *- GROUPS ! ri 

labelicei calic* if lEngThh-z<c allc then c lE ngthb*z ) else callcoj 

ICEAOAMS(EQN S> 7, H > CALIC, HmAX, H«IN, RELR, *RSH, F * B0XA, B OXR, 
BOXC , B 0 XD } ; 

COMMENT iR1 THIS SfcTIUN CHECKS AND CORRECTS InlET OR EXTRAPOLATES PAST 
THE throat TO SUPERSONIC CONOITIONJ 


BEGIN 

RfAl MUMMY } 

LAREL M2CHANGE# REXSa 5KIpZ> ADJUST GEOMETRY > A2CHANGE) 

PHI v*. OLOXxOLO V*OLODHr,Dv x J/OLOPXVM; 

phIT* OLOTxnLOXxULODWGDTxj/OLDPXVN J 

p H! p 4 . ( PHtvx0LmZ + PHTTx0L0V,')/{PHTV + 0L0VZ); 


K E T A •- U(PHlV + OLOVZ)/( p HlT-OLt)TZ); , 

C E T A «■ OLnXxOLDOHGOT-OlDXxnLOVxDLOOHGOV/C CKETA-1 )*OLDT ) ; 

PHlG«- OLOXxCOLOOHGDTxOLOvZ>OLDV xn LOOHGOv x niUTZ/OLnT); 
GETA*(PHT GxH/RO )/( DLDTxOLDXxOlODHGDT /DL0PXVN-0LDTZ/J3 ; 


CCRITSQ* CixGETAxROxOLOT/v; 

PhIO* OLOTxOLnVZxOLDOHGDT + OLOVxOLDTZxOUDOHGOV ; 
LETA#. jxniDHFG*OLDX/(OLDPXVNx(PHlT-aLDTZn; 

HET A* QLOHFG-LETAxOLOV^OLOOhGDv/CkETA-I); 


TO * OLDDELTAT; 

RExSt DYDZ«- (OLnDYDZxTD/DLDUELTAT jxSuSPEND; 

X S T A R* OlOX-DYDZ«( ZMlNx L ENGTHH-nLOZ ) ) 

TSTART*(1*OLDw*2/(2xGxJxCFTAxOLDT)*HETAx(OLDX-xSTAR5/(CETAxOLDT)) 

/< 1 +RO x GETA/ C 2 xhx J xCETA) ) ! 

V5TARV^CTSTARTx(XSTAR/0LJX)*LETA)*(l/(i-KETA)); 

P5TARP^(TSTART)*0L0TZxVSTARV*(-0LDVZ) J 
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W5 T AKw + SQRTCCCRlTSQXTSTART)/CLDw; 

A STAR A*- VSTARvxX5TAR/(rtSTARwxOLDV); 

T + OLDTXTSTART; 

PS*- EXPC ( APS*APS1/T)/ML+APS2*LN(T )+L^PA) j 
LAMBDAO*- LN(PSTARPxQLDP/P5 ) \ 

DELTA T*- LAHBDAOxT/c APS2-LAMBDA0-AP51 /(MLxT > ); 
TUS+COIOOELTAT+DElTAT )/ 2 > 

IF ABSCCTDS-TO)/^LOOELTAT)>ERRDT then 
BEGIN 

TD* TDS; 

GO TO REXSJ 
END) 

W«ITE(PR!NTIPAGE] )) 

write<print> r m a i n i o * xstar, oeltat# olddydzu 

IF EXTRAPOLATED ThEN 
go to aqjustgeometry; 

IP AB5c ASTARA-AMlN/OLOAREA)>ERRORA Then 
8E G I N 

U AO*. UAQxAMIN/C ASTARAxOLOAR^A)! 
wRITE( PRINT, PEXTRA2, OLDZ* OlDW>; 

GROUPS** 0 / 

FOR t*- ^ STeP 1 UNT-L GROU°MAX DO 
PLCIJ* CaSECIU NLCt> o; 
wIlSQNQ* EA L SE? 

GO TO initial; 
end; 

EXTRAPOLATED*' true; 

OLO ARE A «- AmIN/ASTARAI 

if Z H j N < o , 9 3 AND ASAVfC 1003 /Am jN>1 .01 TH^N 
BEGIN 

A2 * ( l + A A 1 ) x a M I N ; 

FOR I*- 100«ZMIN STEP 1 UNTIL 100 DO 
IF A $ A V E c I ] - A 2 >0 THEN 
BEGIN 

*2*-' ( I-< A5AVEC I3-A2 )/ c ASAVern- AS A VEC I -i ) ) )/140 )X 
lengthb; 

X2*. XSTAR-SUSPEN0xc0Y0Zxc1-ZMIN)xLENG7HB)xDELTAT/ 

olodeltat; 

K2*. S0RTC2x(AAi)/(3-KFTA)Ui; 

GU TO M2CHANGEJ 
end; 

end; 

m2*, if ASAVEC1003>AmXN ThEN U SORT ( 2 x { C A $A VE C 1 00 ) /AMI N- 1 ) ) / c 3* 
KETAn else j; 

Z2*- lengths; 

X2*.-SuSpE nDxClDDYDZx( l • Z h * N ) xlEN gTHCxD^LT AT /OtOOEuT AT+XST AR; 
M2CHANGE: T2* OuDTxfl +0 l0n*2/(2xGx JxOlOTxCETA > +hE T A x ( OLDX • X2 )7(CETAx 
OLOT )>/( 1 + GETAxR0xM2*2/( PxmxjxCETA 5 } ) 

K 2 *. M2x50RT(GeTAXR0xGx72/M); 

V V2 *■ 0 L 0 V V x C (T2/CJLDT ) * < x2 /OLOX ) * LE T A )* C 1 / ( 1 -KET A ) ) ) 

A 2 *- 0LDAREAx0tDW x VV2xx2/(nL0VV>tUL0Xxw2 ); 

WRITE(PRINT, F A 2 * A2)J 

IF Z M I N <0 * 0 3 AND ASAVEC1G0}/AmI\>1 .01 THEN 

begin 

IF(A2*AmIN*( 1>AA1 ) >/A2>ERR0RA THEN 
BEGIN 

M2*- W(M2-t>xSQRT(AMlNxAM/(A2-AMlN))*0,99J 
GO TO M2CHANGEJ 

end; 

FDR I*- lOOxZMIN STEP 1 UNTIL 100 DO 

begin 

IF AS A VE C I 3 *A2>0 THEN 
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5KIPZ I 


BEGIN 

Z2*(U-(ASAVEtn-A2)/(A$AVEtI3 


•ASAVEtl-n ))/100 


}xLENGTH0 J 
GO TO SKIPZj 


END 

else 

Z2«- LENGTH*; 


END J 
Z* Z2I 
T ♦ T?; 

W* *2 f 
VV* V V 2 J 
v •* mxvv; 

8«--CXP< C Bl +0 2/T ) /ML ♦INC T 3 3 l 
C* EXP((CI*(C2*C3/T)/T)/ML1J 
o*--expccoi*d2/T)/ml); 

Z+ Ell 

ZC ♦ 1 ♦ ( ( C E/V+Ol/V^C )/V + B 3 /v; 
p* 7 c*po*t/\/; 

p$«. EX P( C AHS+'ApSI/T )/ML + ApS2 x LN( T 3+LNPA3J 
LAMBDA0* LN(P/PS)I 

OElTAT* UAM9DAOxT/(APS2-LAM0DAO-APSl / CTxMU 3 ; 

x* X2; 

Y5IJM* i - X 2 I 
IF OL D X < 1 THEN 
BEGIN 

FOR U i STEP 1 UNTIL GROUPS-1 DO 

Run*- RlC < l-X2)/( l-OLOX))*C 1/3)1 
YBO* YBD*( 1 - x 2 )/( 1 *OLDX ) J 
Y 8 *■ Y 8 x ( 1-X2) /( 1-OLOX) I 

yabs* y ahs x c 1-X2) / (1-olox } ; 

END I 

tlsum* o; 

FOR I*- 1 STEP 1 UNTIL GROu D $-t DO 
BEGIN 

M y C I 3 *■ NLC U*4*PI xRhHlxPLC I ] *2* (RLt I 3-RCRI T )xOELTAT/1 
) 

T L SU M «* tlsum^myc n; 


TLIUD* TL* IF Y S U H 3 0 THEM T ELSE T+TLSUM/YSUM I 
WRITECPRINTCPAGE3 >1 
WRITECPRlNT/ FEXTRAt# LEXTRAl)Jc* 
writec.print, fextra, lextraji 
GO TO ENTERICEI 
END J 

SINB> COS(PI X BETAO/1SO)/COTBOI 
Z* 01 
T* T2I 
W* W2 i 
V V * V V 2 1 
V* MxVVJ 

B*.-EXP< CB1+B2/T )/ML+LNU> }> 

O EXP< CC1 + (C2 + C3/T)/T)/HL)I 
0*-EXP( (01+02/T )/HU I 
E> EU 

zo i+ccce/v^o)/y+C)/v+b>/v; 

p* ZCxFvOxT/VJ 

PS*. EXPC(APS*APSi/T)/ML^ApS2xLN(T3+LNPA)l 

LAM80AO* LN(P/ p $>> „ 4 .. 

OEUTAT*. lAM8DAOxT/cAPS2-LAMBOAO-APS1/(TxML) )> 

X* X2I 
YSUM4- 1-X2I 
IF OLD X < I THEN 
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BEGIN 

for u i step i until ghou^s-i ou 

ftLCH* KLCnx((l-X2 5/M-CLDX5)*Cl/3>; 

Y A B 5 *■ YSURFACO YSURF ACE x { 1 -X2 ) / C 1 -OLD X ) l 
Y8*. YBO*- 0; 

end; 

UA«. WXSIMBj 

QT[$J> T 5 ' 

0 ?CSJ* P? 

owes:*- vv; 

owcsiv k; 

QUA [S 3 * Ij A j 

OYC ( S 3 * YEQUILIB^ 
oyscs:* ysurface; 
or:su ysuh; 

ORMEANtSl*- RMEANJ 
GNTC 53 * NTOTAl; 

CUS8* CO$( 5ETAOXPI/1BO); 
ir ROTOR t S ] »o then 

PHI* ARCTANCi HxC OSB-'JB C S* 13 ) / ( HxS I KB >) x\ OO/PI 
ELSE 

PHI*. 4 RCTAN(CHxC 0 SB^U^rS]>/(WXSlNR))xiB 0 /P|l 
HE T A l * 90 -PHIJ 
5*- 5M 5 

WHITECPRTNT[ p AGE] )i 
WRITECPRINT » rrxTRAl# LE*TRA1)5 

wkitecprint# efxtra, lextraj; 

IF S>5T AGES ThEN 
GO TO exit; 

RETAIN T53* BE T A I ; 

TLSUM*. o; 

FUR I*- 1 STEP 1 UNTIL G.RUijPS -1 D n 
BEGIN 

M Y ( I ] ** NLt IT xa«PI XKHULXRLC T ] *2X (RLC I 3-RCRI T ) xOElT AT /3; 
TLSliMf TLSijm + MY'C I ] ) 
end; 

TlOL 0 * H* IF YSUHsO THEN T EuS E T *TL SUM/ YSUN 5 

go to nfv stage; 

AD JUSTGEOME try j IF A B$ ( A M I N /OL<) A RE A - A S T A R A ) >E RRQ* A THEN 
BEGIN 

Te«.(THTCKB^AX-THlC*Hn)x7MIMx(I-ZMlN)*4*THICKB0; 

T BR*- TR-0 # 7x( ASTARAxOLOARCA/AMlN-l )x(BLAOESPACE-TB I J 
THICKB^AX*. THICkBOM (THP-THI CKRO )/( ZMlNxCl -ZMI N ) n /U ; 
wRTTE(RRINr, ETHIC*, THICk^mAXW 
IF THICKBMAX<0 THEN 
PEGTN 

go to exit; 

END? 

FOR I*- 1 STEP 1 UNI IL EONS DO 
Fin*, ulofc i ) ; 

GROUPS*- OLOGROUPS; 

POP I*. 1 $T£P 1 UNTIL GROU®wAX do 
CASE! I]* DLOCASE [ I ] ? 

Z*- 0 5 

GO TO LABELICE? 

END 

ELCF 

BEGIN 

m 2 * IF ASAVEC 100 3 >AmI N THEN 1 * SORT (2 * C ( A 5 A VF 1 1 00 3 / A M I N-l ) ) / 
C 3 -KETA)) ELSE 15 
Z 2 * LEnGIhb; 

X2*.-SUSpFNDxOLUDYDZx( 1 - Z Ml N ) x lE NGT Hyx OE L T AT /OLOOE LT A T ♦ * $T AP 

; 

A2CHANGEI T2* OLDTx( i *0t.n**2/< 2*Gx JxOLDTxCETA ) *HETAx( 0LQX-X2 I /( CrTAx 
aLDT))/Ci*GETAxR0*M2*2/(?xMxjKCETA)); 


2-31 



W2* M 2 *seRT<GETA*R 0 xGxT 2 /M)J 1PT1 ,.,,/M kc-tami 

W2* OLDVV*< (T2/0LUT )x(X2/0LPX)*LETA)*<1/C1-KETA >)J 

OLOAREA* AMJN/ASTARAJ 

A2* 0LDaREAk0U0H*W2*X2/(0L0VVk0L0XkM2)> 

WRITE(PRINT» FA2> *?); 

I r c A2-ASAVEC 1001 )/A2>ERR0RA then 

6EG i2* W(M2-l)*SQRTC(ASAVEtt00]-AMlN)/(A2-AMlN))x0.9?5l 

GO TO A2CHANGEJ 
END* 

5 IN 8 * C0S(RIxBETA0/18O)/COTBO) 

Z* OJ 
T* t? j 
W* w2; 

VV* VV2 J 
V*. mxvv; 

B*-EXPC(B1*92/T)/ML+LN(T))J 

C* EXP((C1*(C2*C3/T)/T)/ML>I 
d*-exp((D1*02/t)/md; 

E* EU 

zc* i<-(((E/v+0)/v*c)/v*b5/v; 

p* zcxro*t/v; 

ps* exp(caps*apsi/t^/ml + ap < ;?xln(T)+lnpa)j 
UA«80A0«- LN( P/PS ) J 

OElTAT* LAMB0A0xT/(APS2-EAMB0A0-APS1/(TxML>)J 

X*- X2i 
YSUM* 1-X2J 
IF OLDXcl Then 
begin 

FOR I* 1 STEP 1 UNTIL GROUPS DO 

RLtn* RLtI]x<{l»X2)/U-0LDX)>*C l/3)> 

tabs*- ysurfaCe* ysurfacexc i-X2)/t i-dldxjj 

YB* Y 00* OJ 
END J 

UA* WxSlNBJ m . 

YEQUlLI 0* ysum*cpvxdf.ltat/hfgj 
OT tSI* T) 

OPtSl* PJ 

0W[S3* VYJ 

OWtST* «J 
0UAIS3* UAJ 

OYECSI* yeuuilibj 
OYS tSJ* YSURFACEJ 

0 Y t S 1 * Y SU M 5 ' ‘ , 

ORME AN [ S3* RMEANJ 

ONTtSI* NTUTALJ 

COSB* C0S(BETA0xPI/180); 

if rotor c si *0 then 

PHI* ARCTANCCHxC0SB-U8[5*13)/(Wx$INB))xtp0/PI 

EL$ PHI* ARCT AN ( (WxCOSB*UBtS] )/(W*SlN8 ) )xl 80/PI J 
8ETAI* 90-PHI; 

5* S*il 
TLSUM* OJ 

FOR I* 1 STEP 1 UNTIL GROu p S-l DO 
BEGIN 

myCII* NLt I I x 4xPlxRH0L*RLt I l*2*(RLt I 3 -RCR I T )xOELTAT/3 
J 

TLSUM* TLSUM + MYCm 
END J 
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TLOLO* TL«* IF YSUM*0 THEN T ELSE T*TlSUM/YSUM; 
WR1TECPRINT# FEXTRA1, LEXTRAl); 

WRITECPRINT# FEXTRA, LEXTRA)! 

IF $> ST AGE S THEN 

go to exit; 

9ETAINCSU 9ET A I ; 

GO TO newstage; 
end; 

end; 

EXITl WRITECPRINTCPAGE] j; 

writecprint# fgeom# geom); 

WRITECPRINTCPAGE J )J 

WRI TE ( PR 1 NT » FSUMY, LSLIMY); 

END » 

APPENDIX 2.2B 

LISTING OF ICEADAMS INTEGRATION 
PROCEDURE 


PROCEDURE ICEADAMS(N#T#H#CALLC#HMAX#HMlN#REL&#Ab5fcl#XO# 
3UXAU0XH#BnXC#B0XU) J 
COMMENT 

NeNJ. UK EQUATIONS* 

T = INDEPEni)KnT VARIABLE# SET iTr INITIAL T WHEN TCEaPAM$ IS FIRST C Al L t D ^ 
H sSU.P SIZE# SET I! = SUGGESTED STFP SIZE *HFN ICFADAMS FIRST CALL F 0 # 
CALLC= CHANGE IN T P L 1 W E L ^ CALLS ON HOXC# 
mmAXsmaXImUM STF p S I 7 r ACCEPTABLE# 

HmTnshInIMMH SUP SIZE ACCEPTABLE/ 

RFL d = UAX I HUM ACCEPTABLE RELATIVE ERROR# 

APSb*MfMPUM ALLFPTAHlE E R W 0R # 

XCsvFCTuR DF INITIAL VALUES OF UFPFNDENT VARIABLES# 

PLXA(T/ A #K) = PRr,crpURF GIVING THf XOUT VECTOR*IN F # WHE N CALLED WITH THE 

current values of the vlctpr x of dependent variables and the 
tnuepe NOFNT variable 1# 

hnXt?(T#x#f )*PK0CE0URF CALLED AFTER EACH SUCCESSFUL INTEGRATION STEP, 
HiXC C T # X #F ) rPKUCEDUFF CALLED AF 1 F F 1 HAS INCREASED BY "CALLC* SINCE 
BEGINNING OF 1 C E A D A M S Up SINCE bOXC WAS LAST CALLED# 

PLXDC T # X# K ) = FhLCEDUKF CALLED hHfN SUCCESSFUL INTEGRATION STEP CANNOT BF 
MfcDE w 1 1 H f, U T REDUCING STEP S T ? ET PELUW HplNJ 

Cr.ps,rM ADAMS solves a system of fust uroer differential fruatidns by 
4 TH ORDER ALLANS P-C METHOD* STARTING IS B V RU^GE-K UTT A \ 

CCHPENT 

WEI AND f'UL I 

V A L L*E PLLb# ARSB/HMIH,n; 

I E TE GE K N > , . . . 

REAL 1 #H,CAl LC/FELB# ABSH#F»^AX; ‘ > * ** * ! 

REAL MM IN# 

A 1 1 R A Y XU*i; 

PhOCEL'UKE PCX A #bOXB,ROXC#bUXD; 
bL GIN 

integer i# j# a#h# 

RF At AHSTE ST # BOUND# 01# 02# F ACT DR# l P# RH TEST# T TEMpJ 
LABEL SI 1 # S22# S33# SAA# S5b# S66#RE TNJ 
AR F< A t X#K#FC0lb#0*M#E#XPl0»N]; 

CUE'EFNT SET UP INITIAL VALUES# 

FOP M S1EP 1 UNTIL N DC 
X l 1 # I UXOl I]) 1 
HOUMUT + CALLC “ ,Ol*HPIHJ 
K [ LTF ST*U*?*KELb# 


1 6001 O^i 

26 3 0 1 [)fl 
26 301 D 6 
263G1DP 
26 31-1 1 0 
2630112 

2 6 3 0 1 1 A 
263011V 
2 6 3 0 1 1 A 
263(120 
26301 ?? 
2630 1 ? A 
2630126 
2630201 


26 30 2 OS 
2630207 


2630209 

160010A 


1 6 0 0 1 1 2 

1 6 0 0 l 1 A 
1 6001 1 6 
1 600 1 1 6 


2620105 
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AhSTtSTM^.P-xAHSH; 
f AT I GP^HtLP/ABSfc ' } 

LH*KEi T FST /20u; 

H *■ 2 * 0 * H j 

cd m,i Ent hunga-kutta starting heihoh; 
su JA+ 2 J 

84.2/ 

S22IF0& J* A STEF 1 UNTIL B DO 

hi GIN 

r[>xa( T^xr j-!/* J#rt j-i#*3>; 

FOR I * 1 sfCP 1 UNTIL N DO 
BEGIN 

Kl t / I J*Hxf t J-l/ I 3 * 

XCJM3«-XCJ-)aI2*0.5kK[1*II ENDJ 
ttemr* r + o .5*h; 

HUXaC TTKHH# XC J/ * 3/FC.J/*3 )J 
For? I 4*1 S TCP i UNTIL N 00 
BEGIN 

kc 2 / i ] 4 -hxf [ j/ n ; 

xt j/ n^xr j-i, } 3+o.bxxr?/ n end; 

H OX A ( 1 TLMP/XI J/ *3*r[ J,*»J 
f nr? 1 4* 1 SUP 1 UNTIL N DO BEGIN 
Kf 3Ml*Hxft J>I }; 

XI Jp I j«-X[ J-) * I J + Kf 3/ 13 END* 

T *• T * H / 

R(|Xa( T/ X[ J, + 1/Ft J,*] >/ 

Ml* IM STEP 1 UNTIL N DO BEGIN 

kca, n«-Hxru,n) 

XC J* I 1* X I J"*l' I 1666A667*CK£ 1# Jl*2.0*CKC2*I J+KC3# 1 3)*KC4* I J)J 

END/ t N ‘J / 

IF b = 2 THEN BEGIN 
5 33 ; 

FUN 14-1 SUP 1 UNTIL N DO Xpf I3+X12? J)J 

;:DMhf.NT XP ( I 1 = DOUBEE INTERVAL RESULT TO BE USED IN ERROR ANALYSIS; 
: T<-T-H.s 
H <- 0 , 5 x H / 

IF H<»iM X M THEN UOXD < T , X (1 ,* ] , f C J / * ) > ) 

w* 3 ; 

Git TO 522 END; 

IF ij s 3 Then begin 

CEnmEnT is accuracy CRITERION net; 

J *- 3 / 

S^AtFOR J 4* i STEP 1 UNTIL N DO BEGIN 
\ [ I I 4- ,a H b ( X P t ! 3-Xl IT)/ 

If Fill < ABStxr J/ mxRFLTFSl THEN 
i l IJM t I J/AHS( XI J# m USE 
If mi < AHSTFST TNFff 

e r nu M ixfactuh else 
begin t<t-h; 

IF J S i> Them hlGU FOR 1*1 STEP 1 UNTIL N DO VC 1 # I 3*x:4, I3J 

(A to sn end; 

G{- TU S 3 3 FM>> 

Err ) 

If j e b T HE l hi) Tl' $t6; 
a 4 4 ; i- 4 - ^ j 
GO lit St? EHj/ 

C [hi F M SHOULD A\y UF The STARTING VALUES BE PRINTED OUTJ 
T4T-3.0XR/ 

M'.F J«2/3#4 nr UGJN 
t ♦ t+h; 

u n x F ( T , X [ J , * ), F L J , * I ) ) 

If IMPOUND THEN HEGIN 

HflXU T f X r J* * 3 » F LJ/ * ) } ; 
ri|iUND4 BOUNE +C A I Lf EMM 


5600122 

262U109 
26201 1 1 

5600126 


26201 IS 
26201! 7 
1 6 0 U 1 2 A 


2620125 

2620123 


1 6001 26 

2620201 

2620203 


2620705 


1,600702 


2620207 
262070? 
26207 1 l 


?620?1 3 


1601204 
1 600206 
160020A 
5 60021 0 
1 60071? 
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u.o; 

CDMkEM HE GIN Al.AHS METHOD* 

SbSs 

Rr.XA(T>M4#*l*tM»*)>; 160021 A 

H»P 1*1 SUP 1 tATTl E: DO 

XPE 1 1«-Xi 4# I 3 40, Oil 16ftf*rxH*(55-0fcn A# II- 26?o?l 7 

59. u*E T 3> 1 J + 37 . CxF t 2 p n-9.0*rci # I ] )) 2620219 

t « t ♦ h ; 

K['X*<T#XF;Fl5#*]>j 1600216 

mp im sur t until > rn 

kL*'l]*X[*»! J+P.Oai 666667 xh x( 9 ♦OxFtb# I ] + 1 9*F t A > I 3-5*F[3> I ] *F [ 2* 1 1 ) J 2620223 

or* St'*; 

St'M 1 6 ou ? 1 fl 

F('R T*1 SUP 1 uNT I L N pfl HtGI* M^#Il*XfS#l3l 2620225 

EUR J«2 STEP 1 l.E-TU 5 PO ► C J-1, I W [ J* 1 3 EnC) 2620301 

H|iXb<T»X[A»*]*Flft»*J}J 16 00 220 

If 1> HOUND Then HF.C-IN 1600222 

hnX(U#Al<*#*)#FU#*3); 16 00220 


BnilMHRuUND + CAUC E NO; 

CIU'kLH TEST WHEThEP INTERVAL CAN PE OOuBLEOJ 
EUR IH SU'P 1 ONTll E p(i HEGIN 
IE till > LB THEN GO S55 E NO ; 

IE CALLC<(D1»2»H) PK (HOUKP-T)<M OP Ot>HMA* TmEN GO TO S55* 

Fn» IM STEP 1 UNTIL fc 00 X(l#n*XfA,n; 1 600307 

h*- a , o*h; 
g c i si i ; 

HE T M i NO OF I C E A P A U $ J 
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LIST Of INPUT DATA (CONTINUED) 
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CALCULATE P5EUOO P»0««ri|S ; 


APPENDIX 2. 2D 


PROGRAM FLOW CHART 
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APPENDIX 2.2.E 


DESCRIPTION OF INPUT CONTROL VARIABLES 


The use of the following control variables in 
the computer code is as follows: 


AA1 


DME 


The extrapolation from subsonic to super- 
sonic flow in the first blade row having 
critical flow is from area A. to area A^ 

where A 0 = A . (1 + AA1). 

2 min 

2 

Defines the minimum value of (1 - W / 
C . *) which is allowed before extra- 
polation is initiated. 


RESTART Input of TRUE permits input of additional 
data necessary to continue calculation 
from a prior run. For example, an error 
was contained in the data for blade row 
4, Calculations could be continued from 
the results at exit of blade row 3 used as 
input for Blade row 4. Input of FALSE 
causes inlet properties to be treated as 
stagnation conditions. 


EERDT 


ERR<?RA 


EXTRA P0- 
LATED 


GR0UP 

MAX 


JCRIT 


Maximum allowable difference between 
assumed and calculated AT, 

Maximum allowable value of (A* - 

A )/A . which permits extrapolation 
min mm 

to occur. 

Input of TRUE means a previous blade 
row has critical flow, and requires the 
program to adjust blade thickness to 
accommodate the flow. 

The maximum number of droplet groups 
permitted. (Code limits GR0UPMAX 
to maximum value of 25.) 

The value of J must exceed the value of 
JCRIT before the counting or growth of 
drops is begun, except that surface con- 
densation may occur independently. 


SUSPEND Input of 0.0 freezes the amount of con- 
densate during extrapolation. Input of 
1.0 causes condensation to occur during 
extrapolation at a rate proportional to 

ST. 

WILS0N0 Input of TRUE when restarting after the 
Wilson point has occurred in a previous 
blade row. Otherwise, input is FALSE. 


JINC A new group of droplets is initiated 

each time J increases by the factor 

JINC. 

N0SURF Input of 1 .0 causes all surface conden- 
sation to be neglected. Input of 0,0 
causes surface condensation to be in- 
cluded. 
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2.3 TWO-D AX (SYMMETRIC FLOWS BEHIND 
BLADE ROWS IN WET VAPOR TURBINE* 

2.3.1 Background 

This report is designed to be used in conjunc- 
tion with NASA CR-710 (Reference 1) to give the 
user sufficient information to allow utilization of the 
NASA Performance Computer Code for Axial Flow 
Turbines as modified at WANL. The modified code 
is written entirely ?n FORTRAN IV for the CDC 
6600 computer. But the code should be capable of 
being used with appropriate control cards on any 
computer having at least 32 K of core storage. 

The following sections of the report give: 
the applicability and modifications made from the 
original code, definitions of the input and output 
nomenclature, a method for making the code input 
applicable for wet vapor turbines, suggestions for 
further possible future modifications, three sample 
problems illustrating the usage of the code, a 
FORTRAN listing of the entire code, and control 
cards showing proper deck setup. No attempt is 
made to discuss the method of calculation of turbine 
performance or to give computer flow diagrams since 
these topics are adequately covered in Reference (1). 
The modifications made to the code do not signifi- 
cantly change the original program logic or capa- 
bility. These modifications for the most part were 
necessary to enable the code to accurately calculate 
wet vapor turbine performance, ideal gas turbines 
can still be analyzed as well as air breathing fossil 
fuel burning turbines for which the code was 
originally designed. 

2.3.2 Intent of Code 

• Applicability of Code and Limiting Assumptions 

The principal purpose of the original code 
as written by E. E. Flagg ^ ' is to provide a complete 
performance map of axial flow turbines suitable for 
use in air breathing fossil fuel fired jet engines. In 
the process of accomplishing this end, the code 
calculates the two-dimensional bulk flow conditions 
fore and aft of the turbine rows. 


*by James D. Milton, Doctoral Candidate-Nuclear 
Engineering, University of Cincinnati 


1. Description and Scope of Modified Code 

a) Axial flow turbines. 

b) Up to 8 stages. 

c) Up to 6 radial sectors (although only 
5 are usually used for reasons of symmetry). 

d) Each sector is a quasi-one-dimensional 
element with the properties at the radial centers 

of these sectors being joined, utilizing simple radial 
equilibrium at the stator and rotor exits, 

e) Semi-perfect gas properties (gas con- 
stant and specific heat ratio) are assumed and are 
input at the entrance and exit of each blade row. 
Provision is also made to simulate changes in gas 
flow rates at the entrance and exit of each blade 
row. Energy balance effects are simulated by 
changing the values of the gas constant and specific 
heat ratio. 

f) The turbine geometry may be either 
input as a passage distributed area (SPA and RPA)* 
or as effective exit vector flow angles (SDEA and 
RDEA). The assumption that the effective exit flow 
angles are approximately equal to fie design blade 
exit angles is usually valid. Mandatory inputs are 
the diameters of the root (DR) and tip (DT) for the 
entrance and exit of each blade row and the stator 
and rotor design inlet angles (SDIA and RDIA) for 
each of the radial sectors. 

g) Even though there are two subroutines 
(L0SS 1 and L<J?SS 2) which are capable of cal- 
culating losses by a total pressure loss coefficient 
method, the values for the coefficients of the series 
expansion are not generally known. (See page 1 1 of 
NASA CR-71 0.) The standard method is to input 
the values of optimum recovery coefficients for 
stator and rotor (SREC and RREC) together with 
exponents to be used in the event of both negative 
and positive (EXPN and EXPP) incidence. (See page 
10 of NASA CR-710 for equations used.) 


* Nomenclature defined in Section 2.3.3 of this 
report. 
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h) Separate cases may be run for various 
turbine speeds by merely changing the RPM and 
indicating that is a change case (STGCH = 0.0). 

I) The FORTRAN IV code calculates a 
performance map for the case of a given turbine at 
a particular RPM by in effect varying the exit 
back pressure. The output for each "iteration" (i.e #/ 
value of back pressure) gives flow rates, velocities, 
flow angles, temperatures, pressures, densities, 

Mach numbers, efficiencies, and work done both for 
an overall stage output and also row-by-row output 
for each of the radial sectors. An exact choke point 
is found during the calculation of the performance 
map and the turbine back-pressure is effectively 
further reduced until the discharge annulus area is 
choked at the pitchline sector (assuming AACS = 

1 .0). A single performance point can be obtained 
by simply setting all pressure ratio increments 
(DELC, DELL, and DELA) to zero. This is the usual 
case when fixed operating conditions are known at 
design. 

j) The gas flow at the entrance to the 
first stator is assumed to have uniform radial tem- 
perature, pressure, and velocity. The flow is further 
assumed to be exactly aligned with the turbine 
axial direction (i.e., no tangential velocity com- 
ponent). 

• Modifications to Code 

As stated previously, as originally programmed 
the code was principally intended for analysis of 
JP-4 burning, air breathing jet engines. Internal to 
the code is a subroutine for calculating the thermo- 
dynamic properties of reacted JP-4-air mixtures. 

It also had a capability to Input thermodynamic 
properties which was extended as required by the 
method used in determining the performance of wet 
vapor turbines. It was decided that the thermo- 
dynamic properties fore and aft of each blade row 
would be inputted in terms of representative values 
for the particular working fluid and its state. The 
variables to be input would be the ratio of specific 
heats at constant pressure to that at constant volume 
and Boyles and Charles law gas constant. The 
internals of the program are then used to calculate 
effective specific heat and various other effective 


thermodynamic properties. 

The following modifications were made in 
the code: 

1) Wherever the Boyles and Charles gas 
law constant RG appeared in the code, it was re- 
placed by a two-dimensional variable RV (I, K) 
with proper choice of axial blade position I and 
stage number K to correspond to the location In 
the turbine for which the calculation is being per- 
formed. 

2) A change was made in the input 
NAMELIST format to allow reading in of a variable 
RV. Also a modification was made to read in ref- 
erence values for the gas constant, temperature, 
pressure, and specific heat ratio all at standard sea 
level conditions. Formerly the code contained 
these values for air internally in a DATA statement. 
But since gases other than air will be used, it was 
thought useful to Include a capability for inputting 
these values for each case rather than requiring a 
recompilation whenever a different working fluid 
was used. 

3) The output was expanded to print out 
the values for the flow, y (ratio of specific heats), 
gas constant, and RWG (the ratio of the flow at a 
particular station to turbine inlet flow). To insure 
that these variables were being properly handled 
within the code, decreasing values of y, RV, and 
RWG were fed in. The output was found to be con- 
sistent after a slight change in the logic. 

4) Since values for y and RV are now fed 
in for all cases, the subroutines to calculate y, RG, 
and C , are superfluous since they would never be 
callecP upon. If by inadvertently omitting the 
inputting of y and/or RV and subsequently a sub- 
routine for calculating its value is entered, then 

an error message was added which would print out 

the words "SUBR0UTINE ( ) HAS BEEN CALLED 

UP0N" followed by a string of asterisks so that 
attention would be immediately drawn to the error. 
The ( ) is filled in by the name of the subroutine 

being called. After the error message Is printed out, 
the calculation is allowed to proceed using properties 
for air, water and JP-4 fuel. 
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5) On page 193 of NASA CR-170 the 
statement: 

21 PTP(I, K + 1) = PTBAR (K) * ( ( TTRA (I, K)/ 
TTBAR (K) ) ** E 3 ST2A 153 

was found to be incorrect and should read: 

21 PTP(l, K + 1) = PTBAR (K) * (TT2A(1,K)/ 

TTBAR (K)) ** E 3 

6) On page 208 of NASA CR-71 0 the 
statement: 

ASOH = SORT (GAM (I,K) * G * RG * SnSO(L) ) 
INST 175 

was found to be incorrect and should read: 

ASOH = SQRT (GAM (1, K) * G * RG * STTSO(L) ) 

7) Any cards from the original code which 
had to be removed rather than modified were denoted 
by a comment card with the words "CARD DELETED " 
followed by a string of asterisks. 

8) As an aid in debugging a computer run, 
an option was added to allow the printout of when 
entry or exit was made from each subroutine. 

This enables the user to examine the program logic 
as an aid in determining where discrepancies occur. 
This option is not recommended for other than de - 
bugging runs since a large amount of output results. 


2.3.3 Nomenclature for Input and Outp ut of 
Modified Code L 

• Input Definitions * 

1) "TRUE" or "FALSE" card depending 
on whether or not a listing of when an entrance and 
exit is made from each subroutine is desired. This 
card is input only once per case. 

2) Two heading cards of 60 characters 
each inputted only once per case. 


3 ) 


Constants input once per case: 


Code Nome 

Definition 

STAGE *• 

Stoge Identification number 

STGCH 

Fiog Indicating whether following data is for the 
basic cote (1.0) or For a change cate (0.0) 

TT1N 

Turbine inlet total temperature 

FTIN 

Turbine inlet total pressure 

WAIR 

Water to air ratio (not used In modified code); 
should be input as 0.0 

FAIR 

Fuel to olr ratio (not used ?n modified code); 
should be input as 0.0 

PTPS 

Pitchline pressure ratio (totol to static) across first 
stator for 0* calculation. This ratio is Incremented 
by DELC, DELL, or DELA for next calculation 

DELC 

First try at Increment to PTP5 

DELL 

Increment to PTPS after first stator ha* critical flow 
and alto when choke iteration Is complete 

DELA 

Increment to PTPS when lost rotor 1* choked 

STG 

Number of stages In turbine (8 maximum) 

SECT 

Number of rodlol sectors (6 maximum) 


pcTo 


EXPN 

EXPP 

PAF 


SLI 


AACS 


RPM 

VCTD 


RSL 

T5L 

PSL 

GAMSL 

END5TG 

ENDJ0B 

PCNH 


Exponent of cosine term for negative incidence used In 
calculating an inlet recovery factor (lee poge 10 of 
Reference I) 

Exponent of cosine term for positive incidence used in 
calculating an inlet recovery foctor (see poge 10 of 
Reference 1) 

Profile averaging fork (either 0.0, 1.0, or 2.0); gives the 
next stoge inlet conditions for either: uniform (0.0) at the 
overage value of the preceding stage, or the radial sector 
profiles (1.0) of pressure and temperature pf the preceding 
stage, or a third option which keeps the exit total tem- 
perature radial profile and "smooths" (2.0) the exit total 
pressure profile from the preceding stoge 

Stoge loss Indicator (0.0 means that recovery, efficiency, 
and Flow coefficients are Inputed for each stoge; 1.0 
means thot they ore inputed only once ond are assumed 
constant throughout the turbine) 

Discharge annulus area choke stop which is the maximum 
limit for the turbine exit axial Mach number at the pitch- 
line sector. This code will continue to decrease the bock 
pressure until this limit is reached (ossumlng DELC, DELL, 
ond DELA/ 0.0) 

Turbine speed 

Vector diogrom interstage output (either 0.0 for overall 
stoge performance output only or 1.0 for row-by-row 
sector performance in addition to overall stage output 
printout) 

Gas constant at sea level standard conditions 
Standard temperature at sea level - 518.668 
Standard pressure at tea level - 14.696 
Specific heat ratio at sea level stondcrd conditions 

0.0 if more stage data to follow; T.O if last stage data 
has been read in 

0.0 if more cases to follow; 1.0 if all data for all cotes 
has been Input 

Percent station height distribution (example: if 5 equal 
(in height) rodial sectors were desired, then PCNH = 0.2, 
0 . 2 , 0 . 2 , 0 . 2 , 0 . 2 ) 


RPM 


ft lb/ib°R 

°R 

p«io 


* Refer to Stondord Option Input Sheet (page 11). 

** Mutt be input every time new stoge data Is reod in. 
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4) Axial station input for each stage 
(stations 0, 1, 1A, 2, and 2A) 


Code Nome 

Definition 

Unit* 

RG 

Got eonttont 

ft )b/!b °R 

GAMG 

Specific beat ratio 

— 

DR 

Diometer of root or Rub of turbine 

in 

DT 

Diameter of tip of turbine 

In 

RWG 

Ratio of station flow to turbine inlet flow 

— 


5) Stator radial distributions for each 
stage (hub to tip sectors) 


Code Nome 

Definition 

Units 

SDIA 

Stator design inlet ongte 

( from oxlt) 

5DEA 

Stotor effective exit flow angle — should not be 
input if SPA St Input 

(° from axis) 

SR EC 

Stotor optimum recovery coefficient (*> ) 

— 

SETA 

opt 

Stotor efficiency coefficient ( V J 

— 

SCF 

Stator flow coefficient (C^) 


SPA 

Stotor pattoge area per unit height — thouid not 
be Input If 5DEA ii input 

in /in 

SESTH * 

Stotor rotio of exit blade height to throat height 

— 


6) Rotor radial distributions for each stage 
(hub to tip sectors) 


Code Nome Definition 

Units 

RDIA 

Rotor design infet angle 

( ° from oxls) 

RDCA 

Rotor effective exit flow angle — should not be 
Input if RPA Is input 

{° from axis) 

RREC 

Rotor optimum recovery coefficient (*? } 

— 

RET A 

Rotor efficiency coefficient t 1 ? ) 

— 

RCF 

Rotor flow coefficient (C^) 


UFA 

Rotor passage area per unit height — should not be 
input if DREA is Input 

in 2 /in 

RTF 

Rotor test factor used to represent the non-uniform 
work extraction due to blode end effects 


RERIH * 

Rotor ratio of exit blode height to throot height 

— 


* Only a single volue Is Input. 


WANL MODIFIED 
TURBINE COMPUTER PROGRAM 
STANDARD OPTION 
INPUT SHEET 


Start All Input Cord* in Column 2 

Subroutine Entry and Exit Listing Option (TRUE or FALSE) 
Nome (Comment Information) 

Title (Comment Information) 


JDATAIN STAGE = , 

5TGCH= 


TT!N= 

,PTIN= 

,WA IR= 

,FAIR* 

PTP5= 

,DELC- 

,DELL= 

,DELA= 

$TG= 

,SECT= 

,EXPN= 

( EXPF- 

PAF= 

,su= 

,AACS= 

,RPM- 

VCTD* 

,R$L= 

,TSL= 

,P5L= 

GAMSL= 

,END5TG* 

,ENDJ0B = 

INLET RADIAL PROFILE 

9 

PCNH(1)= 

* 

AXIAL STATIONS 

9 


STA. 0 STA. 1 STA. !A STA. 2 STA. 2A 

RG(1}= r r r * 

GAMG(l) = , » 

DR(I)* r » 

DT(1)= , r 

RWG(I)= r ' ' 

STATOR RADIAL DISTRIBUTIONS 

root pitch tip 

SDIA(I)= , r 

$DEA(1) = , r 

$REC(1)= , r 

SETA(i)= , ' ' 

SCF(1)= , ' 

$PA(1) = , ' 

SESTH- 

ROTOR RADIAL DISTRIBUTIONS 

root pitch tip 

RDIA(I>= r r 

RDEA(I)= , ' 

RREC(I)= r ' 

RETA(1)= , r 

RCF(I)= r r ' 

RPA{I)= t t ' 

RTF(I)= r r ' 

RERTH= 

ENDSTG= , ENDSTG=1.0 IF LAST CASE 

ENDJ0B= S ENDJ0B=1.O IF LAST STAGE 


• Output Definitions 

1) Station Nomenclature 


The axial station numbers (0, 1, 1A, 2, and 
2A) following a parameter refer to the following 
designations: 


Station Number 

0 

1 

IA 

2 

2A 

Definition 

Stotor Inlet j 

Stotor Exit 

Rotor Inlet 

Rotor Exit 

Next Stoge 5totor Inlet 
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Also see Figure 2.3-1 for further clarification of 
terminology. 

In the stage and overall performance output 
printout several parameters are given in terms of 
the equivalent parameter referenced to standard 
sea level conditions. This provides a common basis 
for comparison of performance maps for different 
turbine cases. 

2) Stage Performance Parameters 


Symbol 

Definition 

Units 

TTBAR 0 

Stag* <rv*rog« Inlet total temperature 

°R 

PTBAR 0 

Stoge average Inlet total preuure 

psio 

WG 0 

Stage Inlet total weight flow 

lb/s«c 

DEL H 

Stoge enthalpy drop {energy output) 

BTU/lb 

WFT/P 

Stage corrected weight flow function 

(lb/ sec) (°R/psia) 

dh/ttbaro 

Stoge energy function 

BTU/lb °« 

N/RT 

Stage corrected speed 

RPM/{°R) , ' /2 

ETA TT 

Stage lotol to total efficiency 

— 

ETA T5 

Stage total to static efficiency 

— 

ETA AT 

Stoge totol to axial totol efficiency 

— 

PTO/PSI 

Stator total to Static pressure ratio at pitchline 

— 

PTBAR0/PTBAR2 

Stoge overage total to total pressure ratio 

— 

I TBAR0/PS2 

Stoge average total to pitchline static 
pressure ratio 

— 

PTRVPS2 

Rotor exit relative total to static pressure rotio 
at pitchline 

— 

TTBAR VTTBARO 

Stage overage totol to total temperature ratio 

— 

TTR1A/TTBAR0 

Rotor inlet pitchline relative totol to stage 
inlet average total temperature rotio 

— 

WG 1 

Stator exit totol weight flow 

fb/sec 

PS 1A 

Rotor inlet static pressure at pitchline 

psio 

TTR 1A 

Rotor inlet relative total temperature at pitchline 

°R 

PTR 1A 

Rotor inlet relative total pressure of pitchline 

psio 

WG 1A 

Rotor Inlet total weight flow 

fb/tec 

PS 2 

Rotor exit static pressure at pitchfine 

psio 

TTBAR 2 

Stoge exit average total temperature 

°R 

PTBAR 2 

Stoge exit average total pressure 

ptia 

WG 2 

Rotor exit totol weight flow 

lb/»ec 

WG 2A 

Next stoge stator inlet totol weight flow 

Ib/sec 

UP/VI 

Wheel speed to iseptropic velocity rotio at 
pitchline 

— 

UR/VI 

Root wheel speed to pitchline isentropic 
velocity ratio 

— 

PSI P 

Kinetic energy loading parameter at pitchline 

— 

PSI ft 

Kinetic energy loading parameter at root 

— 

RX P 

Reaction rotio at pitchline 

— 

RX R 

Reaction rotio of root 

-« 

ALPHA 0 

Stator inlet gas angle ot pitchfine 

o 

1 STATOR 

Stator inlet incidence angle at pitchline 

o 

BETA 1A 

Rotor inlet gas angle ot pitchfine 

0 


Symbol 
1 R0T0R 

Definition 

Units 

Rotor inlet incidence angle ot pitchline 

o 

ALPHA 2A 

Next stoge stator inlet gas angle ot pilchMne 

o 

DBETAR 

Rotor root turning angle 

o 

M 1 

Stator exit Mach number at pitchiine 

— 

Ml RT 

Stator exit Mach number at root 

— 

MR 1A 

Rotor inlet relative Moch number at pitchline 

— 

MR1 A RT 



MR 2 

Rotor exit relative Moch numbei at pitchline 

— 

MR2 TIP 

Rotor exit relative Mach number ot tip 

— 

E/TH CR 

Stoge equivalent energy, corrected to stondord 
inlet critical conditions 

BTU/lb 

N/RTH CR 

Stage equivalent speed, corrected to stondord 
Inlet criticol conditions 

RPM 

WRTHCRE/D 

Stoge equivalent flow, correct to standard 
inlet criticol conditions 

Ib/sec 


3) Overall Turbine Performance Parameters 


Symbol 

Definition 

Units 

PSI P 

Overall kinetic energy loodlng parameter 
ot pitch! ine 

— 

PSI R 

Overall kinetic energy loodlng parameter ot root 

— 

DEL H 

Overall enthalpy drop {energy output) 

BTU/lb 

WRT/P 

Turbine inlet corrected weight flow function 

{Ib/sec) (Vps!c ) 1/2 

N/RT 

Turbine inlet corrected speed 

RPM/(°R) ,/2 

delivttin 

Overall energy function 

BTU/lb °R 

PT0/PTBAR2 

Overall overoge totol pressure ratio 

— 

PT0/PS2 

Overall totol to static pressure rotio at pitchline 

— 

PT0/PAT2A 

Overall totol to axlol total pressure ratio 
at pitchiine 

— 

ETA TT 

Overall total to total efficiency 

— 

ETA TS 

Overall total to static efficiency 

— 

ETA TAT 

Overall total to oxlol totol efficiency 

y 

WNE/60D 

Turbine inlet equivalent flow -speed parameter 

tb/sec 

N/RTH CR 

Turbine inlet equivalent speed, corrected to 
standard inlet critical conditions 

RPM 

E/TH CR 

Overall equivalent energy, corrected to 
standard inlet critical conditions 

BTU/lb 



4) 

Inter-Stage Radial Sector Performance 

Parameters 



Symbol 


Definition 

Units 

DIAMO 


Diameter of mid-points of radial sectors at 
stator inlet 

in 

TT 0 


Totol temperature ot stator inlet 

°R 

PTO 


Total pressure at stator inlet 

psla 

ALPHA 0 


Gos angle (with respect to axial direction) 
at stator !n|et 

0 

I STAT0R 


Incidence angle at stator inlet 

o 

V 0 


Gos velocity (composed of tangential and axial 
components) at stator inlet 

ft/*ec 

VUO 


Tangential gas velocity at stotor inlet 

ft/ sec 

VZ 0 


Axial gas velocity ot stotor inlet 

ft/sec 
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Definition 

Units 

TSO 

Stotic temperature at stator Inlet 

°R 

PSO 

Stotic pressure at stotor inlet 

psia 

2 

DENSO 

Stotic density at stator Inlet 

lb/ft 

MO 

Moch number at stator inlet 

— 

CPO 

Sped He heat at constant pressure at 
station Inlet 

BTU/lb °R 

RGO 

Go* eonstont ot stator Inlet 

ft Ib/lb °R 

OAMG 0 

Rotlo of specific hoots ot stotor inlet 

— 

RWGO 

Ratio of station flow to turbine Inlet flow 
(by definition this must be 1.0 ot the first 
stator Inlet of turbine) 


WGO 

Weight flow at stotor inlet 

Ib/sec 

DIAM T 

Diameter of mid-points of radio! sectors 
at stotor exit 

In 

ALPHA 1 

Gas angle {with respect to oxlol direction) 

° 


of stator exit 


DEL A 

Gas turning angle (a^ + a^) 


V 1 

Go* velocity (composed of rongentlal ond 
axial components (ot stotor exit 

f 

VU 1 

Tangential goi velocity ot stator exit 

ft/sec 

VZ 1 

Axial gas velocity at stator exit 

ft/sec 

TS 1 

Static temperature ot stotor exit 

°R 

PS 1 

Stotic pressure ot stotor exit 

psia 

■s 

DENS 1 

Stotic density at stator exit 

ib/fr 

M 1 

Ktoch number of stator exit 

— 

ZW1 INC 

Zweifel parameter, Incompressible 

— 

CPS 

Stotor pressure coefficient, incompressible 

— 

CP 1 

Specific heat at constant pressure at stator exit 

BTU/lb °R 

RG 1 

Go* constant ot stator exit 

ft Ib/lb °R 

GAMG \ 

Ratio of specific heats at stotor exit 

— 

RWG 1 

Ratio of stator exit flow to turbine inlet flow 

— 

WG 1 

Weight flow ot stotor exit 

Ib/sec 

DIAM 1A 

Diameter of mid-points of radiol sectors ot 
root inlet 

In 

PTR 1A 

Relative total pressure ot rotor inlet 

psia 

TTR 1A 

Relative totol temperature at rotor inlet 

°R 

BETA U 

Relative gas angle of rotor inlet 


1 R0T0R 

Incidence angle at rotor inlet 

o 

R TA 

Relative gas velocity ot rotor inlet 

ft/sec 

RU 1A 

Relative gos tangential velocity ot rotor inlet 

ft/sec 

MR 1 A 

Relative Mach number ot rotor Inlet 

— 

U 1A 

Wheel speed ot rotor Inlet 

ft/sec 

PS 1A 

Stotic pressure ot rotor inlet 

psfo 

TS TA 

Stotic temperature ot rotor inlet 

°R 

CP 1A 

Specific heat at constant pressure ot rotor inlet 

BTU/lb °R 

RG 1A 

Gas constant ot rotor inlet 

ft Ib/lb °R 

GAMG 1A 

Ratio of specific heats at rotor inlet 

— 

RWG 1A 

Rotlo of rotor Inlet flow to turbine inlet flow 

— 

WG 1A 

Weight flow of rotor Inlet 

Ib/sec 

DIAM 2 

Diometers of mid-points of radial sectors 
of rotor exit 

In 

PTR 2 

Relative totol pressure at rotor exit 

pslo 

TTR 2 

Relative total temperature ot rotor exit 

°R 

BETA 2 

Relative gos angle at rotor exit 

o 

DBETA 

Gos turning angle ( + 

0 

R 2 

Relative go* velocity ot rotor exit 

ft/sec 


Svmbol 

Definition 

Units 

RU 2 

Relative tangential gas velocity ot rotor exit 

ft/sec 

MR 2 

Relative Mach number ot rotor exit 

— 

U 2 

Wheel speed at rotor exit 

ft/sec 

RX 

Reaction 

— 

DELH 

Enthalpy drop (energy output) 

BTU/lb 

PSl P 

Kinetic energy loading parameter 

— 

ETA TT 

Totol to totol efficiency 

— 

ETA TS 

Total to static efficiency 

— 

ETA AT 

Total to oxiol total efficiency 

— 

ZWI INC 

Zweifel parameter, incompressible 

— 

CP R 

Rotor pressure coefficient, incompressible 

— 

PS 2 

Static pressure at rotor exit 

psia 

TS 2 

Stotic temperature at rotor exit 

°R 

CP 2 

Specific heat ot constant pressureat rotor exit 

BTU/lb °R 

RG 2 

Gos constont at rotor exit 

ft Ib/lb °R 

GAMG 2 

Ratio of specific heats ot rotor exit 

— 

RWG 2 

Ratio of rotor exit flow to turbine inlet flow 


WG 2 

Weight flow ot rotor exit 

Ib/sec 

PT 2A 

Totol pressure at inlet to next stator 

psia 

TT 2A 

Total temperoture ot inlet to next stotor 

°R 

V 2A 

Gos velocity (composed of tangential ond extol 
components) ot Inlet to next stotor 

ft/sec 

VU 2A 

Tangential gos velocity ot inlet to next stotor 

ft/sec 

ALPHA 2A 

Gas ongle (with respect to oxlol direction) at 
Inlet to next stator 

o 

ME 2A 

Axiol Mach number ot Inlet to next stator 

— 

VZ 2A 

Axiol gas velocity ot inlet to next stator 

ft/sec 

TS 2A 

Static temperoture ot inlet to next stator 

°R 

PS 2A 

Stotic premrre ot Inlet to next stator 

psia 

DENS 2A 

Stotic density at inlet to next stotor 

lb/ft 3 

M 2A 

Mach number at inlet to next stator 

— 

CP 2A 

Specific heat ot constant pressure ot inlet 
to next stator 

BTU/lb °R 

RG 2A 

Gas constant at inlet to next stotor 

ft Ib/lb °R 

GAMG 2A 

Rotlo of specific heots ot inlet to next stator 

— 

RWG 2A 

Ratio of flow ot Inlet to next stotor to turbine 
inlet How 

— 

WG 2A 

Weight flow at inlet to next stator 

Ib/sec 


2.3.4 Method for Calculation of Modified Para - 
meters for Wet Vapor Turbines 

• Assumptions Used and Development of Equations 
for Modified Parameters 

In wet vapor turbines since there exists two 
distinct phases (gas and liquid), the usual ideal 
thermodynamic relationships which are valid for gas 
turbines are not directly applicable. The approach 
used to determine the performance of wet vapor 
turbines involved making a minimum of changes in 
the code but required modifying the input data 
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appropriately to closely simulate the thermo- 
dynamic processes of a turbine operating within the 
saturation dome of a T-S (temperature entropy) 
diagram. The following method was derived and 
gives good agreement with the results from the 
WSD 2-D code as run by Fentress (2)* 

In order to arrive at a consistent set of 
relatively simple relationships, the following assump- 
tions were made: 

1) The inlet hub and tip diameters for a 
given blade row are assumed equal to the exit hub 
and tip diameters from the preceding blade row. 

The same assumption holds true for the modified 
y*, and R*. The superscript * indicates that it 
is a modified value for specific heat ratio, blade 
efficiency, and gas constant. 

2 ) AN inefficiencies are assumed to be 
lumped into the single blade efficiency parameter 
tj*. This includes such items as incidence and exit 
losses and flow coefficients. Consequently EXPP = 
EXPN = 0.0, SREC = RREC = 1.0, SCF = RCF = 1.0, 
RTF = 1 .0, and SESTH = RERTH - 1 .0. The defini- 
tions of these computer code terms may be found in 
Section 2.3.3, 


3) The exit gas flow angle from each 
blade row is taken to be equal to the exit blade 
angle. Therefore, actual blade exit angles (SDEA 
and RDEA) are input rather than distributed passage 
areas (SPA and RPA), 

4) Since all energy changes are accounted 
for in the calculation of the modified parameters, 
there is no need to take into consideration 

the decrease in the gas flow rate due to condensa- 
tion effects. Consequently RWG = 1.0. 

5) Radial variations in y*,ij *, and R* 
are assumed to be negligible. 

In applying the following formulae to de- 
termine the modified values of R*, y*, and 77 *, care 
must be exercised to obtain the proper relative 
velocity either entering or leaving a blade row. 

See Figure 2.3-1 for clarification of the station 
terminology used in the example potassium turbine. 



Figure 2,3-1 Axial Station Velocity Nomenclature 

The initial values for static temperatures, pressures, 
specific volumes, and velocities are obtained from 
previous 1 -D calculations. Definitions of the no* 
menclature used are given in Section 2.3. 4.2 
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( 20 ) 





The remainder of the expressions for the modified 
parameters for the rest of the sixth stage are the 
same as those in Equations (8) through (20). For 
turbines with more than two stages, the same re- 
lationships are repeated for each succeeding stage. 
Since there is a significant amount of hand calcula- 
tions involved in obtaining the modified parameters, 
a small computer program could be written to punch 
out these values in a format compatible with the 
input to the modified NASA turbine code. 
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• Nomenclature Used In Calculation of Modified 
Parameters 


Symbol 

Definition 

Units 

°R 

Root diometer 

in 

d t 

Tip diameter 

in 

7 

Gravitational acceleration (32.2) 

ft/sec 

p s 

Static pressure 

piia 

P T 

Totol pressure 

ptia 

PTPS 

Totol-lo-stotic prewore rofio across first stofor 

— 


Gas conitanf 

ft/°R 

T S 

5totic temperature 

°R 

O- 

't 

Total temperature 

R 

u 

Wheel speed 

ft/*ec 

V 

Gas velocity 

ft/sec 

v s 

Specific volume 

f| 3 /lb 

T 

Ratio of specific heats 

— 

1 

Overall effective blade efficiency 

— 


2,3,5 POSSIBLE FUTURE MODIFICATIONS TO 
CODE 

1) With the advent of the CDC 6600 com- 
puter and its 65 K core (as compared to the IBM 
7094 and its core of 32 K), it is possible to expand 
the maximum number of radial sectors to greater 
than 6 and the maximum number of stages to exceed 
8, Of course computer run times would be longer 
and a different method of printing out data would 
have to be used. 


2) The code could be changed so as to 
iterate to a desired exit pressure condition auto- 
matically by comparing the average turbine exit 
total pressure with that desired. If the difference 
between the exit total pressures were not within some 
given tolerance, the first stator pressure ratio PTPS 
would be adjusted accordingly. 

3) Non-uniform turbine Inlet radial 
distributions in pressure, temperature, and velocity 
could be achieved by inputting such quantities. 

The assumption in the code as presently program- 
med is that the inlet radial distributions are uni- 
form. 
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APPENDICES TO SECTION 2.3 
APPENDIX 2.3 A 

SAMPLE PROBLEMS ILLUSTRATING USE OF CODE 


2.3 A-l NASA Reference Two-Stage Gas Turbine 
(5 Radial Sectors} " 

1 . Comparison of Results 

The sample problem given in NASA 
CR-710 was run both on the IBM 7094 (II) and CDC 
6600 computer. The data output from both machines 
was in exact agreement to at least the sixth signi- 
ficant figure. The minor discrepancies noted were 
thought to be due to the difference in the number 


of significant places carried in the respective 
machines. It was found that the sample problem 
data output given in NASA CR-710 did not exactly 
correspond to that report's data input. When the 
data input was appropriately changed, the subsequent 
output was In substantial agreement (at least to the 
fourth significant place) with that given in NASA 
CR-710. No explanation can be given at this time 
as to why there was not agreement to at least the 
sixth place. But it is felt that the agreement is more 
than adequate to satisfy engineering criteria. 
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2 , Data Input 


TUPBINE COMPUTER PROGRAM 
NASA T Vk 0 STAGE reference TURBINE 


1*00 

5 041 

8 DEG. 

LOSS PRCFIlS .98 

# 9«>6t • 

977 • 90 t 

SOATATN 






STGCH- 

1.000 





TTlNs 

700. 000 

PT I 

17. Hi) ‘.v A T 9- 

o.ooc 

FAIR= 0.C00 

P T P S s: 

1.600 

DELC= 

0.000 OcLL= 

0 . 0 0 0 

df.la= 0.000 

STG = 

2.000 

SEC7 = 

5.000 E*?N= 

3*00C 

EXPP* 3.000 

PAFs 

0 « 0 o 0 

SL ! " 

0.000 AACS= 

) .coo 

RPK« 5041.000 

VC TO:: 

uooo 

K O ~ 

53.350 TSt= 

P 1 3.688 

P^L* 14,594 

G A y - 1> L 3 

I .4 00 

ENOSTu-- 

0. 000 EfO-JOfJo 

o.coo 




INLE 

T RoriAL profiles 



PCNHS 

.200 

.20 0 

.200 .209 

.200 

0.000 


standard CRT ion 


St AGF= 

1 


AM At. ST A 1 IONS 




St a , o 

STa* 1 

STA, 1 A 

STa, 2 

STa.PA 


RG = 

53.350 

53.350 

53.350 

53,350 

53.350 

0.000 


} * 40P 

1 .^00 

1 .400 

1,400 

1.400 

0,000 

OR — 

)9. no 

19.110 

16.949 

IB, 406 

16.265 

0.000 

OT- 

28.000 

2 B . 0 0 0 

26.141 

28,704 

2B.B45 

0.000 

R w6~ 

1 ,000 

1.000 

1.000 

1.000 

1.000 

0.000 



SI ATOP 

radial distributions 




ROOT 


pitch 


TIP 


SOI 

o . oo n 

0.000 

0.000 

0,000 

0,000 

0,000 

SUE. as 

0.000 

o.ooo 

0 .000 

0.000 

0.000 

0.000 

SPECs 

1.000 

1.000 

1 .000 

1,000 

1.000 

0,000 

SETas 

• 9 7 n 

• 9il0 

.960 

» 9H 0 

.9 7 0 

0.000 

5CF = 

.977 

.977 

,977 

.977 

,977 

0,000 

SPAS 

?2. HO 

26.035 

30.135 

34.194 

3B.499 

0.000 

SF.STHr 

1.0C0 








ROTOR 

RADIAL D 1 5 TR 

IBUTIONS 



PU! A = 

SO .600 

<♦4.900 

36.100 

30,200 

20.900 

0.000 

PUEA* 

0. ooo 

0,000 

0 .000 

0,000 

0.000 

0,000 

RREC = 

1.000 

1 .000 

1.000 

1,000 

1,000 

0.000 

Rt T AS 

.919 

.946 

.946 

.946 

.519 

0,000 

RCF = 

.9^0 

.950 

.950 

,950 

.950 

0.000 

MPAs 

33.406 

36.352 

36,976 

41,280 

43,008 

0.000 

RTFs 

1.000 

1 .000 

1.000 

1 .000 

1,000 . 

0,00 0 

PF.PThs 

1*010 









STANDARD cptjon 



STAGE= 

2 


axial STaI ions 




5 T a . 0 

STa. 1 

ST A , 1 A 

STA. 2 

S T A * 2 A 


RG S 

53.350 

53.350 

53.350 

53,350 

53.350 

0,000 

GAMG= 

1.400 

1 * A C 0 

1 .400 

1,400 

1.400 

0.000 

Dfis 

115.265 

17.614 

17.673 

17.110 

17.110 

0.000 

DTs 

2>WfH5 

29.296 

29.437 

30.000 

30.000 

0.000 

RWGs 

1.000 

1.000 

1.000 

1.000 

1.000 

0,000 
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STATOW HADIAL OISTRIQuTIONs 



HOOT 


pitch 


TIP 


SO T 6* 

25.000 

2?. 400 

20.200 

18.300 

16.600 

0.000 

SUE A- 

0-00 0 

0.000 

o.ooo 

0 , o 0 0 

o.uoo 

0.000 

spec* 

1.000 

1.000 

1.000 

1 . 000 

1.000 

0.000 

SET a = 

.970 

• 9no 

.96 0 

.980 

.970 

0.000 

SCF = 

.925 

.925 

.925 

.925 

.925 

0.000 

SP A = 

30.420 

36.855 

43*485 

50.765 

58.240 

0.000 

SESThs 

1.010 








ROTOH 

wadial distributions 



PDIA = 

36.600 

26.900 

16.100 

4.600 

-6. /GO 

0.000 

PUEa = 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

R«Er= 

1.000 

1.000 

1 .000 

1 .000 

1.000 

0.000 

RET A = 

.919 

.946 

• 9<*6 

.946 

.919 

0.000 

RCF = 

.900 

.900 

.900 

.900 

.900 

0.000 

RPA = 

<♦3.3=0 

48 . 1 SO 

52.350 

55,760 

58.550 

0.000 

RTF = 

1.000 

1.000 

1.000 

1 .000 

1 .000 

0.000 

RpRTH= 

1.010 







3. Listing of Data Output 

NASA TURSilwE COMPUTER PROGRAM 
NASA T Vi o STAGE REFERENCE TUflR I 6(i 

3,00 50*1 *8 Ur G • LOSS PRU It_E ,90 .9*6. ,977 .90* 

CASE 1. 0 

stage PERFORMANCE 

stage 1 STAGE 2 STAGE 3 STAGE 4 


TT FAR 0 

70D.0 

Gup .5 

PTCAP c 

17.140 

1 0, 1*0 

wG 0 

4 3 * 6 1 2 

43,61? 

cel p 

21.960 

11.3 '0 

WRT/P 

67.320 

106. 3C3 

DH/TTGMiO 

.03)37 

• 0 1r6r 

n/rT 

190.532 

204 . 3 - H 

ETA TT 

.9354$ 

.93016 

El A TS 

.82312 

.74101 

El A AT 

« 9?<)64 

.92376 

PT0/P51 

1 .600 

1.3*7 

PTHA&0/PTBAR2 

1 .694 

1*3-8 

PTPaF>o/PS2 

1 .640 

1.4 75 

PTR2/PS2 

1.340 

1 .?16 

TT6AR2/TT8AR0 

.86920 

.92212 

TTP1A/TT8AR0 

.91710 

.9* ?S3 

WG 1 

43.61? 

43.61? 

PS 1 A 

10.770 

7.659 

TTR ia 

64?. 0 

576. P 

PTR 1 A 

12.478 

6 . 3*3 

W G 1A 

43.012 

43.612 

PS 2 

9.314 

6.P60 

TT0 AP 2 

6 0 (i . 5 

56) .1 

PT6AR 2 

10.120 

7.452 

WG 2 

43.612 

43.612 

WG 2* 

43.612 

43.612 

up/vi 

. 4 4 h 2 1 

.59095 

UR/VI 

. 35559 

.43632 

PS1 P 

1.02409 

.53o*b 

PSI P 

1.62705 

.972/0 

RX P 

• 2 1 420 

.260-4 

RX P 

-.08793 

-• 0 7?5 3 

ALPHA 0 

0.000 

20.3*7 

I STATOR 

0.000 

.1*7 

BETA 1A 

46.336 

15.3^3 

I ROTOR 

8.236 

-.757 
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3. Output Data (continued) 


alpha ai 

20.327 

-9.?99 




OnETA R 

116.216 

86.338 




m 1 

.63798 

.64215 




HI PT 

1 .01 1 le 

.78439 




HP \ A 

.47064 

.35)96 




**RlA R7 

• 69 1 8 1 

.50438 




MR 2 

.64040 

.620/7 




HR? TIP 

.69787 

♦61046 




E/TH CP 

16.272 

9.692 




N/PTH CR 

4339.3 

4654 • 2 




wrtkre/c 

43.440 

68.594 






Overall performance 



P5) P 

.77717 

PS1 W 

1.32335 

DEL H 

33.33004 

*RT/P 

67.31951 

N/RT 

190.53109 

DEL'H/TTIN 

.04761 

pto/ptcap? 

2.29991 

PT0/PS2 

2,49847 

PT0/PAT2A 

2, 30903 

ETA XT 

.93700 

ETA TS 

• 8621 3 

FT A TAT 

.93477 

*NE/60C 

3141,64) 

N/RTh CR 

4339,329 

E/TH CR 

24,69720 


NASA TUPBJNE COMPUTER PROGRAM 
NASA T*0 STAGE REFERENCE TURH i N£ 

1*00 E 04 1 -b UtG * LOSS PPCFIlE ,9B ,94b. *977 *90* 

CASE 1, 0 

inter-stage performance 


ST A 0 

stator i nlf. t 


OU v 0 

19,999 

21.777 

T! Q 

700 . 0 

700 , U 

PT 0 

17,140 

17,140 

alpha o 

0.000 

n, Ooo 

I stator 

0.000 

0.000 

v 0 

299. *63 

299,463 

Vu 0 

0.000 

0,000 

V2 0 

299*463 

299.463 

TS 0 

692. b 

692,5 

PS 0 

16,509 

16.509 

ntNS 0 

,06434 

.06434 

H 0 

.23213 

.2321 3 

CP o 

.23996 

.23996 

RC* 0 

53,350 

53,350 

GAMG o 

1 .40000 

1.40000 

Rwb 0 

1 .00000 

1.00000 

WG 0 

6.50435 

7, 7096b 

STa 1 

stator exit 


nl av i 

19,999 

21.777 

alpha ] 

69.539 

6/, 940 

LEL A 

69,539 

67,940 

V 1 

1147,972 

1000,202 

Vb 1 

1075.549 

1001.125 

V2 1 

401.291 

405,602 

TS 1 

590.3 

602.9 

PS 1 

9,252 

in, 046 

ntNS l 

.04230 

, 04498 

* 1 

,96384 

,09743 

2 w 1 INC 

-.65502 

-.69615 

CP s 

,93195 

.92314 

CP 1 

.23996 

,23996 

RG l 

53.350 

53.350 

fiAMG 1 

1.40000 

1 .4Q0O0 

R wG 1 

1.00000 

1.00000 

WN l 

6,50435 

7,70666 


STAGE 1* 


23.555 

25.333 

27.111 

?oo,o 

7no* 0 

700.0 

17,140 

17,140 

17.140 

0,000 

0,000 

0.000 

0,000 

0,000 

0.000 

29S,463 

299,463 

299,403 

0.000 

0.000 

0.000 

299,463 

299,463 

299.463 

092,5 

692.5 

692.5 

It, 509 

16,509 

16,509 

,06434 

. 06434 

, 06434 

.23213 

.23213 

,23213 

.<3996 

.21996 

.23996 

53,350 

53,350 

53,350 

1 ,<*0000 

1*40000 

1.40000 

i.oooon 

1 . ooooo 

1.00000 

8 • t 0273 

9. TftoEl 

10.73712 

23,565 

25.333 

27.111 

6*. 303 

64,91 1 

63.369 

66,303 

*64.911 

63.359 

1G1 J.726 

954. 148 

695.217 

931.914 

R64, 123 

800,175 

4Q9 , 026 

404.586 

401.413 

1 1 3 , 0 

6?4 * 2 

633.3 

10,712 

11,379 

11.936 

.04711 

« 04920 

,05067 

,63790 

.77904 

.72567 

i 3603 

-.76804 

-.80159 

,91342 

*9f 1 50 

.eeftio 

,<3996 

.23996 

.23996 

53.350 

53,350 

53.350 

1,40000 

1 .40000 

1.40000 

1,00000 

1 .OocOO 

1.00000 

8 , 1 0273 

9,78001 

10,7371? 


A3. 6)163 TOTAu FLOW 


A3. 61)66 TOT FLOW 
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3. Output Data (continued) 


MSA turbine computer program 
k AS A T»0 STAGE »EFfPE\CE TUR«I^E 

1.00 50*1 -8 PEG. LOSS PRLFILE .98 .9*6, ,977 .90t 

CASE 1. 0 

1sT£R-STaG£ PERFORMANCE 


sta m 

PC TCP INLET 


STAGE 1. 

DI*M 1A 

19,006 

21.721 

23.355 

PTP 1* 

11.9V4 

12.251 

1* .470 

T TP 1A 

6 J7 , 2 

639.2 

642.0 

BETA lA 

58. £85 

53.180 

46,336 

1 POTOP 

8.C05 

0, 288 

6.236 

» 1* 

754.102 

656.963 

572 ,03* 

RU 1* 

644,2*3 

525.969 

*13.610 

MR 1 A 

.633*0 

,5*56* 

,47064 

U 1A 

*37, *07 

477. 755 

51*. 104 

PS 1A 

9,225 

10.067 

10,770 

TS U 

589 , 6 

60 3. 3 

614,7 

CP 1A 

.23996 

.23996 

.23996 

PG 1A 

53.360 

53,35V 

53,350 

GAMG lA 

1,40000 

1 .4QU00 

1 ,40000 

QwG 1 A 

1 , 00000 

1 .00000 

1 .coooo 

*G 1A 

6.58*35 

7 .70660 

0.60273 

STA ? 

PC TCP 



niAM 1 

19,436 

21.495 

23.555 

PTO 2 

11.9*7 

12.225 

16.47b 

TTO 2 

636,5 

*00 , a 

6 42,0 

«ETA 2 

57.531 

50.629 

5* ,379 

UBET* 

116,216 

111.017 

1 0 - , 7 1 5 

D 2 

7nO.P6C 

738 . 9* tt 

764.765 

Ru 2 

=90,630 

630.922 

656 . 1 ?i 

MO 2 

.53512 

.61 Wfl4 

.64048 

‘J 2 

4 ? 7 , 5 0 0 

*72.802 

516,10* 

PX 

-.00*02 

.11699 

• c 1 * ?0 

OELH 

21.683 

22.139 

2<.1B2 

PST P 

2.90236 

2.45370 

2,06093 

ETA tt 

,91'. 18 

,9418* 

, S*5 1 0 

eta TS 

,80596 

.82681 

.63127 

ETA AT 

.89*19 

.92233 

,92980 

l*\ INC 

-1.H5326 

-1.61317 

-1 .**2033 

CP P 

-.16035 

.2Q9S 9 

,4*051 

PS 2 

9,277 

9 » 29tt 

5.31* 

TS 2 

595.7 

593.3 

i 93 , 3 

Cm 2 

,23996 

,2399b 

3996 

Qfi 2 

53.350 

53,350 

53.350 

fiAMfi 2 

1 ,40000 

1 ,*C000 

1,40000 

R#G 2 

1 , 00000 

1 . nQOOO 

1 .00*00 

u'i ? 

6.89P15 

7 ,05b?6 

0, 73519 

p T 2* 

10,061 

10*112 

10.122 

TT 24 

609,6 

607. 7 

607.6 

V 2* 

4 02.1^8 

406.590 

*03.078 

vu 2* 

164.003 

158.53b 

14C.019 

AcPHA JA 

24 , 030 

22.949 

20,327 

mF 2* 

,3067, 

.31330 

* 3 1 1 36 

V2 ?4 

367. 151 

3 7* , 4o9 

377,970 

TS 2* 

596 ,2 

594,0 

594 , 0 

PS 2* 

9.30* 

9,334 

5,355 

n FNS 24 

• 04213 

♦ 0 4 2 4 1 

,04251 

M 2* 

,33598 

,34032 

,33736 

CP 24 

.23996 

.23996 

.23996 

PG It 

33.350 

53.350 

53,350 

C* A M G 24 

1 .40U00 

1 .*QQ0U 

1 .4 0000 

R*G ?4 

1 ,00000 

I.00000 

1 ,00000 

*G 2A 

t .09015 

7.05B25 

8.73519 


23.389 2 7,?2* 

12,778 13,083 

6*5*8 650.* 

37,96* 27.212 

7,764 6.312 

493,769 *33.126 

303.751 198.059 

, 4 a ? 7 4 ,35068 

558, *52 593,801 

11.461 12.035 

6?5 « 5 634,8 

.21996 ,23996 

53,150 53.350 

1.40000 1.40000 

1 . 00 000 1 . 00000 

9 * 7 fl 06 1 1 0,73712 43,61 168 TOTA L FLOw 


25,615 27.67* 

12.P10 13.154 

6*6.3 651,4 

60,?S6 60.964 

98.223 08.175 

797,556 818,486 

692.496 715.611 

, 6*793 .68411 

563.40b 608,708 

.3*756 ,30295 

22,137 21.658 

1.7*143 j. 48743 
.9*75? ,92554 

,81236 .01639 

,9 1*36. .91677 

-1.2*5b4 -1.09099 

.61671 ,71997 

9,330 9,342 

5o3 ♦ 3 595.7 

.23996 .23996 

53.350 53*350 

l • 4n o 00 1.40000 

1 . On 000 1.00000 

9.6*391 10,45615 43.61166 TOTAL FLO# 

10,148 10.138 

6A7.7 609,7 

404, o07 39H.169 

1 2h. p 06 1 06,46-9 

10.592 15.509 

,32046 .32044 

302,924 383.670 

5Q4 • 2 596 , 5 

9,376 9.391 

.04259 .04249 

.3*1011 .33255 

.21996 .23996 

53.350 53.350 

l .40000 1.40000 

i.Onooo 1 . oooo 0 

9.6*391 10.45615 43,61166 TOTA L FlO# 
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3. Output Data (continued) 


NASA 1*J.«dlNC COpPuUR PHOGRaM 
NASA T*0 STAGE HE FERthCE TURiiJ.Nf. 


1. 

■ o’o 

5041 -fc 

DtG . LOSS 

PHLf- IlE 

,98 ,946 

1 .977 , 

90. 




CASE 

1. 0 







InTFR-STAcC PLRFC'R- 

-ancE 



STA 

0 

STATOR Inlet 

STaGL 2 

* 



01AM 

0 

19.323 

21 .439 

23,556 

25,671 

27.7t;7 


TT 

0 

602<5 

603.6 

tOB.6 

668.5 

6C0.5 


PT 

c 

10.120 

1 u * 1 2 0 

1C, lpO 

10.120 

10,120 


alpha 

0 

24. OHO 

22.949 

20.327 

IP. 59? 

15.509 


I STATOR 

-.920 

, 649 

.127 

.29? 

-1.090 


V 

0 

402. KB 

406,690 

403,078 

404.007 

3V8.J69 


Vi; 

0 

164*083 

15H.536 

1 4 C . 0 1 9 

12H.P06 

106.469 


vz 

0 

367. 151 

374,40V 

37/.97U 

3^2.924 

363.670 


TS 

0 

596.2 

594.0 

694 . 0 

694 • 2 

596.5 


PS 

0 

9.304 

9 . 334 

S.355 

9.3?6 

9.391 


PENS 

0 

,04213 

. 0424 1 

.04251 

. 04?5'> 

. 04?49 


M 

0 

,3359* 

.34032 

. 33736 

.33811 

.33255 


CP 

0 

.23996 

.23996 

,2 3996 

.23996 

.23996 


eg 

0 

53.350 

53,360 

53,350 

53,350 

53,350 


GwHG 

0 

1 . 40000 

1 .40000 

1 .40000 

1 .40000 

1.40000 


PWG 

0 

1 . onooo 

1 . 0 0 0 Q u 

1 ,00000 

l .00000 

1*00000 


WG 

0 

6*B9t: 15 

7.85826 

8, 7 3519? 

9.6*391 

10.45615 

43.61166 

STA 

1 

STATOR exit 






D I Am 

1 

18.962 

21.259 

23,555 

25,851 

28.14B 


ALPHA 

I 

61 » 6 b 1 

59.301 

5 / ,cce 

54,670 

52.234 


DEL 

A 

85.731 

«2. 250 

77,395 

73.262 

67.744 


V 

1 

e52. 196 

795.576 

74c, 339 

695,126 

650.709 


vu 

1 

749.990 

684,055 

626,415 

567,111 

514, 3 9 


vz 

1 

404.665 

406,16c 

*0- ,742 

401 .978 

398,519 


TS 

1 

548 . 0 

555. d 

562,1 

5 a P . 3 

573.? 


PS 

1 

6.934 

7.321 

>.624 

7.926 

8,15* 


dens 

1 

,03415 

* 03556 

,03661 

.03765 

.03641 


M 

\ 

,74259 

,68839 

.64215 

.50484 

,55441 


Zki I INC 

-1,03734 

-1.09869 

-1,13154 

-1 . UR54 

- ] , 17646 


CP 

s 

.77731 

,73081 

. 7 0*3? 

.6*221 

.62553 


CP 

1 

,23996 

.23996 

.23996 

.2^996 

.23996 


R6 

1 

53.350 

53*350 

53.350 

53,350 

53,350 


GAVC? 

1 

1.40000 

1 .40000 

1 ,40000 

1 .40000 

1.40000 


R«G 

1 

1 . 00000 

1.00000 

1 , 00000 

1 .Onooo 

1*00000 


WG 

1 

6,56330 

7,69027 

8, 1 6394 

9.709 79 

10.79323 

43,61164 


TOTAL FLOW 


TOTAL FLOW 


ST* 

U 

PC TOR IMCT 


STA(jfc 2, 



OTAm 

1 A 

10. £49 

21.202 

23,555 

25.908 

20.261 

PTB 

1* 

7.943 

P.161 

t.3*3 

8,600 

8.871 

T T9 

14 

570.7 

573.3 

576, d 

Sol .8 

587.6 

P£T A 

1 4 

*0,53$ 

20,960 

15,3*3 

-.585 

-15,815 

1 H0TC9 

3.435 

2.060 

-.757 

-5.185 

-9,115 

P 

1 * 

522.3*2 

*63.435 

*05,333 

38R.963 

*00,905 

MU 

14 

339, 

219. 552 

lot, ill 

-3,979 

-109.261 

MR 

14 

.45573 

.39220 

,35196 

. 3^3** 

.34128 

U 

\ A 

4 14.tC? 

*66.353 

51* , 1 0* 

569,855 

621.606 

PS 

14 

6.530 

7.3*1 

7.659 

7.970 

8,209 

T 5 

14 

548 1 0 

556,2 

562.9 

5*9.2 

574.3 

CP 

1 4 

.23596 

,23996 

,0996 

.29996 

,23996 

RG 

14 

53.?5y 

53.350 

53,350 

53.350 

53.350 

GAHG 

14 

1 .*0COQ 

1 . * 0 0 0 0 

1 ,*0000 

l . *r 0 O 0 

1,40000 


14 

1 ,00000 

1 , ^0000 

1 .00000 

1 . OoCOO 

1,00000 

*»G 

1 4 

* ,5f>3«5 

7,69027 

8.7639* 

9.79979 

10.79383 43.61164 


total FLOW 
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977 .90* 


NASA TURBINE COnPyT£H PRDG«*m 
*AS4 T*0 STAGE REFERENCE FUrtai^E 


1.00 

604) •« 0EG 

. LOSS 

prcfile . 

90 .9*6, 

.977 , 9 0 < 



CASE 

l. 0 




tvtfp-stage 

PERFORMANCE 


ST a 2 

RCTCR E* I T 





OIA" 2 

) 8.399 

20.V77 

23.555 

26.133 

20.711 

RTR 2 

7.950 

a , 142 

t.343 

0,625 

8,926 

TT« 2 

570.0 

573*o 

S7b.a 

5fl2. 3 

508,7 

PtTA l 

4 5 , i? ■) 3 

47,‘yftO 

45,600 

51,528 

52.888 

uflFTA 

AS, 33a 

7h » 94 u 

64.943 

5C.94* 

37,072 

B 2 

5 i o*e 1 a 

5S p t 390 

597.132 

6*6.661 

635,002 

PI 2 

366.232 

4 1 4 , B 3 *♦ 

45“ .736 

5 Oto . ?79 

546.256 

2 

.44500 

.4? 703 

.52077 

.5*377 

.59605 

' 2 

a o 4 , 6 ’■# 5 

461 , jgw 

51b. 10* 

574,808 

631.513 

RX 

. 027*7 

,16069 

,£6054 

. 35780 

. 43067 

HELP 

11.* TZ 

11,91a 

U.bS2 

11,307 

10.570 

rSl P 

1 .77)02 

1*30666 

1 .C3674 

,864 1 7 

•67406 

ETA tt 

• 32*95 

,94980 

.94776 

,9402b 

♦89652 

fta ts 

,77;oc 

.77551 

, 7 5903 

.71739 

.69018 

fta at 

,922c8 

,9465a 

.54164 

,9t302 

.88571 

/wl INC 

-1,83.75 

- 1 . 49053 

-1 .£1766 

- .9*425 

-.75608 

Ck r 

- .04-11 

.34059 

,53009 

,61*3* 

,65747 

PS ? 

6**55 

*.657 

t ,H60 

6. Rfe 3 

6,667 

TS ? 

5(4-, 3 

5*7,0 

547,1 

547.5 

5*9,6 

CP 2 

.239V6 

.23996 

, £ 3996 

.21996 

,23996 

OG 2 

53.350 

53.350 

53,350 

53.350 

53.350 

GAM C 2 

) ,*0C OG 

1 .40000 

l ,4 0000 

1 ,<*nOUO 

1.40000 

Rwb 2 

) .00A09 

1 . 00000 

l .COOOO 

1 . OnpOO 

1 .00000 

WG 2 

6,21 734 

7 • * fc 0 4 a 

a. 67619 

10.00385 

1 L .25376 

PT 2 A 

7,334 

7,309 

7,439 

7.491 

7,53' 

TT 2a 

559 . 0 

SSH.b 

559.9 

561 *4 

$64,4 

V ?» 

35 p . 1 7* 

37t,67U 

39c, 171 

408,102 

422.019 

VU ? A 

-3b . <• ft 3 

-46,565 

-63,368 

-68,529 

-85 • 256 

AlP^A 2 A 

-fc.165 

-7,101 

-9,299 

-9,667 

-11.655 

t'F 24 

*310?? 

, 32601 

.33752 

.35074 

,35964 

VZ ?4 

356, lt2 

373*780 

387,017 

402,308 

413.318 

TS 

546,3 

547,0 

5*7,1 

547 *5 

5*9.6 

PS ?A 

6.0 55 

A ,657 

t , 7*6 0 

6.263 

6,867 

HENS ?A 

,03374 

,03384 

,'-3304 

.01384 

,03 3/2 

M 2 A 

. 31F0Z 

.32U53 

.34202 

, 3^.6 7 9 

.36 721 

CP 2* 

.2J996 

.23996 

,£3996 

.27995 

.23996 

PG 2* 

53,359 

53.350 

53 ,35u 

53,350 

53.350 

GA^G ?A 

1 ,40009 

1 .40000 

1 .“OOOO 

1.40000 

j ,40000 

RwG 2 A 

1,00000 

1 . 0 f: 0 0 9 

1 , Co: 0U 

! . 0 p, 0 0 0 

1 « c c 0 0 0 

2 A 

f . 2 1 7 3 4 

7 , *6 U4d 

0,676)9 

10.0038$ 

1 1.25376 


<•3*6)162 TOTAL FLOW 


43*M 162 TOTAL FLOW 


2,3 A-2 Wet-Vapor Potassium Turbine*(5 Radiol 
Sectors) 

1 • Calculation of Modified Parameters 

Using the equations given in Section 
2,3,4, the values for the modified parameters (given 
in Table 2.3 A-l) were calculated by hand and used 
as data input to the modified NASA turbine code. 
Only the 5th and 6th stages are analyzed and cor- 


the Steam Division codes. The modified parameters 
were assumed to remain constant during the small 
changes in PTPS, Unfortunately, a completely con- 
sistent set of input data was impossible to be obtained 
from either Table I or Table II of Reference (2) or 

TABLE 2. 3A-1 

MODIFIED PARAMETERS FOR POTASSIUM 
TURBINE 


respond to stages 1 and 2 in the output listing. 

Station 

d ; 

d ; 

R* 

r* 

V* 

2. Comparison of Results from Modified 

0 

5.29 

7.5) 

31.158 

1.1825 

— 

NASA Code and WSD Code 

1 

5.15 

7.83 

30.842 

1.1437 

0.92577 


1A 

5,15 

7.83 

30.842 

1.1437 

■ 

Table 2.3A-2 shows a comparison of 

2 

5.04 

8.28 

30.689 

1.16607 

0.81662 

the results between the 1 -D and 2-D codes from 

2A 

5.04 

8.28 

30.689 

1.16607 

... 

WSD and the NASA code using the modified para- 

0 

5.04 

8.28 

30.689 

1.16607 


meters, The total-to-static pressure ratio (PTPS) 

1 

4.80 

8.62 

30.828 

1.1447 

0.94752 

across the first stator was adjusted until the turbine 

1A 

4.88 

8.62 

30.828 

1.1447 


exit conditions were identical to those obtained in 

2 

4.60 

9.10 

30.763 

1.1637 

0.8155 

^Described in Reference (2). 

2A 

4.60 

9. ID 

30.763 

1.1637 

— 


= 38,828; PITS - 1.3619 
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TABLE 2.3A-2 

COMPARISON OF POTASSIUM TURBINE DATA AT MEAN DIAMETER 




Fourth Rotor 


Fifth $t*tor 


Fifth R*tgr 


Sixth Sfetor 


Sixth Rotor 

BLADE ROW 
EXIT CONDITIONS 

ffl-0 
Cod* (1) 

NASA % 

Codo (7) Dlfferwca 

Cod. 0) 

NASA 

Cod. (7) 

% 

D!ff*r oneo 

iffl-D 
Cod. (1) 

NASA 
Cod. (7) 

% 

Dlfferanc# 

(ffl-D 
dod. (1) 

NASA 
Cod. (2) 

% 

Differarvc. 

iff' 1 —0 
Cod. (1) 

NASA 
Cod. (2) 

% 

Differ arc 

BLADE 

HEIGHT 

<****> 

1,11 

1.11 * 

0.0 

1.34 

1.34 • 

0.0 

1.42 

1.62 * 

0.0 

1,87 

1.87 * 

0.0 

2.25 

2.25 • 

0.0 

MIAN 

DIAMETER 

O'**) 

4.40 

s .« • 

0.0 

4.49 

6.49* 

0.0 

6.44 

6 .44 * 

0,0 

4.75 

4,75 * 

0.0 

6.85 

6.85 * 

0,0 

FLOW 

ANGLE 

<**••) 

64.37 

" 

~ 

44. 37(45. 03) 

45.03* 

+1.03(0.0) 

44.37(43.45) 

43.45* 

-1,12(0.0! 

57.32(57.57) 

57.57* 

*0.434(0,0) 

40. 30(58. 98) 

58.98* 

-2.19(0.0) 

STATIC 

PRESSURE 

37.00 


— 

28.51 

28.198 

-1.09 

22.04 

21.943 

-0.349 

19.69 

19.495 

-0.950 

16.90 

16.892 

-0.047 

STATIC 

JEMPERATURE 

2052 

- 

-- 

1994 

1991.9 

-0.105 

1937 

1934.7 

-0.015 

1914 

191T.9 

-0.110 

1882 

1882.0 

0.0 

FLOW 

RATE 

<«/«) 

3.74 

~ 

“ 

5.74 

5.75951 

0.0 

3.7* 

5.75951 

0.0 

5.76 

5.75951 

0.0 

5.74 

5,75951 

0.0 

jet 

VELOCITY 

<V~) 

1034 

- 

— 

1049(1076.5) 

1091.3 

N f 0^*1.37) 

1075(1033.5) 

1028.4 

-4.33{-0.41 

>4) 815(811.7) 

823.0 

*0.982(1.39) 

822(790.6) 

779.9 

-*.77(- 1.35) 

GAMMA 

1.211 

1.1825* 

- 

1 . 203 

1.1437* 

- 

1.194 

1.4407* 


1.195 

1 , 1447* 


1.19* 

1.1637 


CAS 

CONSTANT 

<V*R) 

31.31 

31,158* 

-- 

31.23 

30.842* 

" 

30.93 

30.489* 

" 

30. B0 

30. 828* 


30,45 

30.743* 


EFFICIENCY 
COEFFICIENT FOR 
BLADE ROW 

" 

** 

'* 

“ 

0.92577 


" 

0.81442* 



0.94752* 



0. 8155 



(1) Fro* R»Fann<* (2) 

(?) tv.no modin*d NASA Cod. (5 rod .a I MlUxi) 


Twin. In pv*nrh*Mt an fromfff 7-D cod*. Sm Itlmnc. (2) 
Flow onglai ora wlrK raipacl to o^iol dhacHon 


* Indie, tat NASA cod* Input dato. 




Figure 2.3A-1 6th Stator Blade Exit Angles 


Figure 2.3A-2 6th Rotor Blade Exit Angles 






'H «» «7J SOD 9 2} S SO in 4 DO 4 25 * SB 4.73 ?« 7 13 7 SD 7 75 IDO 125 4» ITS *00 * 23 


Rgure 2. 3A-3 6th Rotor Exit Jet Velocity 

a combination of the two. The difference in the 
2-D blade angle distribution from that used in the 

1- D calculation is most likely the primary reason 
that the jet velocities at the mean diameters are 
not in better agreement. 

Figures 2. 3A-1 and 2. 3A-2 show the 
slight differences in the angles used in WSD 

2- D calculations and those used as input to the 
NASA code 2-D analysis. Figure 2.3A-3 shows 
the good agreement between the turbine exit jet 


* w® 1-D 
© - w® 1-D 


F ° 

i t 


— i — ■ — i — • — i — i — i — i — i — i — i — i iJiiii ■ i 

ITS 1*5 3 13 S 39 SSS S 75 ] M 11} OS 4 S5 4.75 4*5 T1S 7 JS 7 » TJt 7*5 «.!S »» Oil 473 
DIAMJTB - WCXR 

Figure 2. 3A-4 5th Stator Exit Static Pressure 

velocities as calculated by both codes. In Figure 
2,3A-4 there is also good agreement with the 
static pressure distributions from the 5th stator exit. 

It is therefore concluded that if one 
performs a hand solution (or uses an appropriate 
computer code) for a 1-D turbine analysis, then 
this method of using modified y, R, and r? parameters 
with the NASA code will give a valid and thermo- 
dynamically consistent two-dimensional analysis of 
a turbine operating in the wet vapor region. 


3. Data Input 


TunRiNt co^punr program 
T*C 5T * G£ POTASSIUM TUK^JnE 
five: kmhal sectohs 


sn A 1 A I N 
STG'.m* 
TT IK* 

l.ono 
2067 , .300 

PUN* 

38.828 

* A I pH 

0,000 FA 1 B* 0.000 

PTP $*. 

1.377 

OELC- 

0.000 

DELL" 

0,000 OfUA* 0.000 

ST<>* 

?.ooo 

SF CT* 

5. COO 


0,000 E>rp* o.ooo 

PAF * 

1.000 

SLI*: 

0.000 

AACS* 

1,000 

RPM* 24000,030 

VCT0« 

l.ooo 

kSL = 

37.600 

TSl= 1000.0 oo 

PSL* 11.200 

gapsl= 

1.618 

ENUSTos 

0,000 

ENOJO0K 

o.ooc 

PCNh» 

.200 

INLET H;01h 
.200 .200 

PPOFIlES 

.200 

.200 

0.000 

5T*Gr® 

PG* 

1 

ST A , 0 
3 1 • 1 *5 8 

STa. 1 
3o,Ha? 

STANOAPO CPTION 
axial STaUOnS 

ST A , 1 A STa. 2 

30.84? 3 0,609 

ST a . 2 A 
30,639 

0.000 

GAMG» 

1 .182 

1 . U4 

UtAA 

1.166 

1 ,166 

0.000 

o«* 

5.290 

5.150 

5.150 

5.040 

5, C40 

0 . COO 

OT* 

7.510 

7. #30 

7.B30 

0.2RO 

6.280 

0,0'j0 

Bk& = 

1.000 

1 .000 

l.ouo 

1 .000 

1.000 

o.ooc 

SOIa* 

FOOT 
0 . 0 A 0 

STATOR 

o.oco 

HaUIAL CISTpIHuTIOns 
P lTCh 

o.ooc 0,000 

TIP 

0 . 0 0 o 

C.Ov'O 

SOc A 

66.100 

65.600 

65.030 

64,350 

63,650 

0,000 

SPEC" 

1.0 00 

1.000 

1.000 

1.000 

1.000 

0.000 

St T A* 

.926 


.926 

.9 ?(> 

.926 

0,000 

SCF* 

1.0 00 

1.000 

1.000 

1,000 

1 .000 

0.000 

SPA* 

0.000 

0.000 

0*000 

0, 000 

o. oco 

0.000 

SESTh* 

l.OCO 
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rotor 

RADIAL DISTRIBUTIONS 



pDI a* 

*0,050 

41.500 

33.060 

22,000 

6,500 

0.000 

DOC A * 

61*600 

62.650 

63.650 

64,550 

6b. 350 

0.000 

P9EC» 

l .oco 

1.000 

1.000 

1.000 

l .000 

o.oco 

Dt T ab 

.817 

.fcl? 

.817 

. F. 1 7 

. « 1 V 

0,000 

pcf* 

1 .000 

1.000 

1.000 

1 , 000 

1,000 

0.000 

PPA = 

0.000 

0.000 

0.000 

0. 000 

o.oco 

0.000 

PTP = 

1.000 

1.000 

1.000 

1 .000 

1.000 

0.000 

PE«TH» 

1.000 









STANDARD ( 

OPTION 



STAGE* 

? 


■*XlAi_ stations 




ST A . 0 

STA. 1 

STA.1A 

STA. 2 

S T A . 2 A 


DG= 

30.6P9 

30.HZR 

3O.0ZS 

3C,7«3 

30.763 

0.00 r 

GAM6» 

1.166 

1.145 

1.1*5 

1 . 1 i.-4 

1.164 

0,030 

DP* 

5.0*0 

*.tt6 0 

4 « b B 0 

4.60 0 

A. 6 00 

0.000 

OT* 

8. 2 ? 0 

fi.629 

8.620 

9.100 

9.100 

o.oco 

Wk/G«* 

i . oon 

1.000 

1.000 

1 , 000 

1.000 

0.00 0 


SUIA4 

ROOT 

32.300 

SDEAe 

60 .900 

S R EC» 

1 -oon 

StTA = 

,9*8 

SCFb 

1.000 

SPAS 

0.000 

SFSThs 

1.000 


PDT 

32.800 

DUE A* 

52.600 

ope:c* 

1 . 000 

&L 7 As 

.816 

RCT » 

l .000 

RP AS 

o.ooo 

KT* * 

l.ooo 

Pf RT ►■* 

1 .000 


stator Radial cistpibutiuna 



PITCH 


TIP 


29.700 

26 . 5*0 

23.400 

20,000 

0.000 

59.250 

57,570 

55 .R 50 

54.150 

0.000 

1.000 

1 . 0 O 0 

l ,000 

1.000 

0.000 

, 9'*8 

.948 

.946 

.946 

c.ooo 

1.000 

1 .000 

1.000 

1,000 

0 . (IO 0 

0.000 

0.000 

0,000 

0 . GOO 

0.000 


ruToh 

RADIAL DISTRIBUTIONS 



16.000 

- 2.660 

- 20.500 

- 35.000 

0.000 

56.100 

58.980 

bl ,450 

63.600 

0,000 

1 . ono 

1 . 000 

1.000 

1.000 

0,000 

.til* 

.516 

, A \6 

,816 

0,00 0 

1 .000 

1,000 

1 .000 

1,000 

0.000 

D . 00 0 

o.ooo 

0 . ooo 

0.000 

0.000 

1 .000 

1 .000 

1 .000 

1 ,C 00 

0.000 


4, Oufpul Data 



na:"a 

TuPOiNl COMPUTER P P C G h A w 

Two STAGE 

POT ASSIUP 

TURBINE 

FIVE RADIAL SECTORS 

CASE 2. 0 

stage performance 


STAGE 1 

STAGE 2 ST/GL 

rre/,R 0 

2067.3 

1955*8 

PTE AR 0 

38,623 

23,524 

v G 0 

5.753 

5.768 

CE.L H 

12,071 

17,9^4 

*PT/P 

6.763 

10,P*5 

DH/TTBiPO 

.01590 

.009 1 6 

n/rt 

527. *599 

542.667 

ETA TT 

, P 2906 

.H2?t 1 

EU T 5 

.73329 

,7)6^0 

ETA AT 

.6067? 

.62531 

RT0/RS1 

1.177 

1 ,205 

PTR.ARO/RTBAR? 

1.651 

1.331 

pTRAR'o/PSc 

1 .769 

1,3^3 

PTR2/PS2 

1.296 

1 >219 

T T0AR?2 T T8 ADO 

,94606 

.96500 

TTftlA/TTliiRO 

,97296 

. 9h36 9 

*G 1 

5.750 

5.75B 

PS 1* 

26.190 

19,495 

T T R 1A 

2011,4 

192A.3 

PTP 1A 

30.47? 

20.520 

*6 JA 

5.750 

5.768 

PS l 

21.963 

lo.PS2 

TTEAP 2 

1955,6 

1B95 *2 

PTBAP 2 

23.524 

17.676 

WG 2 

5.7SP 

5.760 

*G ?A 

5.7551 

5,760 

UP/ VI 

.45953 

,63693 

uo/vl 

.35610 

.44358 

PS1 p 

.56799 

.44324 

PSI P 

1 .44550 

.9) ?23 

R Ik P 

.4J914 

. * ?. 5 1 8 
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Output Data (continued) 

PX P .209C4 

. 126t0 

ALPHA C 

0.000 

26.14? 

I stator 

0.000 

-.393 

BETA 1 A 

33.910 

-1 .*84 

I ROTOR 

• 85 0 

1.2^6 

ALPHA 2* 

26.147 

-6.9S 1 

C 6 ETA fi 

109,973 

64.948 

* 1 

.72584 

.558 60 

► 1 RT 

•86683 

.70313 

VR ] A 

.36920 

.29968 

MR! A WT 

.55090 

.42459 

MR Z 

• 6RHG6 

.52969 


. nasa turbine 

TWO ST AGE POTASSIUM TUhUInE 
FIVE RADIAL SECTORS 


COMPUTER PROGRAM 


CASE ?. C 

stage performance 

stage \ STAGE z ST a6E 3 


MR2 TIP 
E/Th CR 
N/pth CR 

wRTHCRE/C 


.75376 

39.34? 

262?'* .4 

1.806 


• 6SP* 3 
?3.?*2 
27306*5 
2.693 


STAGE 4 


MSI P .64H47 
* p T/P 6.74307 
PT0/PTPAP2 ?.IQ65^ 
FTa TT .P321Q 
fNF/GOC 79 J , 


overall performance 


PSI N 
N/RT 
PTO/PSi 
ETA Ts 
N/RTh C P 


1 , 19M09 
527. B467 4 
2,29867 
. Tmq2'» 
PA274.5B5 


NASA 

TWO STAGE POTASSIUM 
FIVE RADIAL SECTORS 


TURHInE COMPUTER PROGRam 

turbine 


CASE 2. 0 

Inter-stage performance 


PEL h 
OElm/T T In 
PTC/PAT2A 
fta tat 

E/Th CR 


50.82549 
. 02459 
?. 20133 
.83138 
60.'M617 


sta 

1 A 

RCTCR INLET 


DI AM 

1 A 

5 • 4 1 u 

5.954 

ptr 

!* 

29.654 

30.037 

ttr 

1A 

2006.4 

2008 # 6 

beta 

1A 

48.373 

42.053 

I ROTOR 

-.477 

.653 

R 

1A 

754.950 

644.729 

RU 

1 A 

564.315 

431.849 

MR 

1 A 

.50490 

• 4 29g5 

U 

I A 

567.37] 

623.501 

PS 

1 A 

25.666 

27,044 

TS 

1A 

1970.3 

1962,3 

CP 

1A 

.31545 

.31545 

RG 

1A 

30.842 

30,842 

GAMG 

I A 

1.14370 

1.14370 

PivG 

1A 

1.00000 

1.00000 

*G 

1 A 

.96621 

1 , 06158 

STA 

2 

ROTOR EXIT 


OI Am 

2 

5.364 

6.012 

PTR 

2 

29.607 

30.095 

TT« 

2 

?006 .0 

2009,1 

BETA 

2 

61.600 

62,650 

DBETa 

109.973 

104,703 

R 

2 

982.663 

1002.932 

RU 

2 

864.397 

A90.H20 

MR 

?. 

.65812 

.67166 

11 

2 

561.716 

629,575 

RX 

.27374 

.35918 

DELH 

32.437 

32.851 

PSI 

P 

2.54P05 

2.09519 


STAGE l. 


6,490 

7.026 

7.542 

30.472 

3 1 f 0 9 5 

31.763 

2011,4 

2015.7 

2020,5 

33.910 

22.749 

9.399 

.65 0 

,748 

.889 

556. U2 

479,687 

433.031 

309,689 

165,482 

70.6*' 6 

.36920 

. 3l 930 

•26681 

679,631 

735.760 

791,090 

26 , 198 

29.351 

30,308 

1991,9 

2 0 0 1 • 2 

2000,6 

.31545 

.31545 

.31545 

30 , m/,2 

30.842 

30.642 

1 . 14370 

1 * 1 A 3 7 0 

1.14370 

1.00000 

1 .00000 

1.00000 

1,15544 

1 • 24444 

1.33073 


e.660 

7.308 

7.956 

30,660 

31.441 

32.298 

2013,0 

2018.6 

2024.8 

63,650 

64.55Q 

65.350 

9/.560 

87,298 

74,739 

1026,350 

1063.272 

1100. b54 

921.504 

960,092 

1000.536 

,68866 

* 7 1 1 98 

,7370? 

69/, 433 

765.291 

833.160 

.42914 

.49716 

.55252 

33.097 

33,027 

32,852 

1,74763 

1 .46741 

1.24504 


5.75839 TOTAL FLOw 
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4. Output Data (continued) 


ETA TT 

.82775 

.83218 

eta ts 

,71574 

.72958 

ETA AT 

.791 1 / 

.80466 

ZWl INC 

-1.34588 

-1.19694 

CP R 

.40976 

.58675 

PS 2 

21.823 

21 .907 

TS 2 

1936.3 

1936,5 

CP 2 

.2/692 

.27692 

Rr, 2 

3 n . (- h 9 

30.689 


,63334 

.83074 

.025*5 

,73^22 

.73985 

,73811 

.*1300 

•81534 

.81449 

1 .66034 

- ,93090 

-.81566 

,70861 

.79647 

.84527 

21.963 

22.019 

22,056 

1936.7 

I 937 .O 

1937,4 

.27692 

.27692 

.27692 

3U , h89 

30,889 

30.689 


NASA TUBdlht COMPUTER Pftf»li f U M 
Two STAGE POTASSIUM H- RhInE 
f I VC RADIAL SECTORS 

case <• w 

InTEP-STaGE performance 


ST a O' 

STATOR InLE 

M A* c 

5.512 

TT 0 

2067.3 

PT 0 

38.820 

A L F H 6 0 

0.000 

1 stator 

0.00Q 

V 0 

*47.396 

V 1 : 0 

0.000 

vz 0 

*47,396 

TS 0 

2051 .4 

P5 0 

36.991 

OtNS 0 

,08332 

v 0 

,28686 

CP 0 

,25944 

RG 0 

31. ISP 

r,AMO 0 

1 .18*2 50 

P*0 0 

1,00000 

*0 0 

,96621 


STaCE 1. 


4 ,956 

t ,*00 

20fe 7 , 3 

2C67.3 

3*. 828 

38 .826 

0,000 

0,000 

0.000 

0,000 

447. 390 

44 ?,396 

0,000 

0,000 

447,396 

447.396 

2n5 1 . 9 

2051*9 

36,991 

3i ,991 

,08332 

,08332 

,28086 

,26686 

,25944 

,25944 

31 .158 

31.15B 

\ .18250 

1 . 10250 

1 . n 0 0 0 0 

1,00000 

1 .0615K 

1 , 15544 


6 , p 4 4 
20AT.3 
3H,R?e 
0.000 
0 . ooo 

*47,396 
0,000 
*47,396 
205 i «q 

36*991 
•OP332 
•2A6U6 
,2c 944 
3 1 . 1 5fl 
1 . 1 R?50 

i « o o ooo 

1 .2*44 A 


7 . if 8» 

206? . 3 
38.626 
0.000 
0.00 0 
447,396 
0.000 
A a 7 # 3^6 
2051.9 
36.99 i 
* 00332 
,28666 
, 25944 

31.159 

1.18250 

1.00000 

1*3307 3 5.75339 


5T a 

1 

statqp exit 

n 1 a* 

1 

5.“18 

alpha 

1 

66. TOO 

del 

A 

66.100 

V 

l 

1237.825 

VI J 

1 

1 1 3 1 * fc ce 

vz 

1 

501.495 

T $ 

\ 

\ 9 7 C . 3 

PS 

1 

25.666 

OEN$ 

1 

. C 6 G B 2 

V 

1 

,B?778 

7 W 1 INC 

74081 

CP 

S 

,06936 

c» 

1 

,31645 

«0 

1 

3 0 1 p A ? 

0**0 

1 

1 . 14370 

K«r- 

1 

1,00000 

*0 

1 

,96t 2 1 

GAMf; 

2 

1,16607 

R*P 

2 

1 , 00000 

wfi 

2 

,937J4 

r T 

? A 

23.655 

TT 

24 

1957.3 

V 

2A 

556,829 

V u 

2* 

302.601 

AlP6A 

?A 

32.928 

»r 

2* 

.31302 

v 2 

?A 

467.379 

TS 

2* 

1936.3 

PS 

2A 

21.823 

np.NS 

? A 

,05288 

M 

2a 

,37293 

CP 

2a 

,2/692 

PG 

? A 

JO . 689 

G A ^ C\ 

2A 

1 , 16*0 7 

Qf<j 

? A 

1,0000 0 

*• G 

?A 

, 93 7 l 4 


5,954 

t ,400 

65,600 

65,030 

65, 6C0 

65,030 

1 158,855 

1091.32/ 

1055,350 

984,319 

476, 7?9 

*60,698 

1 q f> 2 , 3 

1991.9 

27 , D44 

26,198 

.06370 

,06609 

,77262 

.72554 

-,75242 

76537 

.P5095 

,63194 

.31545 

,31545 

30,8*2 

3 i* ,842 

1,14370 

1 , 14370 

1 , or. coo 

1 *00000 

1,06156 

l , 15544 

1 ,1660/ 

1 , 16607 

1 .00000 

1 * coooo 

1 .03939 

1.14342 

??, 506 

23.492 

1955.9 

1 555 , U 

S29,fcS0 

50^ * 47 1 

261,246 

22* ,071 

29.552 

?t , 147 

,30856 

,20566 

4t>n, 772 

456,43? 

1936.5 

1536, 7 

21.907 

2 1.903 

, C! 5 j 0 r. 

, 05321 

, 35473 

, 24d51 

,27692 

,27692 

30,689 

30 ,609 

1,166 ft / 

1 , 16*07 

1*6000 y 

1 , c ft u {1 ft 

1.03939 

1 , 1 434? 


7,ft26 

7.562 

6* , 3^0 

63-650 

64 , 350 

fe3,650 

1021.951 

962,546 

921. 2-3 

862,536 

442.375 

427.230 

2001*2 

2008.6 

29,351 

30.308 

,0*046 

,070^5 

♦*7012 

.63751 

7cn43 

-.79547 

,M,tP34 

.78396 

•3l5*5 

.31545 

30,042 

30,842 

1.14370 

1,14370 

1 . 0 0 0 0 0 

1.00000 

1 .24444 

1.33073 

1 .1*6 0 7 

1,16607 

1 ,'OftQOO 

i , 00000 

l .25n9B 

1 . 37946 

23.480 

23,473 

1955.3 

1955,9 

496.706 

400.699 

1V4.PUI 

167.386 

23.ft9\ 

20.030 

,30596 

.30742 

4 56 , 9 1 3 

459, 1 39 

1977,0 

1937.4 

22,0l9 

22,058 

.05334 

.05342 

. 33260 

.32721 

,27*92 

.27692 

3 0.6 89 

3ft • 6M9 

1 .1**07 

1 , 1660 7 

1 .ftnnOt* 

1 ,00000 

l • 250 9 r* 

1.374-6 


6 , 75839 


5.75^39 


5 . 75 p 39 


TOTAL FI 9* 


total flow 
TOTAL FLO-* 


TOTAL Flo* 
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4, Ou Spirt D cAo (continued) 


NASA TUmiSIN’c CO^-UTEH program 
Tv/o STAG!: POIaSSIUm TO* -MINE 
FIVE RADIau SECTORS 

CASE ?, 0 

Interest age p£rf organic E 


ST A 

0 

STATOR INLET 


Dl Am 

0 

5.360 

6.012 

TT 

0 

1957.3 

1955.9 

PT 

0 

23.655 

23.566 

ALPHA 

0 

32.926 

29,552 

I stator 

.626 

• , 1 4H 

V 

0 

556.1129 

529,680 

VU 

0 

302. GDI 

261.246 

vz 

0 

067,379 

460,772 

TS 

0 

1 9 Jt? , 3 

1936.5 

PS 

0 

21.P23 

21.907 

OENS 

0 

. 05286 

.05308 

w 

0 

.37293 

.35473 

CP 

0 

.27692 

,27692 

PG 

0 

30.689 

30.6Q9 

GAMG 

0 

1 ,16607 

1 . 1 C 60 7 

RWG 

0 

1 . 00000 

l .noooo 

WG 

0 

.93710 

1.03939 

ST a 

1 

STATOR EXIT 


niAM 

1 

5.254 

6,002 

ALPHA 

1 

60,900 

59,250 

del 

A 

93.828 

86.802 

V 

1 

972.507 

889.612 

VU 

1 

549,749 

764,538 

vz 

1 

472.965 

454.853 

TS 

1 

1H97.0 

1905.4 

PS 

1 

18.215 

18.945 

DENS 

1 

,04485 

.04644 


1 

. 66265 

.60483 

ZwI INC 

-1.15624 - 

1.17526 

CP 

s 

.672)6 

,64549 

CP 

1 

.31340 

.31340 

RG 

1 

30.828 

30.828 

GAMG 

1 

1 .14470 

1 ,14470 

RWG 

] 

1 , 00000 

1 . 0 0 0 0 0 

WG 

1 

.909*0 

1 ,03454 


stage ?, 


6,660 

7.308 

7.956 

1^55,0 

195S.3 

1955,9 

23,492 

23*480 

23,473 

26,147 

23.091 

20.03C 

-.393 

-.309 

.030 

508.471 

496,706 

488, 699 

224,07! 

194,801 

167.386 

456,437 

456.91J 

459.139 

1 9 3 6 1 7 

1937.0 

1937,4 

2i,9b3 

22.019 

22,053 

,05321 

. 05334 

.05342 

.34051 

* 33260 

.32721 

,27692 

•27692 

.27692 

30.689 

30.689 

30.689 

1 .1 66 0 7 

1.16607 

1 .16607 

1 .00000 

1 « 0 ft 0 0 0 

l. 00000 

1.14342 

1.25898 

1,37946 


6,750 

7.498 

8,246 

5 ',570 

55,850 

54,150 

63,717 

76,941 

74,180 

823,007 

756.647 

707.705 

694,650 

627,834 

573.632 

44 1,353 

425.675 

414.479 

1911.9 

1918.6 

1923.9 

19,495 

20,045 

20,459 

.0*763 

. O488O 

.04967 

,55860 

.51402 

.47083 

1,18763 

-1 . 1 Q 7 Q 4 

-1.19952 

.61830 

•57133 

.52315 

.31340 

»3i 340 

.31340 

30,828 

30 , 8?0 

30.32S 

1 .14470 

1 . 14470 

1.1447C 

1 .00000 

1 .00000 

1.00000 

1.15778 

1.27150 

1.36518 


5*75839 TOTAL KLOtf 


5.75840 TOTAL FLOw 
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4. Output Data (continued) 


NASA TUfittINE COt't'UTpR PROGRa* 
T»;0 S1A6F POTASSIUM TURh InE 
MEAN DlAMpTLH C AtClILAT I 0 'M 

CASE 3, 0 

IrjTEP-SI«GE PERFORMANCE 


ST a 

0 

stator inlet 


stage 1 

HI Am 

0 

5.290 

6.4Q0 

'.MO 

TT 

0 

? 067 , 3 

206 7.3 

2067,3 

PT 

0 


3*. *2* 

36.H?« 

ALPHA 

0 

0,000 

0 . 0 o o 

C , i(Oi) 

I stator 

0,000 

0 .000 

c.ooo 

V 

0 

4 4 7,396 

4 4 7 • 396 

44 7 , 396 

vu 

0 

0,000 

o.ooo 

0.000 

VI 

0 

447, 39fc 

44 7. 396 

44 ' . 396 

TS 

0 

?051 .9 

2061 .9 

2051 .9 

PS 

0 

36.991 

3*' ,991 

36.991 

Dt NS 

0 

.0*332 

.0*332 

.08332 

v 

0 

.28**6 

.2*686 

.28686 

CP 

0 

.26944 

• 26 9 a *+ 

.25944 

R'G 

0 

31.16* 

31.166 

31,158 

GAMG 

0 

l .1*250 

1 . 1*260 

1,18250 

P WG 

0 

1.00000 

1 . 00000 

1 . OOOQO 

ST a 

1 

stator exit 



nl aw 

1 

6,150 

6.490 

'.830 

ALPHA 

1 

69.720 

6*, 030 

60 . 672 

UfLL 

A 

69.720 

66.030 

60,672 

V 

1 

1329.131 

1091.3?7 

940.563 

Vu 

1 

1246.734 

9*9.319 

820.011 

vj 

1 

460.69* 

460.69b 

460.698 

TS 

1 

1 965 • 5 

1991.9 

2011.3 

PS 

1 

?4.344 

?*, 19b 

30 ,458 

nfcNS 

1 

.05*12 

.06609 

.07070 


1 

,«9?20 

. 72584 

.62254 

2wl IMC 

-.65026 

-.76537 

-.65406 

CP 

S 

.*8670 

.83194 

. '7374 

CP 

1 

.31645 

.31545 

.31545 

RG 

1 

3 0 , * 4 ? 

30.842 

30.842 

GAMG 

1 

1,14370 

1 . 14370 

1 .14370 


1 

1 .00000 

1 . oouoo 

1.00000 
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2.3A-3 Wet-Vapor Potassium Turbine * (Mean 
Diameter Calculation)^ 

1 . Comparison of Results 

The same modified parameters given in 
Table 2.3A-1 are used in the one radial sector (mean 
diameter) calculation. The results are in good agree- 
ment with the 5 radial sector calculation as can be 
seen by comparing the calculated parameters at the 


mean diameter. In the single sector case the hub 
and tip values are calculated assuming a free vortex 
distribution.** There is a slight Inconsistency in 
the results in that P^, T~, P, and M for station 0 of 
the second stage are nor identical to those at sta- 
tion 2A of the first stage. The discrepancies are 
small and thought not to be significant. At this 
time there is no explanation for this anomaly. 

The output format for the mean diameter case is 
slightly different from that using 5 radial sectors. 


2. Data input 


TURBINE COMPUTER PROGRAM 
TWO STAGE POTASSIUM TURBINE 
mean diameter CALCULATION 


SDATAIN 








5TGCH- 

ItOOO 







TTINs 

2067.300 

PT IN- 

38.828 

wair- 

O.C'OO 

FAIR- 

0.000 

PTPS = 

1.377 

OELC- 

o.ooo 

DE'-L* 

0,00 0 

oela= 

0.000 

STG* 

2.000 

sect- 

1.000 

EXPM* 

0.000 

EXPP = 

o t ooo 

PAFs 

1.000 

SL I - 

0.000 

AACS = 

1.000 

RP MS 

24000.000 

V C T 0 “ 

1.000 

RSl« 

37.600 

TSL s 

InOO.OCO 

PSL- 

n, 2 co 

GAM5L= 

1.610 

enostg= 

0.000 

ENOJOrs 

0.000 





INLET 

RADIAL. 

ppofu.es 




PCN Hw 

1.000 

0.000 

0.000 

0.000 

o.coo 

0 

.000 


* Described in Westinghouse Electric Corporation, 
Astronuclear Laboratory Report WANL-PR(DD)-01 7, 
January 1967, Contract NAS 7-390. 

** Assumes a constant axial velocity component 
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2. Data Input (continued) 


ST AGK » 1 

STA, 0 

RG= 31.15R 

GftM(iss 1.1 6 2 
0«= 5*290 

DT= 7.510 
Rw6= 1*000 


ROOT 

SDIA= 0.000 
SUEA- 65.030 
S R EC= 1.000 
SETA« .926 
SCE= 1.000 
SPA- 0.000 
SESTHa 1.000 


RO I A = 33.060 

RDE A 5 63.650 


R R EC C 

1.000 

RETA = 

.817' 

RCF r 

1.000 

RPA- 

0.000 

RTF = 

1.000 

p£RTH= 

1.000 


STAGE s 

? 

ST A . 0 

RG = 

30.6P9 

gamg- 

1.166 

DM- 

5 * 0 A 0 

DT = 


RWG = 

1.000 



ROOT 

SDIAs 

26 , 54 o 

SDEA* 

57.570 

s«rc= 

1.000 

StTAr 

.94 8 

SCF = 

1.000 

SPAS 

o. one 

SESTKs 

1.000 


PUT A» 

-2.860 

PDEA = 

58.980 

RR£C = 

1.000 

PETA = 

.616 

«CF = 

1.000 

RPA = 

0 - coo 

RTFs 

1 ,000 

RE WTh* 

l.oon 


STANDARD option 



axial ST A I IONS 


STA. 1 

STA, 1A 

5T a , 2 

ST A.2A 

30.842 

30*842 

30.689 

30.669 

1 . 144 

1.144 

1.166 

1 . 166 

5.150 

5.150 

5.040 

5,040 

7.830 

7,630 

8.280 

8.260 

1.000 

,1.000 

1,000 

1 ,00C 

stator 

radial distributions 



PITCH 


TIP 

o.ooo 

0.000 

0.000 

0,000 

0.000 

0.000 

o.ooo 

0.000 

0.000 

0.000 

0.000 

0,000 

o.ooo 

0.000 

0,000 

0,000 

0.000 

0.000 

0.000 

0.000 

o.ooo 

0.000 

o.ooo 

0,000 

rotor 

radial distributions 


0 .000 

0.000 

0,000 

0,000 

0 ,000 

0.000 

0,000 

0.000 

o.ooo 

0.000 

0.000 

0,000 

0 .000 

0,000 

0,000 

o.coo 

0 . 000 

o.ooo 

0,000 

0 .000 

0.000 

0.000 

0.000 

0,000 

0.000 

0.000 

o.ooo 

0.000 


standard option 



AXIAL STATIONS 

$ T A • 2 A 

STA. 1 

ST A , 1 A 

STA. 2 

30.826 

30.826 

30.763 

30.763 

1 . 145 

1.145 

1,164 

1.164 

4,860 

4.880 

4,600 

4.600 

8,620 

8.620 

9,100 

9,100 

1.000 

1.000 

1.000 

1,000 

stator 

RADIAL DISTRIBUTIONS 
PITCH 

TIP 

o.ooo 

0.000 

0,000 

0.000 

o.ooo 

o.ooo 

0,000 

0.000 

0.000 

0.000 

0,000 

0,000 

0-000 

o.ooo 

o.ooo 

0.000 

0 • 000 

0,000 

0,000 

0,000 

0.000 

0,000 

0,000 

0.000 


DISTRIBUTIONS 

0,0 0 o 0.000 
0.000 0,000 
o.ooo 0,000 


ROTOR RADIAL 

0.000 0.000 

0.000 0.000 

0.000 0.000 

0.000 0. 000 

0.000 0.000 

0.000 0.000 

0.000 0.000 


0,000 0,000 

0,000 0,000 

0,000 0.000 

0,000 0,000 


0,000 

0.000 

0.000 

0,000 

0.000 


0,000 

0.000 

0.000 

0,000 

0.000 

0.000 


0.000 

0.000 

0.000 

0.000 

0.000 

0.000 

0.000 


0.000 

0,000 

0.000 

0.000 

0.000 


0.000 

0.000 

0.000 

0.000 

0,000 

0,000 


0.000 

0.000 

0,000 

0,000 

0.000 

0.000 

0.000 


2-62 



3. Listing of Duta Output 


NASA TURRlhE COMPUTER PROGRAM 
TWO STAGE POTASSIUM T0R3INE 
*Ean D I A w f t e r CALCULATION 

CASC 3. 0 

STAGE PERFORMANCE 



STAGE 1 

STAGE ? 

STAGE 3 

STAG^ 6 


TTEAR C 

2067.3 

19^2. 6 




PTPAR C 

30.828 

23, 1 fc 7 




wG 0 

s. ny 

5. * ? 7 




CEL H 

33. RIB 

19.5*2 




toRT/P 

6.765 

11.010 




dh/ttrapo 

.01636 

• 0 l 0 0 2 




n/rt 

K ?7 . R^g 

543.133 




ETA TT 

• G 3062 

.83613 




ETA TS 

. 73030 

.72533 




ETA AT 

.00615 

.03602 




PT0/PS1 

1.377 

1.212 




PT&AP0/PUUP2 

1.675 

1. 3*2 




PTBARC/PS2 

1.H03 

1.430 




P TR?/FS2 

1.623 

1 ,?4fe 




TTRAR2/TTBAR0 

.94451 

.96618 




TTR1A/TTPAR0 

.97296 

.903*7 




WG 1 

5.777 

5.777 




PS 1 A 

20.195 

19.126 




TTR 1 A 

2011.4 

1920*9 




PTP 1 A 

30.472 

20.164 




to G JA 

5.777 

5.7*7 




PS 2 

21 .540 

16.219 




TTR AH ? 

1952.6 

1 68 6 * 5 




PTBAR 2 

23.187 

17.022 




WG 2 

5.777 

5.7*7 




wG ?A 

5.777 

5.77? 




OP/VI 

.45217 

.612*6 




UR/VI 

.35039 

.42713 




PSI P 

.89299 

. 4 H 2 S 4 




PSI P 

1.4871 3 

.9939? 




RX P 

.447 30 

.45539 




BX P 

. 1807? 

.10147 




ALPHA 0 

0.000 

28.042 




I STATOR 

0 . 1)00 

1.502 




RETA 1 A 

33.910 

-.209 




I ROTOR 

.850 

2.6-1 




ALPHA ?A 

28.04? 

-1.64? 




GRETA R 

97.560 

58.7*1 




* 1 

• 7?584 

.567*6 




M 1 PT 

.89220 

.73450 




MR 1 A 

, 36920 

.30442 




MR 1 A PT 

,56669 

• 4 4 1 fc 1 




MR 2 

• 7 0*79 

.56012 




MP2 TIP 

. *8183 

. 70431 




E/TH CP 

40.532 

25,3*6 




N/RTH CP 

26274,6 

27329.0 




k’RThCRE/C 

1.81? 

2.94? 






overall i 

PERFORMANCE 


53 .38050 
.02562 

PSI P 
* R T / P 

.68107 
6 . 7650R 

PSI « 
n/MT 

1.25031 

527.04074 

DEL H 
DELM/TTIN 

Hi 0/PTBAR2 
Eta tt 

*NE/60C 

2. 2B10? 

.8361 1 
793,584 

PT0/PS4 
ETA TS 
n/RTh Cr 

?, 39404 
.79?31 
26274,585 

PT0/PAT2A 
FTA TAT 
E/Th cn 

2.20112 

.63607 

63.97818 
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3. Outpul Doki (continued) 

NASA TU«»I f <L COMPUTER PROGRAM 
TWO STAGE. POTASSIUM TURhKnE 
FIVE RADIAL SECTORS 

CASE 2. 0 

lMKH-SlAGE PtHFOH^ANCE 


STA 1 A 

RCTCR INLET 

Cham \t 

5.25* 

PTR JA 

19,788 

TTfi 1 A 

1917.0 

HETA \A 

32.348 

I ROTOR 

-.*52 

R \ A 

559,8*6 

&U 1 A 

299.552 

MR 1A 

•3ft I *7 

U 1 A 

550,197 

PS 1A 

16.215 

TS 1 A 

1897 . 0 

CP 1A 

.31340 

RG ] A 

30.028 

GANG 1 A 

1 . 14470 

0»G 1 A 

1 .00000 

wG 1 A 

,9(}940 

STA 2 

RCTCR E * I T 

Dl A” 2 

5.050 

PTR 2 

19.669 

TTR 2 

1915.5 

r£TA 2 

52.600 

OBETa 

84.948 

b 2 

682.758 

RU 2 

542,393 

MR 2 

.46369 

U 2 

526.634 

RX 

,221143 

OELK 

16,960 

PSI P 

1.63020 

ETA TT 

,85797 

ETa TS 

.74297 

ETA AT 

.65763 

ZwI INC 

-1.43231 

Ch R 

,32764 

PS 2 

16.689 

TS 2 

1B82.4 

CP 2 

,26103 

RG 2 

30.763 

GAmg 2 

1.1 6370 

RwG 2 

1.00000 

MG 2 

,86346 

PT 2A 

17.665 

TT ?A 

1893,3 

V ? A 

*14.913 

VU 2 A 

13.559 

ALPHA ?A 

1.873 

ME ?a 

.28163 

vz 2A 

*14.691 

TS 2 a 

1682.4 

PS 2A 

16.889 

OENS 2A 

.04200 

M 2 A 

, 281 78 

CP 2a 

,26103 

RG 2A 

30,763 

GAMG 2A 

1 , 16370 

B*G ?A 

1 . 00000 

*G 2 A 

,86346 


STAGE ?. 


6.00? 

6.750 

20.105 

2^,520 

1919.8 

192*. 3 

16.64b 

-1.584 

,64b 

1.276 

474, *53 

441.522 

136.010 

-12.202 

.32277 

. c 99 6 B 

626.527 

706 .85b 

18,94b 

1 9 ,495 

1905.4 

1911.9 

.3134“ 

.31340 

30.828 

30 ,H2B 

1.14470 

1 , 14470 

l.ooooo 

1 . 00000 

1.03*5* 

1,1577b 

5.950 

6,850 

20.069 

20,600 

1919,4 

1925,2 

56.100 

56,900 

72.74b 

57,396 

726.61 b 

779.865 

603.100 

666.334 

,49354 

,52969 

623.082 

71 r . 330 

.33978 

,42908 

18,69b 

1&. 208 

1.19519 

.69898 

.85186 

,63888 

.74135 

.72943 

.85155 

,63705 

-1. 11191 

- ,66859 

.57310 

.67947 

16,889 

16.892 

1801.8 

1682,0 

.26103 

,28103 

30.763 

30,763 

1 .16370 

1 .16370 

1 . ooooo 

1.00000 

.99454 

1 .13553 

17,650 

17.650 

1892.7 

1693.6 

*05,759 

4Q4.869 

-19,982 

-46.996 

"2.823 

-6,951 

.2/527 

.27297 

405.26/ 

*01 ,«94 

1801 ,0 

1 1 82 • 0 


16,892 

.04201 

.04201 

.27561 

,27499 

» ?8 1 0 3 

,*R1 03 

30,763 

30.763 

1 .16370 

1 . 16370 

1 .OOOOO 

1 ,00000 

,99454 

1.13553 


7,49b 

0.2*6 

21 .156 

21.671 

1931 .7 

1940,2 

-20.?79 

-3**. 969 

.221 

.031 

454 , n 1 6 

505.793 

167,354 

-289.886 

,3o762 

,34222 

785, 1 88 

863.510 

20,045 

20.459 

19i8.6 

1923,9 

.31 340 

.31340 

30,828 

30.820 

1 . H47u 

1.14*70 

1 , onnoo 

1,00000 

1 .27150 

1.38510 

7,750 

8,650 

21.390 

22.300 

1934.4 

1945.0 

61 , 450 

63.600 

41.171 

28.631 

851.208 

924,085 

747.701 

827.713 

.57800 

.62726 

fill. 577 

905.825 

.51389 

,57630 

17.619 

16.959 

,*9107 

.54219' , 

* H j 7 7fe 

,79218 

.7n720 

.68159 

.014 /0 

,78772 

- .67003 

-.51999 

,71551 

.70041 

16.095 

16.899 

1802.9 

1884.3 

.2«103 

,29103 

30.763 

30.763 

1 .1*370 

1.16370 

l ♦ OAOOO 

1.00000 

1.30005 

1 ,46480 

17.679 

17,700 

18Q5. H 

1698.6 

411.799 

418.240 

-63.877 

-70.112 

-8.924 

-10.764 

.27624 

.27890 

406.814 

410.881 

1802*9 

1804.3 

16.095 

16.899 

.04200 

.04198 

.27963 

,28390 

.20103 

.28103 

30.763 

30.763 

1 ,U3 70 

1,16370 

1 . ooooo 

1.00000 

1 ,30005 

1 .46400 


5,75340 


‘ 5.75839 


5,75039 


total FLOw 


total FlOw 


total flow 
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3. Output- Data (continued) 


_ _ _ ^ n A5A TURBINE COMPUTER PROGRam 

Tv.'O STAGE POTaSSIUh TU^BInl 
^EaN DIAMETER CALCULATION 

CASE 3. 0 

INTER-$TaGE PERFORMANCE 


STa 

1A 

PC TCP IKLET 


STagE ) . 

0 1 AM 

JA 

s.tso 

6.490 

7. 630 

P TP 

1 A 

29*190 

30.472 

32.116 

TTP 

1 A 

2000. t 

2011.4 

2024.7 

PE T A 

1A 

56.927 

33.910 

• 007 

1 ROTOR 

.291 

.650 

1,473 

P 

1A 

04 4.21 A 

555.1 12 

460,696 

RU 

1A 

707.428 

309.609 

*056 

MR 

1A 

.56669 

.36920 

•■30493 

u 

IA 

£39.306 

679.631 

819,955 

PS 

U 

24.344 

28,196 

30,458 

TS 

1 A 

1955.5 

1991 .9 

2011.3 

CP 

1 A 

•31545 

• 31545 

•31545 

RG 

1A 

30*842 

30.642 

30,642 

GAMG 

1A 

1.16370 

1 .14370 

1,14370 

RfeG 

1A 

1.00000 

1 .00000 

1,00000 


STa 2 

ROTOR EXIT 

OIaw g 

5,040 

BLTA 2 

61,327 

OBETa 

118.254 

R 2 

977.999 

RU 2 

658,070 

MR 2 

.65625 

U 2 

527,787 

RX 

•21685 

OELM 

33.8 16 

PST P 

2,97392 

ETA TT 

.B3062 

ETA TS 

.73030 

eta at 

.80615 

ZWI INC 

-1.54897 

CP P 

.25488 

PS 2 

21.270 

TS 2 

1929.0 

CP 2 

.27692 

RG 2 

30.689 

GAMG 2 

1.16607 

RWG 2 

1.00000 

PT 2A 

23.187 

TT 2a 

1952.6 

V ?A 

573.834 

VU ?A 

330.283 

alpha 2a 

35,140 

MF 2A 

.31487 

vz 2 a 

469,253 

TS 2A 

1929.0 

PS 2a 

21.278 

DENS 2 a 

.0517b 

M ?A 

.38505 

CP ?A 

,27692 

RG 2A 

30.689 

GAMG 2a 

1,16607 

RwG 2 A 

1.00000 


6.660 

e, 2 eo 

63.650 

6^,283 

97.560 

66,290 

1057.223 

1166,653 

947.377 

106*. 121 

.70879 

,76183 

697.433 

86? ,079 

.44730 

,57436 

33,810 

33,818 

1,78568 

1,18905 

.03062 

.83062 

.73030 

.73030 

.80615 

,*0615 

-1,06034 

-,73654 

.72431 

,84406 

21.540 

21 ,664 

1932.4 

1933,9 

.27692 

.27692 

30.689 

30,689 

1,16607 

1,16607 

l.ooooo 

1 .ooooo 

23.187 

23,107 

1952.6 

1952,6 

531,667 

510.506 

249,944 

201.042 

20,042 

23,192 

.31460 

.31447 

469.253 

469,253 

1932.4 

1 9 33 , 9 

21.540 

21,664 

.05230 

,05256 

.35644 

.34212 

.27692 

.27692 

30.689 

30.689 

1.16607 

1 . 16607 

) .oooou 

1 .Ooooo 
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3. Output Dnta (continued) 


NASA T L9l, 1 f-if. COM'.'ijTLH 
TWO STAGE POTASSIUM T 1 <s:i: 
mEam OlAMETEP CALCULATION 

CASE 3. U 
INTEK- 5 TAGE PtRf-OWMANCE 


ST A 

0 

S T ATOP INLET 


ol Am 

0 

5,040 

6.66U 

TT 

0 

19b?, 6 

1952.0 

PT 

0 

?3. 1 0 7 

23.187 

ALPHA 

0 

35.140 

2^.042 

I STATOR 

1.715 

1 .502 

V 

0 

573,034 

531 .667 

VI' 

0 

330.203 

249,944 

vz 

0 

409,253 

469.253 

TS 

0 

1920. 8 

1932,4 

PS 

0 

21.266 

21.540 

DINS 

0 

.05173 

.05230 

V 

0 

. 305 OO 

. 35644 

CP 

0 

, 27692 

,27692 

RG 

0 

30.609 

30.689 

GAMS 

n 

1.16,607 

1.16607 

PtoG 

0 

1.00000 

1 , 0 0 u n y 

STA 

l 

STATOH FAIT 


n 1 a p 

1 

4,000 

6 .750 

alpha 

1 

65.329 

67,570 

OEl 

A 

100,409 

85.612 

V 

1 

1073.451 

835.528 

VI; 

1 

975.465 

705.225 

V7 

1 

440.068 

448.066 

TS 

1 

1879.2 

1908.1 

PS 

1 

16.940 

19.126 

nt.NS 

1 

.04213 

,04682 

v 

1 

. 73490 

.66766 

7*1 INC 

-1.00308 

••1,21163 

CP 

5 

.71424 

.59509 

CP 

1 

.31340 

.31341) 

R<5 

* 

i 

30,028 

30.628 

GAMCj 

1 

1.14470 

1 .14470 

PwG 

1 

1 .00000 

l .00000 


STALE 2. 
fc.280 
1952.6 
?3. 18 7 
2^.192 
1.305 
510.500 
20 1.042 
46«S,?53 
1*533.6 

21.55? 
.0525* 
,34213 
, 'c 7692 
30.689 
1 ,16607 
1 .00000 


fc ,520 
50.945 
74,137 
7 1 i . 1 45 
55C. ?35 
44 fc .060 
1020.4 
20.1?0 
,04594 
.48161 
"1 ,31070 
,40457 
.31340 

1 . 14470 
1 .COOOO 
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3. Oufpuf Data (continued) 


NASA TURBINE 

TWO STAGE POTASSIUM TUKhInE 

oiaveteh calculation 


computer 


PROGRAM 


C ASF 3, 0 

intcp-stage ptwroRHANcc 



sta u 

DIAM \ A 
PTR \M 
TTR 1 A 

seta ja 
I ROTOR 
R 1 A 
RU ) A 
MR 1A 
U 1A 
PS 1 A 
T$ 1A 
CP 1A 
RG 1 A 

GA W G )A 
RWG lA 

STa 2 
OlAw ^ 
RtTA 2 
DBETa 
» 2 
RU 2 
MR 2 
U ? 
RX 
DECK 
PSI P 
ETA TT 
ETA TS 
ETA AT 
Z*I INC 
CP « 
PS 2 
TS 2 
CP 2 
RG 2 
GAMS 2 
RWG 2 
PT 2a 
TT 2a 
V 2A 

vu 2 A 
alpha 2a 
HF 2a 
vz 2 A 
TS 2 a 
PS 2A 
OENS 2a 
M 2A 
CP 2A 
PG ?A 
GANG 2a 
p^G 2a 


RCTCR EXIT 
A. 600 
47,552 
<53*579 
6?8 . 292 
463.610 
• 4 2 7 6 H 
A R 1 • 7 1 0 
.12056 
19,562 
1 .906 1 1 
.636 1 3 
.72533 
.83602 
•1.94035 
•,05500 
16,218 

1673.7 
,26103 
30,763 

1 • 16370 
1,00000 
17,022 
)886,5 
424,434 
• 18.101 
-2.444 
. 288 65 
424,047 

1873.7 
16,218 
.04052 
, 2BH 92 
,28103 
JO. 763 

1.16370 

1 .00000 


6,«50 
5n.9no 
58,771 
8?2,«53 
705.173 
.56012 
717.330 
.45539 
19.562 
.96582 
.83613 
.72533 
.83602 
-.88134 
.70348 
1 6 , ? 1 9 
1873,7 
.28103 
30,763 
1.16370 
1 .00000 
17.0?2 
1886,5 

424.222 

•12.165 

-1.642 

.28865 
4?4,04 7 
1873,7 
16.219 
.04052 
.28877 
.20103 
30,763 
1 . 16370 
1.00000 


9,100 
G5.R06 
2 7 . 776 
1034,685 
9*3, 7C9 
. ?0431 
952,949 
.59732 
19,662 
.56853 
.63613 
. 72533 
* 6 3602 
-.48493 
.69775 
1C .219 
1^73.7 
.28103 
30,763 
1,16370 
1.00000 
1 7.022 
1*86.5 

4?4 f 

-9,150 
•1,236 
,28665 
424,047 
1*73,7 
K. 219 
.04052 
.28872 
.28103 
30,763 
1 ,16370 
1,00000 
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n n 


APPENDIX 2.3B 
LISTING OF CODE 


The asterisks In the identification columns (73-80) indicate that the card has been changed 
from the orginal listing given in NASA CR-710. Most of the changes are in format statements 
so as to make the output nomenclature agree with the names of program variables used in the 

computer code. 


CM' CP 

C 

C 


c 


c 


c 


PROG MAM JIM { INPUT « OUTPUT t T AP£S- I NP'JT * T APE6--(VJTPUT ) 

nasa tu^uine program 
real mf stop 

LOGICAL PREVERfSRr LAG 

COMMON /s”tcp%.Av'.PRPC.IC65F.,PHFVEH.MFSTOP,J‘JMP.LOPIN,I3CASE. 

1KN,GAPF,IP,SCHIT,PTRN.ISECT.KSTG.WTOI-,HMOTOL.PPTOL.TRLOCP.I.ST6, 

2LBftC. IMPC.ICROKE. ISOfiRt CHOKE. PTOPSl (6.8) .FTRS2 (6.6) ,TRDU G*SC .Rt « 
30ELPM * PASS , IPCtLOPC* 1-55 


NTCP nO 1 
N T CP 002 
NTCP 003 
NTCP 004 

NTCP 006 
NTC° 007 
NTCP OOB 
NTCP 009 
NTCP nio 


COMMON /SINPUT/ MSL 

jpTPS,PTIN.TTIN,«AlR 
2EXPP,E*PRE* «PMiP 
3 R V ( 6 1 8 ) , G AM ( 6 * 8 ) «DR 
4ETAMS(6*B) .ETASi6*8 
$R(6*fi) ,f.TAR(6*B) »CF 
6 , AS^PO t 6,8) * ACMN0 (6 
76 ■? 8 5 eOMfcGAR (6*B> *BS 
f»,B3(6tfl> * BA (6*B) »B5 


•TSL«PSL*GAMSi « 

*F A I R t OELC *DEl,L 1 OELA t A ACS • VC TO * STG* SECT #EKPN» 

* F ♦ SL 1 t STGCNiFND JOR tNAME (10>,TITLE<10 » PCNH ( £, ) 
( 6 ,8) *0T (6«8) t R*G (6*8) , ALPHAS (6*8) , ALPhA H6*ft> 
) , CF S ( 6 » fj ) « ANDO < 6 • ft ) •BETAl (6,8) , P.cT A2 < 6 , 8) *E T A 
r ( 6 , 8 ) * TF R < 6 * A) , ANQCR (6*8) , OMEGAS ( 6 . 8 ) >A50'6*F, 
* 8 ) , A 1 (6*8) , A p ( 6 1 8 ) , A 3 ( 6 1 8 ) * 44 < 6 » 8 > « A 5 i 6 » 8 ) , A 6 
I A ( 6 « 8 ) • RS M P I A (6* 6) ,8C M NIA(6*8) -01 16,8) *B2 ( 6 o 6 
( 6 »H) ,86(6,8) f SESThI (0) * PERTH I <8> 


NTCP 012 

jtieoofli'tio 

RNTCP 0 15 
) NTCP nln 
(NTCP 017 
)NTCP 0 18 
NTCP 0 i 9 
NTCP 020 


oFAl , MF2 

COMMON /SFL0w2/TS2 (6,bi #CP2<8) *R?(6*e> tftH032(6,8> »BET2E(6,0) * 
\,8) • VU2 (6, R> ,UPUP2 (6,6) *VZ2 {6,«> ,MP2 (6»8) ,MF2 (6,8) ,M? (6,8) 


OIMENSION CS(«) *C«<8> 


NTCP Ocl 
RJ?(6NTCP 0?2 
NTCP n?3 
NTCP 0?4 
NTCP 0?5 
NTCP n?6 
NTCP 0?7 


CALL SL I T£ ( 0 ) 
WAIM=0.0 
F A I P = 0 • 0 
PTPS- 1 * o2 
OELC=0.0 
OELL=0.0 

dela=o.o 
F*Pn =2 . 0 
£XPP=2 • n 
exPME^O.O 
RV(i,n*0,o 
pAF » 0 . 0 
SLI"0*0 
AACSsl.O 
SECT-1 .0 
VCTC=0.0 
WT0L«1 -E-OA 
RH0T0L=1 .E-O'i 
PRTCL= 1 • t-06 
PCNh ( 1 ) =1 .0 
gam u ♦ n = 0 . o 
R#GUfl> = 1.0 
E.T AS ( 1 , 1 ) = 0 • 0 
ALPHA KliUsO.O 

ETAK<1«1)su.O 
ftE T a 2 U ,n=0.0 
T»L00P = (). 


NTCP 028 
NTCP 

NTCP 030 
NTCP 031 
NTCP 032 
NTCP 033 
NTCP 03v 
NTCP n 35 
NTCP 036 
NTCP 0 37 

NTCP 0 39 
NTCP 040 
NTCP 041 
NTCP 042 
NTCP 043 
NTCP ft 4 4 

NTCP 04*> 
NTCP 046 
NTCP 047 
NTCP 048 
NTCP 049 
NTCP 050 
NTCP nSl 
NTCP 052 
NTCP 053 
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Listing of Code (continued) 

TRDI*G=ii.O 
G c 32, 17405 
tj-llti. 161 
I C A S E = 0 

1 preveh=. false. 

REAI) ( S • IOC) SHFLAG 
100 F OR" A T ( 1 x , u 1 ) 

tF(SwFLAG) wR 1 TL < 6 « 1 POOO) 

10000 FORM AT C l»lj 1 39H AN ENTRY HA5 OCEN mAOE In MAIN PROGRAM) 
CALL INI T 
1 5CA SE = 0 

IF (PREVLR) GO TO 1 
DO 25 I -l.ft 
CS( 1 ) =0.0 
25 cmil‘0.0 
PASS = 0 

2 PRPC=CS<KN) 

CALL STA01 

IF (PHEvtW) GO 10 AO 
IF ( IChOkL ,nf . 0) GO TC 3 
IF(SC»IT.E0.1 .) SC=SC ♦ 1 . 

3 CALL STAlA 

IF (PHEVLW) 00 TO 40 
LOPlN =0 

4 JUMP- 0 
pRf>C = C«<KN) 

CALL STA2 •- 

CH(KN)=PHPC 
IF (PPEVLR) GO TO 40 
IF (1.-mF?<1*Kn( ) 24 i 5 *5 

5 IF I JUMP) A.,/-, 20 

6 CALL STa2a 

IF (PUEVtH) GO TO 40 
IF (KN-kSTG) 7,9,9 

7 kN-KN*1 

LOPIN =0 

8 jump - o 

pnpocs (Kn> 

CALL STAI 
CS(i<N)«PRPC 
IF (PPEVER) GO TO 40 
IF (JUMP/ 3. 3 *20 
9 CALL OVRALL 

IF (VCTO) 11 *11.10 

10 CALL InSTg 

11 PASSM. 

IF CTROIAG) I3«13il2 

12 CALL Ci AGT (0) 

13 IF ( 1 • •Mp s?4P > 24 « 29 « 1 4 

14 IF (DElC)24.24,15 

15 IF (DELL) 17.17,16 

16 IF(C€LPH)24,24,1B 

17 IF (CHOKE) 24. 1ft. 24 

18 lSCASEejSCASE»l 

19 JL 3 ( ISORU-l ) *8*L5TG 
IF(SC.EU.l.) OtLPRaOELL 

PTfcPS 1 ( 1+ 1 , JL) a PT0°51 (IP, JL) »0 ELPr 

20 LOPlNil 

kn^lstg 

IBROL 8 HC 

1PC*0 

IF (KN-1 ) 21 *21 ,22 


NT CP n54 
NT CP o55 
N'T CP f)5o 
NTCP 057 
NTCP fiCfi 
NT CP 059 

*r,e**o*o 
• iiiiiecX 

«O««0 0*0 
**<<•■ O o a 

NTCP 060 
NTCP n61 
NTCP 06? 
NTCP 063 
NTCP 064 
NTCP 065 
NTCP 066 
NTCP 067 
NTCP 0 66 
NTCP 069 
NTCP 07: 
NTCP 0>1 
NTCP 072 
NTCP 073 
NTCP 074 
NTCP 075 
NTCP 0 76 
NTCP 077 
NTCP 076 
NTCP 0 79 
NTCP 060 
NTCP ORl 
NTCP 082 
NTCP 083 
NTCP o 84 
NTCP 085 ^ 

NTCP 086 
NTCP 087 

NTCP 030 
NTCP 069 
NTCP OOO 
NTCP o91 
M CP 092 
NTCP 093 
NTCP 094 
NTCP 095 
NTCP 094 
NTCP 097 
NTCP n?6 
NTCP 099 
NTCP ICO 
NTCP 101 
NTCP 10? 
NTCP 103 
NTCP 104 
NTCP 105 
NTCP 106 
NTCP 107 
NTCP 103 
NTCP 109 
NTCP no 
NTCP )11 
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Listing of Code (continued) 


21 IF 1 1 SOUS- 1 ) 2 »2 , * 

22 IF ( ISOMW-1 ) 0.B.4 

40 WRITF(6.1C6) , „ 

24 IF (EN0J0rt-l •> 1 *23*23 

20 ” BEEN «OE F«0« «.I» W06..M. 

CALL EXIT 


NTCP 112 
NTCP 113 
NTCP \14 
NTCP 115 
NTCP 116 

**«*€«** 
* C- <M> * P * » 


C *^ L .T^ivtrHYMF PRFYI0US CAS F HAS BEEN TERMINATED DUE TO ERRORS NTCP 1 1 S 
106 FORMAT <//3K65MT"t ''"t^iuus l«5- mh-j <- NTCP IIS 


1- CHECK DiJHP. ) 
STOP 
END 


CINIT 
C 


SUBROUTINE tut 

SUBROUTINE FOR INITIALIZATION OF INPUT DATA 


NTCP 11* 
NTCP 120 
NTCP 1 21 

1 N I T nCl 
INIT 002 
INTT 003 
INIT OOA 
I N I T ft G 5 

INIT 007 


REAL MFSTOP 

logical preven.srflag 

COMMON /SNTCP/G, A JtPRFC* ICASE bPRFVER tMFSTOPi JUMPtLOPIU 1SCASE* 

JKN.G AMF « IP.SCR 1 1 jPTRN « I SECT ’^STG.UOL. »PmOTOL *PRTOL»TUOO^»LS j J n09 

2LBRC * IBHC » If HOKE » ISORR * CHOKE «PT0PSl (6*B i tP i RS2 (6 » .i) » T'Dl AG 1 50 » ^ 

3DELPHtPA55 f 1PC t L0 PC# 1^0 1 N t T oil 

COMMON /S|NJT/Hl (6.B) » HE { fc , H > * ^ ' E tuT ^fl^*HET2^ " » P ADSO*( ^ • IN j T M3 

I.DP2A(6,B,.CSALFH6.0UALf.l(6.e .CSutT2lUB>,»ETU. .) J • 

2RA0«0(6.bMANNl(6.8).ANN2(6,a).ANN2A(6.8).ANNlA(6,8uU^6^) j nIT A 15 

3U2 ( 6 * 8 ) • ANNO < 6 t B) .PT0t6.fl) »TT0T6 *H) ,AlPhA 0(6«B) T . * j N jt 0 I 6 

«eco&»«« 

COMMON /SINRUT/ RSL.T5L.PSL, GAMS)., „ fTn - x *‘ , "ECT . EKP n , InIT nlB 

IPTPS,PTIN.TlIN,-Alft.FAIR,DELC,DELl.DELA,AAC5,VCTD ST. ; ECT,. N.^l^ 606 ^ 

InIT 

HlA(6i8)fH0(6tr»l»H2AI6se) 


7 6 »tt) tUMtoAH (6 t H J tujiA t rr t n # in a - * ' ' I ' ^ nriJTwT ifU 

e,B 3(6»R) fH4(6t«) »B5(6 i 8) »66 ( 6 ♦ 8 > # Sf -*TH I CB) t RC^TH I (0) 
DIMENSION 


c 

c 

c 

10000 

3 


READ INPUT DATA. CHECK FOR ERRORS. Ft'ROR 

SKIP CHANGE CASES IF BASIC CASE HAS AN ERROR 

IF(SRFLAU) *Rll£ (6, 1 COOO) 1f ., T , 

FORMAT (AAH AN ENTRY HAS BEEN MADE IN SUrf.-OUTlNE INIT I 

CALL INPUT 
ICASEUCASE* l 

lE(STGCH)S.5,'t > . ; : 

I K r - 1 

call check il) 
go T0(6«B) »L 
wRITEtft.ioo) IC aSE 

IE(STGCH)3.3.7 
IK=2 
GO TO 3 
IF (IK«?)9t^i3 

INITIALIZE INDEX REGISTERS ANn EoRkS 
isect=sf:ct*.ooci 


o?? 
ft? 3 

ft?4 

n?5 

ft?* 

ft?7 

ft2* 

n?9 

030 


InIT 
INIT 
1 N 1 T 
INIT 

• iiodtte o« 

INIT ft 3 1 
INIT 
InIT 
INIT 
INIT 
INIT 
InIT 
InIT 
INIT 
INIT 
INIT 
InIT 
InIT 


ft 3? 
n33 
o3* 
ft 35 
n 38 
ft 37 
n3R 

p 3Q 
ft40 
ft 4 I 
ft 4 2 
o4 3 
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Listing of Code (continued) 


K5T'-= STG* . D001 

L0PC*Q 

CHOKt»0. 

I CHOKE ■ 0 

lSO«H»l 

KN*t 

LSTG*1 

IHRC-l 

LHRC*1 

delpr*oelc 

SC* O.o 
RC=0.0 
PRPC*0 . 0 
IPC*0 
ISS*0 
PTRN*0« 0 

C TEST STAGE LOSS INDICATOR 

IFtSLIJ I J. 13,11 

u oo i 2 i*i,isect 

DO 12 J*l,KSTO 
ETARS(1 ,J)*eTArS(I.1) 

ETAS < I « J)*ETAS ( 1,1) 

CFSU » J) *CFS ( 1,1) 

ETARW ( I , J) *E T arm (1,1) 

ETAMI,J)=ET4rt(I,l) 

CER ( I « J) *CFH( I , 1 ) 

TFR(I,J)=TF«(1,1) 

12 CONTINUE 

C TEST FOR EUUAL SECTORS 

13 IF (PCNHI !)•!,) 1 6, 1 A, ] A 

14 00 IS 1*1,1 SECT 

15 PCnh ( I ) ■ 1 ./SECT 

SET UP SECTOR HEIGH, PITCH DIAMETER, ANNULUS AREA, 
PITCHLINE whEEl SPEED 

16 DO 19 K*1,KSTG 
Sho = OT ( 1 ,K)-I)R(1,k) 

SHIxDT ( 2.K ) -OR (2,K ) 

SHlA*UTO,K)-u«(3,K) 

SH2=dT ( a ,k ) -UR (4 ,K ) 

SH2a*UT (S,K)-0R(5,«) 

DO 1 h 1 * 1 , ISECT 
HO ( I ,K ) «.S*PCNH ( I )*SH0 
HI ( I ,K ) * ,S*PCNH ( 1 ) *SHl 
HI A ( I ,K)«.5*PCNH ( I ) *SC 1 A 

h2(1,K)*.5*pcNh(I)*Sh2 
H2A ( I ,K) *.5«PCnH ( I ) «$C2A 

IF(l-l) 20 , 20,17 


INIT 044 
IN I T 045 
I N I T 046 
INIT 047 
INIT 048 
INIT 049 
INIT oSO 
INIT 051 
INIT 052 
INIT 053 
INIT 054 
INIT o55 
INIT 056 
INIT 057 
INIT o58 
INIT 059 
INIT o60 
INIT 061 
INIT 062 
INIT 063 
INIT 064 
INIT 065 
INIT 066 
INIT 067 
INIT 068 
INIT 069 
INIT 0 70 
INIT 071 
INIT 072 
INIT 073 
INIT 074 
INIT o75 
INIT o76 
INIT 077 
INIT 078 
INIT 079 
INIT 080 
INIT 081 
INIT 082 
INIT 083 
INIT 084 
INIT 085 
INIT 086 
INIT 087 
INIT 088 
INIT 089 
INIT 090 
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Listing of Code (continued) 


2 o 


17 


21 


Hoti*K)*cpon-i»K> 

HlAU ,K) ♦ 0 P 1 AU -1 • *> 
H 2 1 1 tK ) 4 CP 2 < 1 - 1 * K > 

H?A(I,K) ♦0P?A<I-lfK) 


18 

<v ^ : 19 

C 


22 


23 


Q ? 


24 

25 


26 

27 


28 

31 

29 


30 


OP0 < I »K) ( 1 iK) ♦ HO < I • K ) 

DPI < I t K ) *DW < 2 *K ) ♦ H i ( 1 * K ) 

OPl A ( I *K ) =l)n < 3»K) ♦ PlA(ItK) 

DP? ( I f K ) *DP ( 4 • K ) ♦ H2 <IfK> 

D P?A { I ,K) *DW <5»K) ♦ P 2 A ( 1 « K ) 

GO TO 21 

OPO < I tK) « HO < 1-1 •*) ♦ 

OPH I *K) - Hi < 1-1 *K) ♦ 

DPI A ( I * K ) « HI A < 1-1 *K ) ♦ 

QP2 < I *K ) * H2<I-ltK»* 

QP2 A ( i * K ) a H2A<I-1*M* 

ANNO < I *K) ■•02lfll66*OPO < l f K) *HO < I *K) 

ANN 1 (ItK)3*0?lftlh6*0Pl(It^) # H) * 1 • * £ 

ANN1 A < I tK) aDPl A t I tK) #)"l A { I tK) ••0218186 

ANN?<I*K) 3 .021«166*OP« 

ANN? A ( [tM*.02lOl66*DP2A(ItK)*H2A( ItK) 

III A i I • K ) * 3.14l59*0PlMItK)*«PH/720. 

U?< I *K ) * 3.)4lS^ # DP2<ltK) # flPM/72o. 

CONTINUE 
CONT INUE 

OEFlNt PITCHLINE IKOt.X 
I T= I SE C T -?* ( 1SECT/2) 
lF<lT)2?t?2t23 
lPsISECT/2 
GO TO ?.*> 

IP* < 15ECT*n/2 0 

T “‘ CALCULATE INLET ANC LXlT ANOLFS IN PaDIANS 
IF (ALPHAl (ill) )25*25t27 
SOE AF* 0 • 

00 26 KsltKSTO 

S^naU}SSw«i.K»W(i.K,/»sesTHi.K l oa«st.DPifi.K,. 

1 4 LF 1 (l!lUsATAN?(SQRT<l,-CSAl.Fl (I,K>«CSAlF 1 II.K> > .CSAI.F 1 <I* K > 1 

C,0 TO 31 
00 28 K=1,KSTG 

DO 28 1 ■ 1 » I SECT ,, 

ALF1(I»K)= ALPHAltl, 8)* .017*5328 

CSALfl (I.K)«C0SIALF1 (l.K) ) 

J F (8ETA2(1. 1)129. 29.32 
ROEAF*0. 

00 30 K=1.KSTG 

CSBET2(llK)-AND0«(I.K)»CFRU.<O/fREHTHl(K)*3.1Al59*DP2U.K)* 

1 flET2Cll*)'»ATAN2 , ( SO«T < 1 .-CSRET2 (T .*> *CS8ET2 ( I .*> ) .CSBET2 ( I .K) ) 
GO TO 34 


INIT 0<»1 
INIT 092 
I N I T 093 
IN I T 094 
INIT 095 
INIT 096 
INIT 097 
INIT o9R 
I N I T 099 
INIT TOO 
iNtT 101 


INIT 107 
INIT 108 
INIT 109 
INIT 1 l 0 
INIT 111 
INIT 112 
I N I T 113 
INIT 114 
INIT 115 
INIT 118 
INIT 117 
INIT 118 
INIT 119 
INIT 120 
INIT 121 
I N I T 122 
INIT i 23 
I N I T 124 
INIT 128 
INIT 128 
INIT 127 

INIT 129 
I N I T 130 
INIT 1 31 
INIT i 32 
INIT 133 
INIT 134 
I N I T 135 
I N I T 138 
INIT 137 
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Listing of Code (continued) 


32 

00 33 K.UKStG 

INIT 

I 38 


00 33 I*ltISECT 

INIT 

119 


BE T2 ( I *K ) - BET42(l,K)*.0l7*S32B 

»«••< 

**41# 

33 

CSBET2(I,K)«C0S(BET2(1,K) ) 

INI T 

141 

34 

DO 35 K* 1 * KSTG 

INIT 

142 


00 35 I * i ? I SECT 

INIT 

1 *3 


PTP(I,K)*PTIN 

INIT 

1 44 


PTO < I *K) «PT IN 

INIT 

145 


TT0 ( I *K> -TTIN 

INIT 

1 46 


ALPha0(I*K)«0*0 

INIT 

147 


PT0PS1 (I,K)-PIPS 

INIT 

1 4« 


RADSO ( I , Is ) -ALPHAS ( I . K > *. 0 17*5328 


Uti 

35 

RAOHD(I.K)»HETAl ( I *K)A.oi 7*5328 


»••• 


IF<HV(1*1) >36*36,37 


»••• 

36 

CALL R(PtIN.TTIN.FAIR*«AlR*RV(l.l>) 

##••4 

*••• 


GAMF-0.0 

INIT 

153 


GO TO 38 

INIT 

154 

37 

GAMF-1.0 

INIT 

155 

38 

CALL CHECK (J) 

INIT 

156 


GO TO (39,40) « J 

INIT 

157 

39 

GO TO 3 

INIT 

1 58 

40 

IF(SRFLAG) WRITE (6*20000) 

*#*•4 

i#*# 

20000 

FORMAT (*5H AN EXIT HAS BEEN MAOE FROM SUBROUTINE INU ) 

• •#•4 

►#*# 


RETURN 

• •#•4 


100 

F0«MAT(ZBX,6HCASE 15 * I3H HAS AN ERROR) 

INIT 

160 


END 

INIT 

161 
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non 


SUBROUTINE INPUT 


INPT 001 

CInPUT INPT 002 

C INPT 00* 

REAL MFSTOP INPT 005 

LOGICAL PHEVEW.SHFLAG ******** 

COMPON SMFlAG ******** 

COMPON /SnTCP/G.AJ.PRPC.ICASE. PRf VtR ,MF STOP .JUMP .lOPIN. I SCASE » INPT 007 

1 KN» G APF « IP. SCR I T ,PThn. I5ECT,K5TG.pI0L,Sh0T0l.P«T0L.TRL00P.LSTG, INPT non 

2L8PC . IHWC.ICROkE.ISORH.ChOKE.PTOPSI (6.8) »PTRS2(6.8> ,TROI AG. SC .RC • INPT OOR 

30ELPR.PASS.TPC.L0PC.lSS INPT olO 

c INPT oil 

COUPON /SINPUT/ W5L » TSl .PSL « GAMS| , ******** 

IPTPS.PTIN.TTIN.haIR.FAIR.OElC.DEi L.OtLA.AACS.VCTD.STG.SECT.EXPN, INPT 013 


?F*PP .ExPRE. rPm.Paf.SLI .STGCH.fnU JOB .NAME (10) .TITLE (10) .PCNHu) ,******** 
3RV(6,8) .GAM (8.8) .SR (6*0) .ST (8.8) , S«G ( 6 » 8 ) . ALPHAS (6 .8) . ALPHA 1 < 6, 8 ) . ******** 
*E TArS ( 6 « b ) «ETA$(6,8).CFS(6.8> , ANnO (6*8) .BETA1 ( 6. 8) .BET A 2 ( 6 . 8 ) .ET AR I NPT o16 
ER(8.8) ,ETaR(8.H) »CFR ( 6 » 8 ) .TFH(b.P) • ANDOR (6*8) .OmEGAS (6.8) ,AS0<6.8) INPT ol7 
6.ASPP0 (8.H) .ACMNO (6«8» *A 1 (6.8) .A? (6.8) .A3 (6.8) .A* (6,8) .AS (6*8) ,A6< INPT olR 
1 *r. . 7 ft, 8) , OmF.GAR (6 * 8 ) »BS I A (ft, 8 ) .BSmPIa (ft.H) .dCMNIA (6.8) .Bl(ft.B) .82(6.8) INPT ol9 
P,H 3 ( 6 . 8 ) ,R*(6»8) .85(6.8) ,86(6.8) .StSTHl (8) .RERTMl (8) INPT o20 

f INPT o21 


DIMENSION X (6*8.38) ,Y (ft.38) 



INPT 0*1 


READ The HEADING CARDS EVERY Tl“F tNTRY IS MADE 
IF(SMFLAG) wR I TE ( 6, 1 0000 ) 


INPT 0*2 
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Listing of Code (continued) 


10000 

FORMAT (44H AN ENTRY NAS BEEN MAOF 

IN SUBROUTINE INPUT ) 

*#*#< 

*#** 

10 

RE A0 <5. 6669) (NAME(I) .1*1,10) 


INPT 

o43 

i o 

READ (5,6669) (TITLE(l) .1*1.10) 


INPT 

044 


J=0 


inpt 

045 

30 

OO 25 L* 1 « 38 


***•< 

*#** 


00 25 1*1.6 


inpt 

047 

25 

Y ( I • U sHLANKS 


INPT 

04ft 


SESTHxRLANKS 


INPT 

049 


rERTH*BLANKS 


INPT 

050 


READ ( 5 « DAT A IN ) 


INPT 

051 

40 

K«STAGE*.0001 


INPT 

052 

50 

ISECT*SECT*.0001 


INPT 

oS3 

60 

00 80 L= 1 . 38 


• «*•< 

*#*# 

70 

oo eo i ■ l « 6 


INPT 

055 


IF <Y(I.U ,NE. BLANKS) GO TO 71 


INPT 

056 


Y (I tL> *0*0 


INPT 

057 


GO TO 80 


INPT 

05ft 

71 

X ( I • K « L ) *Y ( I * L ) 


INPT 

059 

60 

CONTINUE 


INPT 

060 


IFISE5TH.EQ. BLANKS) GC TO 95 


INPT 

061 

90 

SESTHI (K) *SESTh 


INPT 

062 


GO TO 96 


INPT 

063 

95 

SESTh*0 , 


INPT 

n64 

96 

IFCRERTh.EQ. BLANKS) GC TO 105 


INPT 

065 

100 

RERTHI (K)*REHTh 


INPT 

066 


GO TO no 


INPT 

067 

105 

RERTH* 0 • 


INPT 

06ft 

110 

IF (K-l) 120.120.130 


INPT 

069 

120 

WRITE (6. 6670) NftM£. TITLE. STGCH.TTTN.PT IN. WAIR.FA1R.PTPS.0ELC.0ELL. 



10ELA.STG.SECT.EKPN.EXRP, PAF.Si I 

.AACS.RPm.vCTD.RSl.TSL.PSL.GamSL******** 


?,ENOSTG»ENOJOH,PCNM 





J*JH 


INPT 

073 

130 

WRITE ( 6 1 6671 ) K * RG • GA*G * OR ♦ U T • R*G * 

SOIa.SOEA.SHEC.SETA.SCF.SPA. 



1SESTH, 


INPT 

075 


1RDIA,H0F_A,RHEC,HETA,RCF,RPA,RTF,R£HTH 

»»«»« 


140 

IF (OMEGASU.K) H60.160.150 


INPT 

077 

150 

WRITE (6.667?) STPLC.SINR.SINmP,SInmN,ScPS.SCPC*SCPQ.SCNS.SCNC.SCNO 

• INPT 

07H 


IRTPLC.RINR.HINmP.HInmN.RCPS.RCPC.RCPQ.RCNS.RCNC.RCNQ 

INPT 

079 

160 

J=J*1 


INPT 

OftO 

180 

AMS J-?* ( J/2 ) 


INPT 

nftl 

190 

IF (AM) ?OGf210t200 


INPT 

0ft2 

200 

WRITE (6t6673) 


INPT 

oft3 

210 

IF (ENOSTG-1.130.170.170 


INPT 

0fl4 

170 

IF(SHFLAG) WRITE (6.20000) 


• *••4 

► *** 

20000 

FORMAT ( 1 M l ,45H AN E X I 1 HAS BEEN maDE FROM SUBROUTINE INPUT ) 

*««««««« 


RETURN 




6669 

FORMAT ( 10A6) 


INPT 

0ft6 
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Listing of Code (continued) 


6670 FORMAT ( lHl ,24x»24HTuP0lNE COMPUTE* PRCGRAM/6X, 1 0A6/6X , 1 0A6/2X , INPT ofl7 

17HSCATA1N/2X, 7h $TGCH*F10.3/2x7h TT1n*F10.3»IX,7h PTIN*F10.3,2X»*»****** 

16* »AIR»F10.3*2X* ******** 

2SMFAIH«Fl0.3/2Xt 7H P 1 PS«F 1 n . 3 , 1 x , 7H CEl_C«F 1 0. 3 ,2X,6H DELL*F10. 3********* 
32Xt5MDEl A«F10.3/2**7H STG*F1 0.3. 1X.7* SECT»F 1 0 . 3.2X.6H EXPN.F 1 0******** 
4.3,2X,5HEXPP»F10.3/2X, 7H PAF»F10.3,2X,6H SU I «••****** 

5F10.3«3X.5HAACS*F 10. 3» 2X.5H HPmsF 10.3/2X.7H VCTD«F10.3.4X.4HRSL«*****»» 

A*F10.3,*X,AhTS>L»f10.3*3x,4HPSL*Fio.3/2X,7H GAMSL*F10,3.1X.7HENDSTG******»« 
7«no.3.) A,7HENDJOa«FlO,3//2<jX.2lHlNLET RADIAL PPOFILES ******** 

6 /*x» 5 HPCNH»fc (F8.3.2X) /ini ) ******** 

6671 FORMAT ( 2BX , 1 5H5T ANDARC OPT ION/ 3X .fthST AGE* 13 « 16X , 1 AHAX I AL STATIONS/******** 

1 1 IX , 6 HST A, OAX.bHSU. 14X.6HSTA., A4X.6I-STA. 23X.7H ST A , 2 A/ ******** 

23X,6m HG»6(F8.3»2X)/ ******** 

33 X.FH 6 AMG«A (Fa. 3.2*1 /3X,6H DRs6(FB.3,2X)/3X,6H 0T«6(F8.3»2X)/INPT 097 

33 X,tH R»G*6(FB.3»2*|//22X»27 hSTatOR RACIAL DISTRIBUTIONS/ INPT o9B 

41 3X, 4HR00T « 15*»S*P ITC^,J6*,3HTIP/ ******** 

53X.4H SOlA»b<FB.3,2*>/3*.6M SDEA«A <FB. 3 ,2X) /3X.6H SREC* 6 (FB.3.2X) /INPT l 00 
MX.fcM SFTA=A<FH.3,2X)/3X,6H SCF« 6 (FB.3»2XI/3X,6H SPA*6(Ffl.3,?X ) / INPT 101 
73 X,*hSESTh*FB. 3//22X,26HROTOR RAn I AL DISTRIBUTIONS/ ******** 

P 3 X,ftH R0 Ia«0<Fb.3,2x)/3X,6H HOEA*6<FH.3,2X)/3X,bh RREC* 6 <F 8 . 3.2X ) /InPT 103 
93X.EH RETAsMfB.3,2X)/3X,6H RCF.b (F b. 3 , ?A> /3X.6H RPAs 6 (FB. 3. 2X ) /******** 
1 3* * fcH HTFsA (F b. 3, 2X ) /3X ,bHRERTH,iFH. 3/) ******** 

667* FORMAT (/25*,23HLOSS COEFFICIENT OPT IOn/22X,27HSTATOR RAOUL DISTRI INPT 1 06 
1RUTIONS/ INPT (07 

23X*FHSTPLC*'i<FB.3*2X)/3*,bH S INR*b ( FB. 3 .2X1 /3X,6HSINMP=6 (FB . 3 , 2 X ) / INPT lOB 
33X,bHSINMNab(F8.3,2X)/3*,6M SCPS= 6 ( F B . 3 . ?X ) /3X , bH SCPC=6(F8.3.?X)/INPT i 09 
4 3 X , b H SCPQ«f>(Ffl, 3 * 2 *>/ 3 *, 6 H SCNS.b IF B, 3 . 2X) / 3 X , BH SCNC» 6 « FB. 3 »2X ) / INPT \10 
53X.6H SCNq=(S<F8.3.2X)/023X,26HHDTOR RACIAL DISTRIBUTIONS/ InPT HI 

63 X,f MHTPLC* a (F fl. 3,2X) /3X ,bH R I NR*b (FB. 3 . 2X) /3X , 6 RRINmP* 6 (FB. 3 • ?X ) / INPT 112 
73 X,bMRINMN = i«'(Ffl.3,2*)/3X,FiH RCPS*6(FH.3,2X)/3X,6H RCPC« 6 < F 8 . 3 , 2X ) / I NPT i 1 3 
B3X,f,H RCP0 »f(Fb.3.2x)/3X.6H RCNS» 6 <FB.3 ,2X) /3X.6H RCNC= 6 (FB, 3 » 2 X ) / I NPT 114 
93X,ftH RCNQaft (Fa. 3,2X) ) INPT 115 

6673 FORMAT (lHl) INPT 116 

END INPT 117 
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Listing of Code (continued) 


CSTAOl 
C 
C 
C 
C 
C 


SUBROUTINE STAol 

L 

ESTABLISH first STATCfr EXIT FLO*, AOJuST ELOwS FOR COOLING 
AIN INJECTION BETmtEN STATION^ 0 ANC It FIND INLET 
naCh NumhEN anO INCIDENCE ANGlE LOSS AT STATION 0* 
ADJUST PI* GET NE* ElO* AT STATION 1 FOR FINAL RESULT# 


ST 0 1 001 
ST 0 1 002 
STO 1 oO 3 
ST 0 1 o04 
ST 0 1 005 
ST 0 1 oO f> 
ST 0 1 007 
ST 0 1 nOft 
*#*#***# 


REAL NFSTOP 
LOGICAL PRFVENtSRFLAG 
COMMON SRFLAG 

COMMON /SNTCP/G* A JtPRPCt I C ASE « PNF VtN • MF S TOP « JUMP , LOP I N f I SC ASE t 
IKNtGAMf * IP # SCR IT tPTHN 1 1SECT «*STG, M f OL , H hO TO l * PR TOL t TRLOOP t LS TG f 
2LBRC t iHNCt TChUKtt ISOR^tCHONF tPTopSl (6,6) tPTPS2<5tH) tTWDIAGtSCtPCt ST01 
3nELPW*PASStTPCtL0PCt ISS ST01 

COM^f)N /&INTT/Hl<6t4htH?((>«fU ,DP n <6»8) * OP 1 ( 6 t H ) , DP 1 A ( 6 1 8 ) tOP2(6 t fl) ST 01 
1 tOP2A (6,6) tCSALt 1 (6t8> t ALt 1 (6t8) #CSbtT2 (6 •#) *HET2 (6 t 8) tPAOSO (6tfl) * STO l 
2RA0N0 (6tO) t ANN1 (otB) t ANN? (6*H) • Anjn2a ( 6td ) • ANN 1 A (6*R) 9 UlA(6t8)« 5T01 

3U? (F « HI • ANNO ( b, H ) tPTo < 6 • H ) ♦ TTO <f>, 0 ) fALPHAO(<S*H) tPTP (6t 8) STO\ 

C ST 0 1 

COMMON / S I NPU T / WSL *TSl«PSL«GAMS| « 

lPTPS.^T 1 Im,TT lN,«a Ih,F«IM,[)Euc.UEu,*DEla * AACS f VCTD,ST6 *SECT*EXPn, ST 01 nPl 
2 EXPP,ExPkF , rPm « PaF «SLl .ST(jCH,FN’DjOp»NAME( 10) .TITLE U0> ,PCNH(6) ,****•*•* 
3RV(6 ,8) ,GAM (6 , A) .DM (6*0) .UT (6,») ,R*G (6*8 ) .ALPHAS (6. ft) . ALPHA J (6,8) * ******** 
*ETAPS(6.H) .ETAS (0*8) ,CFS(6 ,R) ,AnD 0(6»B) »«ETA1 (6.8) *BETA2 (6.8) .ETAHST01 n?4 
5RI6.M) ,FTAR(«»H) ,CFR(t,8) ,TFR(6.8 ) .ANOCh ( 6,8) .OMEGAS (6. 6) « ASO (6*8) ST01 
6, AS*P0 (t,8) . aCmlo (6*0) * A1 (6.8) . A? ( 6*6) < A3 (6,8) , A4 ( 6 .0) . A5 ( 6. 8) , A6 ( STO 1 
76.8) .OMfcGAR (6 . 8) .HSI A (6.8) .8 SmP) A ( 6.8) .bCMNI A (6.0) .HI <6. 8). 82 (6. 8) ST 01 
0.03I6.H) .84(6.8) .85(6*8) .86(6.8) » SEST H I (8 ). RERThI ( 0) ST01 

real mo Ito 1 

Common /SSTaol/CPO (8) . PS0(6.8> .V0(6.8) .TS 0 I 6 .ST 0 ) 

18) .VUO (6.8) . V Z 0 < 6 * 8 ) » 8 HO SO (6.8) .PS) (6«8) ,*GT1 (8) «TA) (8) * WG 1 (6.8) . ST 01 
? CPOHl (6.0) .SI (6,8) . CPl («) .PHIl (6,8) ,TS1 ( 6 . 8 ) ,V1 (6,8) ST01 

3.RH0S1 (6.8) .ALF1E (6.0) * V L) 1 (6.8) , v? 1 (6,8) ,M0(6.8) » wGTO 18) » wUO ( 6, 8) ***<***** 

C ST01 035 

DIMENSION T AO ( 8 ) , TTOTSO (6,0) ,PTOPSO(6,8) .FFA0(6,8**«***** 

1 > , A ASO ( 6 . 8 ) STOl n37 

£ STO 1 n38 

c STO 1 n39 

IF(SWFlaG) w H I T t ( 6 1 1 0 0 0 0 ) 

10000 FORMAT (44H AN ENTRY hAS BEEN maDf In SUBROUTINE STA01 ) «««»«««» 

»«»«««»« 


STO I olO 
««««««•• 
012 

013 

014 

015 
o] 6 

ol:7 
n ) R 
n\9 


o?5 

027 
0?« 
o?9 
n 30 
o 3 1 
n32 
033 


K = KN 


SCRITsO.O 
I = IP 
ID*- X 


ST 0 1 040 
ST 0 1 041 
S T 0 1 042 
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Listing of Code (continued) 


WGTl ( k ) ■ o • o 

jw»l 

IF ( G AMF > 2 * 2*3 

2 T A 1 (K) «, 95 *TT 0 ( IP*K) 

CALL GAMMA (PTlN, TA 1 («) »FaIR, WA lR.GAM < 2 «*> ) 

3 CALL FLOW 1 (I> 

IF (PHEVtP) GO TO 26 
WGTI (K)»WGT 1 (K)^Gl(ItK) 

C TEST FOR TIP SECTOR 

IFUSECT-I) 5 tS,* 

4 I«I*I 0 

IF ( I > 6 , 6*22 
22 L*I-ID 

psi ( I ,K) *P$ 1 ( L**> ♦ELOaT (IO> # DPO« l < LfK ) #1 

LtK))/2« 

PT 0 PS 1 (I*K)«Pl 0 UtK)/PSl (I#K) 

IF (PT 0 PS 1 U,K)- 1 *> 27 » 3,3 
27 PTRN — 1. 

pTOPSlUtK)* 1.0 
GO TO 3 
6 10*1 
I*IP*IO 
GO TO 22 

C" r ' CALCULATE STA 0 FOR INCIDENCE CORRECTION 

5 IP < J*-l ) 16 * 16,10 

16 I F ( GAMF ) 7 « 7 * 1 ? 

7 GAMUtK)*GAM( 2 t K) 

17 E* = (GAM ( 1 ,K ) *1 * ) /GAM ( 1 , 5 ) 
frxi«l */EX 

WGTO t K ) *WGT 1 <K)/HwG( 2 *K) 

I* IP 

WG 0 <I*K)*WG 1 (I#K)/RwG 12 *K> 

" FFAO < 1 ,K) «WG0 < 1 tK) *SQRT ( TTn ( I ,K)> / ( l44.*PT0 ( I *K) * 
l ANNO ( I ,K ) > 

l 0 CALL PRATIO(FFAO(ItK) •GAMdtK) ♦ P TOPSO (I * K ) *PRTOL ) 

PSO ( 1 *K) *PTP ( I »M /PTOPSO ( I *K> 

TTOTSOU*K)«P TOPSO U*H)**EX 

TSO< I ,K)»TTOI I*K)/TTOlSO( I «K) 

9 IF(GAMF) 10 , 10,12 

10 TA 0 <K)*.S*<TT 0 ( 1 ,K)*T!> 0 <I*K)) 

CALL GAMMA (PT IN, T AO (K) ,t AlR,WAlR.GAM < 1 ,*> ) 

EX* ( GAM ( 1 ,K ) - 1 • > /gam ( 1 ,K ) 

EX I * 1 ./EX 
iF(j-l) 11 , 11,12 

11 J»J*1 
GO TO H 


STO 1 
STO 1 
STO 1 
STOl 
STO 1 
STOl 
STOl 
STOl 
STOl 
STOl 
STOl 
STOl 
STOl 
STOl 
STOl 
STOl 
STOl 
STOl 
STOl 
STOl 
STOl 
STOl 
STOl 
STOl 
STOl 
STOl 
STOl 
STOl 
STOl 
STOl 
STOl 
STOl 
STOl 
STOl 
STOl 
##**« 

STOl 

STOl 

STOl 

STOl 

STOl 

STOl 

STOl 

STOl 

STOl 

STOl 

STOl 


043 

044 

045 

046 

047 

048 

049 

050 

051 

052 

053 

054 

055 

056 

057 

058 

059 

060 
061 
062 

063 

064 

065 

066 

067 

068 

069 

070 

071 

072 

073 

074 

075 

076 

077 


n 79 
080 
n 8 1 
082 
n 8 3 

004 

005 

006 
087 
008 
089 
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Listing of Code (continued) 


12 CPO(K)*WV(l*K)*Exl/Aj 
00 u 1*1*1 SECT 

WGO ( I f K ) *WG 1 < I *K) /R#G <2*K) 

PTO^O* PTO(I*K) 

FFAO ( I,K)*WGO (lfK)*SQPT < TT0UtK))/<l44.*PT0(ItK)* 

1 ANNO < I • K ) ) 

IF ( 1 #EQ* IP) GO TO 28 
PSO(I«K) * P So ( I P • K ) 

P TOPSO(ItK) * PTP(ItK)/ PSO ( I *K) 

28 TTOTSOUtK)=PToPSOUtK)**EX 
TSO(l»K)*TTn(I f K)/TTOlSO(IfK) 

13 VO(If«)=SORT(2.*G*AJ«CPO(K)*(TTo<I*K)-TSOU*K) ) ) 

AASO ( 1 *K)*SOBT (GAM ( 1 *N ) *G*WV < 1 *K) *TSQ < l *K> ) 

MO (I *K)*VO ( T • K ) /AASO ( l*K) 

SIU*K)«ALPHA0(1*K)- HAOSU(I*K> 

IF (SI ( 1 • K ) )?4*?4*20 
24 F XPS=E XPN 
GO TO 21 

20 FXPS=EXPP 

21 PTOPSO(I*K)=( 1 .♦EX*MO « 1 tK) *ETARS(I fK) *GAM(1 *K)^MO ( I *K) /2. 
1# (CCS (SI (I*K) )**EXPS) ) **E X 1 

PTO (I *K ) =PSO ( I • K ) *PT qFSO ( I * K ) 

WGO ( I*K)*WGO(I *K)*PTO (1*K)/PTOMO 
WGI (l*K)=wGl (I*K)*PTOd*K)/PTOMO 
RHOSO ( 1 *K)*144.*PS0(I tK)/(RV(l*K>*TSO(ItK)> 

VUO ( I * K)«V(M I *K> *SlN ( A lPhAO ( I *K) ) 

VZO ( I *K) *V0 ( I *K) *CQS (AtPnAO ( I *K) > 

14 CONTINUE 

C END OF INCIDENCE iCSS CORRECTION LOOP 

WGT 1 (K)«0. ' • 

I*IP 
I0a-1 
jv» = 2 

15 GO TO 3 
18 CONTINUE 

WGTO (K)*WGTl (K)/RwG(2fM 
I F ( TRLOQP «EQ • 0 • ) GO TC 23 

WRITE (6* 1000) WGTO (K) **GU (K) , ( WRO <L f K > t L*1 * I SECT ) 

WRITE (6*1001) (PTOPSO <LfK) *t«l* I SECT) 

WRITE (6*1002) (WG1 (L.K) *L=1*ISECT) 

WRITE (6* 1003) (PTQPsi (L tK ) *L«1*ISECT) 

1000 FORMAT ( 2 A * 6H «GT0*F8 # 3 *2X »6H wGTi *F8. 3/2X*6H WG0*6F8*3> 

1001 FORMAT { 1 A * 7HPT 0PS0*6Ffi #5 ) 

1002 FORM AT ( 2X %6H wGl«6F8*3) 

1003 FORMAT ( lX*7HPT0PSl*6Fe # 5) 

23 CALI CHECK <g> 

GO TO ( 2b • 26 ) t J 


ST01 091 
ST01 092 
ST01 093 
ST 0 1 094 
ST 0 1 095 
ST 0 1 096 
ST01 097 
ST01 098 
ST 0 1 099 
STO 1 100 
ST01 \0l 
«*•*«•«• 
ST 0 1 103 
STO 1 104 
ST01 105 
STO 1 106 
STO 1 107 
STO 1 10B 
ST 0 1 109 
ST 0 1 110 
ST 0 1 HI 
ST 0 1 112 
STO 1 113 
•*«*•*** 
STO 1 115 
ST 0 1 116 
ST 0 1 117 
ST 0 1 lift 
ST 0 1 119 
ST 0 1 120 
STO 1 121 
ST 0 1 122 
ST 0 1 123 
ST 0 1 124 
ST 0 1 125 
ST 0 1 126 
ST01 127 
ST 0 1 1?0 
STO 1 129 
STO 1 130 
ST 0 1 1 31 
STO 1 132 
ST 0 1 133 
ST 0 1 134 
ST 0 1 135 
ST 0 1 136 
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Listing of Code (continued) 


ST01 137 


STO 1 139 


S5- i. 


25 CALL OIAttT(l) „ 

assw k «« *». >.»«»«« si.,. . 

RETURN 

END 
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Listing of Code (continued) 


SUBROUTINE FLO" id) 

CFL0W1 

ESTABLISH VALUES FOB STATOR EXIT FLO" 


FL"1 001 
FLWl n 02 
Fl« 1 003 
FL"1 no* 


REAL "FSTOP FL"1 005 

LOGICAL PREVER.SHFLAG *••*•*•• 

COMMON SRFLAG **•«•••* 

COMMON /SNTCP/G*AJ,PRFC*ICAS£.PRfvER.mFSTOP,JUMP,lOPIN,ISCASE» Fl*1 007 

lKN.GAPFt IP.SCRIT.PTHM I SECT . KSTg. "TOL ,RhOTOc.PRTOL,TRLOOP,LSTG, •*•••*•• 

2LBRC.IRRC,IChOKEt ISORH.CMOKE.PTOPSl (6,8) ,PTRSZ (6*8) .TROUG.SC, RC, FL"1 009 
30ELPR,PAbS,IPC,L0PC,ISS Fl« 1 nlO 

Fl" 1 nil 

COMMON /SINIT/Hl (6,6) ,H2(6,8) ,OPn (6,8) ,0PK6,B) , DPI A (6,8) *DP2 (6,8) Fl" 1 nl2 
1 ,0P2A (6,8 ) ,CSAlF1 (6,8) . AlF 1 (6,8) ,cShET2 (6,8) ,BET2(6«6> ,PA0SD(6,8) ,Fl" 1 nI3 
2RADRO (6,8) , ANN 1 (6,8) , ANN? (6,8) «Ann 2A!6*8) ,ANNl A (6,8) ,U1A(6,8) , FL"I nl* 

3U2 (6,8) , ANNO (6,8) «PT0(6*B),TTO(6,R) ,AlPMA0 (6,8) ,PTP(6,8) Fl" 1 OlS 


FL"1 016 

COMMON /SINPUT/ MSL,TSL»PSL,GAMSl, •«**•••* 

1PTPS,PTIN,TTIN,«aIR,FAIR,DELC.OElL»D£LA.AACS,VCTO.STG»SECT.EXPn« Fl«1 018 
2EXPP ,EXPHE , RPM,PAF,SLI,STGCH,fnDJ 08,NAME(IO) .TITLE (10) ,PCNH(6) ,**•*•*•* 
3RVI6.8) , GAM (6, 8) .OR (6 ,8) ,DT (6,8) ,RWG(6*8) .ALPHAS (6,8) .ALPHAl (6,8) ,•*****•* 
4ETARS (6,8) , ETAS (6,8) ,CFS(6,8) ,ANnO(6,8) ,HETA1 (6,8) ,RETA2(6»8 ) ,ETAHFl"1 021 
5R(6,8),ETAR(6,8) , CFR (6,8) ,TFR(6,8) ,AND0R(6.8) .OMEGAS (6,8) , ASO <6,8) FL"1 0?2 
6.ASPP0 (6,8) , ACMNO (6, 8), AK6, 8), A? (6, 8), A3 (6, 8), A* (6, 8) , A5 (6,8) , A6 < Fl*1 o23 

76.8) tOMEGAR (6,8) ,8SIA (6,8) ,8 SmPIa ( 6,8) ,ttCMNI A (6,8) ,B I ( 6, 8) ,82 (6, 8 ) FlW 1 0?4 

8.H3(6,6),H4(6.H),B5(6,8),B6(6,8).SESThI(8),RERThI(8) Fl«1 025 

FL"l 026 

REAL MO Fl*1 027 

COMPON /SST AO 1/CPO ( 8 ) . PS0(6,8) ,V0(6.8) ,TS0(6,Fl«1 0?8 

18) »VUO (6,8) ,VZo (6,8 ) , RhOSO (6, 8). PS 1(6, 8) ,"GT1 (8) , T A 1 (8) ,WG1 (6,8) , Fl" 1 029 
2 0PDH1 (6,8> ,51 (6.8) , CPl <8) ,PHI1 (6.81 ,TS1 (6,8) ,V1 (6.B1FLM1 030 

3 .HH 0 S 1 (6,8) .ALF IE (6.8) ,VUl (6.8) ,v2l (6.8) , MO (6.8) ,"GT 0 ( 8 ) , "GO (6,8) ••*♦•••• 

Fl"1 032 

DIMENSION PHI1C(8) ,PTPS1C(8) ,V1C(6,8) ,TS1C(6.8) ,RhOS1C<6»8) ,"G1C(6Fi> 1 o33 

1 .8) .CSALlE (6,8) ,SFF (6*8) Fl"1 03* 

Fl"1 035 
Fl"1 036 

IF(SRFLAG) "RiTt (6,10000) ***••*«• 

10000 FORP AT ( **H AN Ei'fTMY MS BEEN MADF IN SUBROUTINE FlOWI ) •#•*«**• 



K«KN 



>«•• 


EX* (GAM (?,K) -1 s ) /GAP ( Z , N ) 


FLWl 

037 

c 

COMPUTE ISElnTWOPIC STATOR 

TEMPEHAIURE hatio 

FL"1 

03H 


7 PHI 1 (I,K)»PT0PS1 <ItK)«*Ex 


FL"1 

039 

c 

TEST TOR LOSS COEFT I C I ENT 

INPUT 

fl«i 

040 


IF (0H£6AS(1*1) ) 2 * 2 • 1 


flmi 

04 1 


1 CALL LOSS \ { I « K t E X ) 


fl"1 

042 
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Listing of Code (continued) 


C 

C 

C 

C 

C 

C 

c 


c 


c 


c 


2 TS1 < I *K)»TTO C I ♦ *) * Cl ••ETASU *K)*f 1 • -! ./PH II ( I tK) ) ) 

IF (I - IP) 6*3*6 

3 IF(6AHF>4*4*5 

4 TA1 (K) ».5* (TTO < t •«) ♦TSl ( I *K> ) 

CALL GAHMA (PT0(IP*K)*tAl(n)*FAl« i teAlR*GAM{2,K)) 

5 EXs(GAM(2«K)-1,0>/GA*<2*K) 

FX I ■ 1 • /E A 

CRITICAL PRESSURE PATIO 

CALL PHIM(EXI*ETAS<I *X) .PWIIC(K) t pTPSlC(K) ) 

CPI <K> »PV (2*K) •tXl/Aj 
EXIT VELOCITY 

6 VI < I *K)«SQPT (2,*G*AJ*tPJ (K)«(TT 0 II«K)*TS 1 Cl«Km 

EXIT PRESSURE 

PS1 (I*K)«PTn<l*K)/PT0FSl (I*K) 

EXIT DENSITY 

RHOS1 ( I * K ) « I 44 # *PS l (I tK)/ t«V (2*K)«TS1 U *K>) 

TEST CRITICAL PRESSURE RATIO 
IF <PT0P51 <I*K)-PTPS1C<K) ) IS* 8»B 
GREATER Than CRITICAL 
0 IF UP-I> 21**. 21 
9 IF (PRPC) 10*10*22 

PREVIOUS PITCH NONCRITICAL 
10 PRPC*1 . 

PT0PS1 < I *K)«PTPS1C (K) • < 1 * ♦PRTOL ) 

GO TO 7 

21 IF (PT0PS1 (I*K) .LE.PT0PS1 (IP*KM 60 TO 22 
GO TO 1? 

22 IF UI.EU.U.OR, (UEO.ISECTn SrRlT-1* 

GO TO U 

PITCH OR OUTHOARD SECTOR 


^ VlC ( l •*) »$ORT (2*«G*AJ«CP1 ( K ) *T TO f I • K ) *E T AS ( 1 * K ) * I PHI 1 C ( K ) 
1-1 • ) /PHI 1C tK) ) 

T51C C I *k>*TT 0 < I »K)« ( 1 ••ETAS < I ♦*)• < 1 •*! • /PHI 1C (X ) ) ) 
RHOSK<J.K)M44.*RTO<i.*>/l PTP5lC(K)MSlC(ItK)*RV(?*K)) 
WG1C U *lO «RhOS 1C (I*K)*VlC(l f K) *ANNl ( I • * > *CSALF 1 ( I *K) 

*Gl < I *K ) *WG1C < I ^ . 

13 CSAL1E { I *K)«*G1 < K *K) / i RHOSl < I *K ) *V 1 (I **>*ANN1 ( I *K) ) 
EFFECTIVE STATOR EXIT angle 

14 ALF1E (I *K)«ATAN2 (SORT 1 1 . -CSAL 1 E < ? * 6 ) *CS AL IE ( I • * ) > , 


ICSALlfc < I • K ) ) 

GO TO 16 

12 IF< PRPC*I »)lb*l5*2A 

24 wGl <I*k>-$FF (I,K)*PTOU.K>/SQHT(TTO(I*M) 

PRESSURE RATIO LESS Than CRITICAL 0* SUPERSONIC FLO* DECREASE 
15 wGl UtK) -RHOSl (I*K)*Vi C I*k)«ANN1H»k)#CSALF1 (I.k) 


flwi 

0*3 

?L*1 

044 

Fl>l 

045 

FLWl 

046 

FLWl 

047 

FLWl 

048 

flwi 

049 

FLWl 

050 

Ft_*l 

051 


FLWl 

053 

Fl>! 

054 

fl«i 

o55 

fl*\ 

056 

fl-i 

057 

FlwI 

059 

Fl*1 

060 

FlwI 

061 

FlwI 

062 

FLRl 

063 

FLWl 

064 

Fu*a 

065 

FLWl 

066 

FLWl 

067 

F|_"l 

06R 

Flw\ 

nf>9 

FL*l 

070 

FlwI 

071 

Fl-1 

072 

FlwI 

073 

FlwI 

074 

Fl*1 

075 

FlwI 

076 

FLWl 

0 78 

FLWl 

0 79 

FLWl 

080 

Fl*1 

0 8 1 

F LW I 

08? 

Fl«1 

083 

fl«i 

f) 84 

FlW \ 

o«5 

FlwI 

086 

F L* 1 

087 

Flw\ 

088 

FlwI 

0 89 
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Listing of Code (continued) 


CSaCIC ( I *K) sCSaLF 1 | I • K ) 

ALF1E ( I «K) aAl.Fl (|»K) 

SFF < I »K) ■M61 1 1 »K) *S9Rl (TT0 (I»K> >/PTo< I*K) 

16 VU1 (ItK»«VHIiK)*SlN|icFie(I,K>> 

OP0B1 <I«K>a.0l3S68B9a*HO$l <I.K»*VUl (It«>*VUl tI»KI/ 
1(0*CP1(I,K)) 

VZ1 < I *K) aVl t I »K) *CSALlC < I tK) 

IFU.IT.ISECT) GO TO 1? 

IF«PRPC.E0.1.) PRPC-2. 

17 CALL CHECK (J| 

GO TO <19 t 20)»J 

19 C*U Ot AGT <2) 

20 IF(SRFLAG) NRITE ( 6 » 20000 ) 

20000 format <ash an e*it has been made f»om subroutine flobi » 

RETURN 

END 


FlMI 090 
Fi>l 091 
FLMl 092 
F^, Ml 093 


• •••< 
Ftm 

*••• 

095 

FLBl 

096 

flwi 

097 

flmi 

09B 

FtMl 

Q99 

Fiwl 

100 

F1.B1 
• •••< 
• •••< 

101 

► •*# 


Fl*1 103 
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Listing of Code (continued) 


\ 


SUBROUTINE LOSS 1 ( I *K • t X ) 

CLOSSl 

c 

c CALCULATt EFFICIENCY 

c 

PE Al. MFSTOP 
LOGICAL HHEVEH.SRFLAG 


L0S1 001 
L0S1 002 
LOSI 003 
LOS1 00* 
LOSI 005 
LOSI 006 


COMMON SRFLAG 

COMMON /SNTCP/G.AJ.PflFC.ICASE.PRFVEH, MFSTOP, JUMP.LOPIN.ISCASE, LOSI 008 

lKN,GAMF,IP.SC«lT,PTHN.ISECT,KStG,«TOL,RMOTOL.PRTOL.TRLOOP.l.ST6, LOSI 009 

2 L 8 WC, IRBC, ITmOkE, I SOPH, CHOKE, PTOPSl (6,e» ,PTHS2(6.8) ,TRDI AG, SC ,BC * LOSI 010 

30ELPR,PASS, IPC,LOPC, I5S LOSI Oil 

LOSI r> 1 2 



LOSI o !7 

COMMON / S f NPU T / «SLtTSL*PSLtGAMS|.f #*#*•*#* 

1PTP5*PTIN*TTIN*waIR*FA IW*OElC *DElL* DEL A « A ACS* VCTD*STG*SECT tEXPN* LOSI 019 
?E*PP *ExPHE* PPM « P AF • SL I •STGCHtfNOjOBtNAME (10) • TITLE (10) *PCNH(6) •••**•••• 

3R V ( fc * 8 ) « GAM (6*8) * OR (6*8) *UT (6*B) # RWGl6*8) * ALPHAS (6 *8) tALPHAl (6*8) **##•*#•* 
4 eTAPS( 6 * 8 )tETAS(bt 8 )tCFS( 6 »fl) *ANnO( 6 *fl) *BETA1 (6*8) *BETA2 ( 6* 8 J *ETaRLOS 1 022 
cp(6 *B) *FTaR( 6*8> * CER ( 6 * 8 ) *TFR(6*ft) *ANQ0fl(6*8 ) *OmEGA$ < 6* 8 )• ASO < 6 ♦ B> LOSI 023 
i f A5MP0 (6*P) * ACmnO (6*8) *A1 (6*8) *A;>(6*B) * A3(6*8) *A4(6*B> *A5(6*8) ,A6(L0S1 024 
76*8) *0mEGAR<6*8> *BS1 A (6 . 8) jRSmPI A ( 6, 0) tBCMNj A ( 6. 8 ) j R 1 ( 6 • 8 ) *B2(6*B>LO$l 0?5 
8*83(8*8) *H4 (6 *8) *85(6*8) *86 (6*8 ) *SESTh1 (8) •R£HThI (8) LOSI 0 26 

LOSI n 27 

REAL MO LOSI 028 

COMMON /SSTA 01 /CP 0 ( 8 ) « PSO ( 6 * 8 ) *V 0 ( 6 * 8 ) *T$ 0 ( 6 *L 0 S 1 029 

18 ) * VUO ( 6 * 8 ) * Vi 0 ( 6 * 8 ) *hHOSO ( 6 * 8 ) *PSl ( 6 * 8 ) **GT 1 < 8 )*TAl( 8 )*WGl( 6 * 8 )* LOSI 0 30 

2 CPDH 1 ( 6 * 8 ) • SI ( 6 * 8 ) « C?i ( 8 ) *PHll ( 6 , 8 )*T$ 1 ( 6 * 8 )*V 1 ( 6 * 8 ) LOSI 031 

3 * HHCS 1 ( 6 * 8 ) *ALF 1 E ( 6 * 8 > tVUl ( 6 *H) *v 2 l ( 6 * 8 ) *M 0 ( 6 * 8 ) *wGT 0 < 8 > *WG 0 ( 6 * 8 ) **♦**#•* 

LOSI 033 


IF (SwFlaG) WRITE (6* lOQOO) 

10000 FORMAT (44m an ENTRY mA$ BEEN mADf 

f xpn*o • 0 

FXPP*0* 0 

ETAHS(I*K)*1.0 

51 ( I *K) -AtPHAO ( I *K) - N ADSO ( 1 * K ) 
lE(SKItK))S*l*2 

1 W01*OMEGAS(1.N) 

GO TO 9 

2 AS* a 1 ( I *K) 

AC=a2U*M 


IN SUBROUTINE LOSS1 ) *#****## 

LOSI 035 
LOSI 036 
LOSI 037 
LOSI 038 
LOSI 039 
LOSI 040 
LOSI 041 
LOSI 042 
LOSI 043 
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Listing of Code (continued) 


AQaA3d.K) 

IF(ASMPOd«K)-SI < I • K ) ) 3 « 4 • 4 

3 WHHS-S] «I,K>/ASMPOtl,K> 

«Ra*SMPO(I«K)/ASOU'K) 

00 TO 0 

4 WMWSal.O 

ARaSI < 1 • K ) /4$0 ( I *K) 

00 TO 6 

5 ASaA4 ( I *K) 

AC»A5(I.K) 

AQaAfed.K) 

IF (SI d.K)-ACMNO(I.K) >6i4.4 

6 WMWS»SI (I,K)/ACHNOdtR> 

ARaACNNO d «K) / ASO < I «K > 

0 WOla ( 1 .*AR*AR* ( AS*AR« (AC«AR«AQ> ) ) *NM*S* OMEGAS ( I .K) 

9 ETASd»K)a(l.-d./(PTOPSl ( I ,K ) • ( l .-* 01 ) **01 1 ) *•€*) aPHl 1 { I .K > / 
1 (PMll(ItK)-l,) 

CALL CHECK <J) 

IF(SRFLAO) mRItC (6*20000) 

20000 F0RHAK45H AN EXIT HAS BEEN MADE FROM SUBROUTINE L0SS1 > 
RETURN 
END 


LOSl 044 
LOSl 045 
LOSl 046 
LOSl 047 
LOSl 04R 
LOSl 049 
LOSl 050 
LOSl 051 
LOSl 052 
LOSl 053 
LOSl 054 
LOSl 055 
LOSl 056 
LOSl 057 
LOSl 05B 
LOSl 059 
LOSl 060 
LOSl 061 


LOSl 062 
LOSl 063 
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Listing of Code (continued) 


CR 

C 


SUBROUTINE R(P.T*r*W*RX) 


R 001 

R 002 

R 003 


calculate oas constant 
ioo format (//i2om subroutine r mas been called upon ••••••••••••• •••• *• 


?•*»//) 

RX«S3« 35045* ( •650*FO2«433 # l») / (l.*F*W) 

RETURN 

END 


R 004 

R 005 

R 006 
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Listing of Code (continued) 


SUBROUTINE GAMMA (P*T*F ,w,GAMX) 

C6APMA 

C 

C CALCULATt SPECIFIC HEAT RATIO FOP HI 

WRITE (6*100) 

100 FORMAT (//120H SUBROUTINE GAMmA haS 

!•••«•••••••••••••••••••••••••••••••• 

2 *»*//) 

CALL CPA <P*T*F,w,CPAX) 

IF(F)2,2*1 

1 CALL CPF (P*T*F,»,CPFX> 

2 |F(*)A,A*3 

3 CALL CPW(P*T.F,<*,CPwx) 

4 CPGX« (CPAX*F«CPFX*W«CPWX>/ ( 1 ,*F*w) 
CALL « (PtT.F.w.HX) 

GAMX«CPG*/ (CPGX-RX/778.161 ) 

RETURN 

END 
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i ' A / GA m A 00 1 

GAMA 002 
* GAMA 0 03 

RE GAMA 004 

N called upon #*****#•#*•*##***#** 


GAMA 005 
GAMA 006 
GAMA 007 
GAMA 008 
GAMA 009 
GAMA olO 

gama nil 

GAMA 012 
GAMA o 1 3 
GAMA 014 



Listing of Code (continued) 


SUBROUTINE rPA (PtTtF**tCPAX) 


CC PA 

c 


CALCULATE SPECIFIC heat PATIO FOP AIN 
DIMENSION 
1XTI7) * A ( 7 ) 

100 FORMAT (//120H SUBROUUNE CPA HAS 



2***//> 

IFIT-100.) lt?*2 

1 T X« 1 00 * 

GO TO 5 

2 IF (fc400*-T) 3f 4*4 

3 TX«6400. 

GO TO 5 

4 TX*T 

5 XT ( 1 ) ■ TA/ 1 000 • 
no ft i>?»7 

6 lllVA'l 

l-1.354B542E-02*XT(3)-«.450093lE-rt4*XT ( A ) ♦ 1 . 0303393E-03* 
JxT(5)-1.71mW-04*x 1(€.)^9. Ift279l 1 E- 06 *XT (7) 

RETURN 

END 


CPA 

001 

CPA 

o02 

CPA 

003 

CPA 

004 

CPA 

***t 

005 

• *** 


CPA nOft 
CPA 
CPA 
CPA 
CPA 
CPA 
CPA 
CPA 
CPA 
CPA 
CPA 
CPA 
CPA 
CPA 
CPA 


007 
0 OR 

009 

010 

011 

012 

013 

014 

015 
o 1 6 
o 1 7 
0l« 

019 

020 
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Listing of Code (continued) 


SUBROUTINE CPF (P* T*F f * *CPFX) 

CCPF 

C CALCULATE. SPECIFIC MEAT RATIO FOP FUEL 

DIMENSION 
1 X T 1 7 ) * A ( 7 ) 

WRITE (6*100) 

100 FORMAT (//120H SU8H0UIINE CPF HAS BEEN CALLED UPON *•••*#•« 



?**»//> 

IF ( T-400 • ) 1 *2 * 2 

1 TX*400. 

GO TO 5 

2 IFOOOO.-T) 3,4,4 

3 TX*3 00 0 • 

GO TO 5 

A T**T 

5 XT ( 1 ) *TX/1 000 • 

DO 6 I »2 • 7 

6 XT(I>«XT<I-1) # XT(1) 

CPFx=l ,062524 3E-0 1^9. 5291 284E-01*XT (1) -7. 26051 60E-01*XT( 2) 

1 ♦2.44dl406E-0l*XT (3) >5 , 3332 1 62E-02* XT { 4 } -6,469981 4E-02*XT (5 ) 
2*1 . 7495567E-0 2*XT (6) -1 ,602982nE-n3*xT ( 7 ) 

RETURN 

END 


CPF 001 
CPF 002 
CPF 003 
CPF 004 
CPF 005 


CPF 006 
CPF o07 
CPF 0 OR 
CPF 009 
CPF olO 

cpf on 

CPF 012 
CPF n 1 3 
CPF nl4 
CPF 0 1 5 
CPF 016 
CPF o 1 7 
CPF 018 
CPF 0)9 
CPF o20 
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Listing of Code (continued) 


SUBROUTINE CP* <P.T*F***CPwX> 

CCP* 

C CALCULATE SPECIFIC HE A T FOR WATER VAPO« 

DIMENSION 

l X T ( 7 ) f A 1 7 ) 

W«ITE <6 »100> 

100 FORHAT <//120H subrouUne CPW has oeen called UPON 

* 

?*••//) 

IF < T-%00 . > 1 • 2 t ? 

1 TX*4iOO. 

GO TO 5 

2 IF <3000. -T) 3*A f 4 

3 TX-3000. 

GO TO 5 

A TXaT 

5 XTU ) «TX/1000. 
no 6 1*2*7 

6 XT (I ) «xT <1-1 ) *XT 11 ) 

CPwX*A.57?Bft50E-0i*9. ?007556E-02 *xT < 1 ) ♦ 1 • 6S36A09E-0 1 
]*XT (2) -A* U 38 Q6&E-02* X T < 3 ) -2 * 697q 5 75E-02*XT (A) ^2 . 26192A3E-02 
p#XT (5) -6.270620 ?E-03«XT (6) *6 * 22A*7 1 o£-G A*XT <7) 

RETURN 

END 


cpw noi 

CP* 002 
CP* 0 03 

cp* ooa 

CP* 005 


CP* 0 06 
CP* 0 07 
CP* nOft 
CP* 009 
CP* OlO 
CPW oil 
CP* M2 
CPW o 1 3 
CP* 0 1 A 
CP* 015 
CP* 0 1 6 
CP* 0 l 7 
CP* 0 1 8 
CP* 0 1 9 
CP* 020 
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Listing of Code (continued) 



SUBROUTINE PRATlOtTFF*GAMX,BX,PTPS»PHTOL) 


PR ! 0 

oft 1 

CP«*TIO 


PR 10 

o 02 

C 

CALCULATt PRESSURE HAlJO 


PR 10 

n03 


LOGICAL PREVEH.SWFLAG 


• •••< 



common SRFLAtt 


• •••< 



IFtSRFLAU) «R I TE 1 6 * 1 OOOO ) 



»••• 

10000 

FOR*' A T ( *»H AN ENTRY HAS BEEN mAOF In SUBROUTINE 

PRATIO) 




A»GAMX/ IbAMX-l # ) 


PR 10 

n 04 


R«2./GAMX 


PRIO 

O0S 


c«(gamx*i # )/gamk 


PRIO 

006 


0"TFF«SuRT (RX/ <6a.3a81*A) ) 


PRIO 

00 7 


PCM I T* ( (GAMX*l v )/2t)«*A 


PRIO 

008 


PUP«PCR1T 


PRIO 

009 


PLO»» 1 • 0 


PRIO 

olO 


PTMmO*0.0 


PRIO 

on 

1 

PTP» ( PUP*PLO» ) / i. • 


PRIO 

ol2 


OELFH«SORT(1./(PTR**B>-J ./IPTH*«n )-l) 


PRIO 

M3 


IF ( CELF m ) ? * 3 * J 


PRIO 

014 

2 

PLO*»PTW 


PRIO 

MS 


GO TO 4 


PRIO 

016 

3 

PUP*PT« 


PRIO 

o\7 

4 

PRF- (PTM-PTMMO) /PTM 


PRIO 

o 1 8 


IF (AHS(PRE)-PRT0U6t6tb 


PRIO 

ol9 

5 

PTRM0«PTM 


PRIO 

o20 


GO TO 1 


PRIO 

021 

6 

IF (PCNIT-PTW) 7*8*8 


PRIO 

o 22 

7 

PTPS»PCMlT 


PRIO 

o23 


GO TO 9 


PRIO 

024 

ft 

PTPS-PTR 


PRIO 

025 

9 

CONT iNUt 


PRIO 

026 


IF (SWF LAG) *R I TE ( 6« 20 000 ) 



>«•» 

20000 

FORMAT (45H AN EXIT MAS HEEN maUE FROM SUBROUTINE 

PRATIO) 




RETURN 


PRIO 

o27 


END 


PRIO 

028 
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Listing of Code (continued) 


SUBROUTINE check u> 


CCHECK 

SUBROUTINE 


TO CHECK SENSE LIGHT* 


meal mestop 

LOGICAL PREVEMfSRFLAG 

COMMON /SNTCP/GfAJtPRPC* ICAsE,PMEVtfl*MFSTOP, JUMP,LOPlN,ISCASEt 
i kN t game , IP tSC«n *PTHNf ISECT*KSTG,teiuLfHHOTOLtPPTOLtTRtOOPtLSTG, 

2LHPC# IHNC. tr^OKt* ISOBN, CHOKE .PT OPS 1 tG,6) tPTRS2(6t«) f TRO I AG » SC *RC ♦ 
30ELP«tPASSt IPCtLOPCt ISS 


C 

10000 


1 


2 


30000 


IE ( SMFL AO) wRlTE(6* 10000) 

EOMm a T ( 44H AN ENTRY HAS BEEN mAOe In SUBROUTINE CHECK ) 

no i I * l * a 

CALL SL HfcT ( I * J) 

GO TO (2*1 ) • J 

CONTINUt 

J»2 

\f (SHE LAG) I TE ( 6*20000) 


RETURN 

J «1 

pMEvEH*. iRUt . 

I E ( SREl A b) wMlTE (6t20000) 
EORMAT<<*SH AN E * l T HAS HEtN 


MADE F H 0 M 


SUBROUTINE 


CHECK 


RETURN 

ENO 




CHCK 001 
CHCK 002 
CHCK o01 
CHCK 0 0 A 
CHCK 005 


CHCK 007 
CHCK 00B 
CHCK O0R 
CHCK Ol0 
CHCK Oil 


CHCK 012 
CHCK Oil 
CHCK o 1 a 
ChCK o 15 
CHCK 0 l N 

ChCK o 1 7 
CHCK 0 l H 
CHCK o 1 R 


CHCK o20 
CHCK n?l 
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Listing of Code (continued) 


SUBROUTINE STA1A ST 1 A 001 

CST A 1 A ST 1 A 002 

c ST 1 A 003 

REAL HFSTOP ST1A 00A 

logical preveh.srflag ******** 

COMMON SRFLAG !!****!? 

COMMON /SnTCP/G.AJ.PBPC.ICASE.PRfvER.mFSTOP.JUMP.lOPIN.ISCASE. ST1A f>06 
1KN,CAMF,IP,SCPIT.PTBA.ISECT.KSTG.«TOL,HHOTOL.P«TOL.TRLOOP,LSTG, ******** 

2LHRC* IHRC. ICmOkE, ISOflRfCHOKEtPTOPSi I6*e> .PTRS216.8) .TPOlAG.SC.RC. ST l A 008 
30ELPP«PASS» IPC.LOPCt ISS ST1A 009 

c ST1 A nlo 

COMMON /SINIT/Hl (6*8) »H2 (6.P) «OPfl (6.8) .DPI (6.8) »OPl A(6*8> .DP2I6.8) ST1 A oil 
1,DP2A(6 .B) *CS*lFI 16.8 > * AlF l (6,8) ,CSBET2 (6*8) »BET2 (6»n> tPAOSO (6,8)*ST1A nl2 
2RAD«0(6*8) .ANN) (6*8) *ANN2(6.8 ) . AnN?A ( 6 *8 I »ANNl A (6.8) *Ul A (6* 8) • STIA nl3 
3U2 (6*8) .ANNO (6,8) ,PT0 (6*8) . TTO (6,fl) , A lPHAO ( 6.8) ,PTP (6*8) STIA OlA 

^ ST 1 A 0 1 5 

COMMON /SINPIiT/ RSL* TSl«P5L*GAHSi « ******** 

1 PTPS#PT IN* T TIN* *A IR*FA JR* DElC *DELL *OELA * AACS* VCTD*STG*SECT *EXPn* STIA ftl 7 
2E APP *ExPRE • PPM *P AF * SL I «STGCH*enDJOR*NAME (10) *TITLE (10) *PCNH(M ********* 

3RV(fc*8) * G A M( 6 * B ) *OR(6»8) *OT (6*8) *RWG(6*8) t ALPHAS (6*6) • ALPHA 1 (6* A) ********* 
4E TARS (6*8) *ETAS(6*8)*CFS(6*A) *ANnO(6»H> fbETAl (6*8) *BETA2<6*8 ) iETARSTIA ft20 
5R(6*8) *tTAR(6»B) • CFR {£ * 0) *TFR(6*A) *ANDG 8(6*8 ) * OmEGAS ( 6*8)*A50(6*B)ST1A n21 
A * ASmPQ ( 6 * A ) * ACMNO (6*8) ♦ A1 (6.B) • A? ( 6*8) ♦ A3 (6*8) *44(6*0) » AS ( 6 * 0 ) * A6 ( ST 1 A ft22 
7**8) * OMFGAR ( A * 8 ) * BS I A ( 6 * 8 ) *BSmPIa( 6*8) *8CMN1A(6 *0) *B1 (6* 8) *B2 (6*8> ST 1 A n23 
8*83(6*8) *B4(6*8) *B5(6*8) *86(6*8) *S£5 ThI (8) *REPfHn8) STJA ft24 

- STIA n25 

REAL MO STIA 026 

COMMON /SSTA01/CP0 (8) • PSO ( 6 *8) * VO ( 6*8 ) * TSo ( 6 • ST 1 A ft27 

lA)*VUO(6*8)tVZO<6*8) **HOS0 (6*8) *PSl (6*0 ) **GT1 (8) *TM (8) «WG1 (6*8) * STIA o28 
? CROW1 (6* 8 ) *SI (6*8) * C p l (8) * PH Il <6* A) *TSl (6*8) *V1 (6*8) ST1 A ft2R 

3 * RH05 1 (6*8) * ALF IE (6*8 > • VUl (6*8) *VZ 1 ( 6*8 ) *M0 (6*8) **GT0 *8) »*G0 (6,8) ******** 
REAL MR 1 A STIA fl31 

COMMON /SSTA1 A/VUI A ( 6 *8) * wGl A (6*P) **tGTl A (8) *VZ1 A (6 *8) * CP1A(B)* STIA ft32 
1 PS1 A (6 *8) *RU1 A (6*8) * R 1 A ( 6 • 8 ) ♦ MET ) A (6*0) *RI<6*8) *TTRl A(6.8) • PTRj A ( 6ST 1 A^ ft 33 

determine Flo* conditions relative to rotor* find incidence stia 03s 
angle recovery ho i or inlet stations* obtain gas properties* st\a n36 
AdSOLUTE Tangential component velocity ADJUSTED fop diameter stia o37 
change TO CONSE R V t ANGULAR momEnTuM* AXlAL COMPONENT STIA o38 

VELOCITY AOJUSTE0 FOR WEIGHT FLO** AREA*, AND DENSITY CHANGE STIA ft 3R 

from st. i. si;::; 


IF(SRFLAG) WRITE(6.1000U) 

10000 FORMAT UAH AN ENTRY HAS BEEN “ADf In SLBROUTINE STAU > 
k=kn 
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Listing of Code (continued) 


I = IM 

I0=-1 

TS1 A C I *K » »TS1 1 1 *K > 

C RATIO OF FLO" CHANGE 

WR»R"G ( 3«K ) /R"G (2*K) 

C TOTAL STATION FLO" 

WGT1 A (K)«WH*«GT1 <K> 

C ADJUST TANGENTIAL VELOCITY 

13 VU1A(I,K)»VU1 (I.K)*OPl(I»K>/r>PiA(I»K> 

C ADJUST FLO" 

WG1A { I ,K) »WR«"Gl ( I *K) 

RHOSTR«RMOSl ( I *K ) 

C AO JUS T AXIAL VELOCITY 

1 VZ1A(I,K)»"R«V2I ( I * K )• ANN 1 < I • K > "PHOSl ( I . K ) / ( ANN! A < I ,K ) 
1*RH0STH) 

VIA "SORT < VU 1 A < I f*)«VUlA ( I *K> ♦ VZ 1 A ( I »K) *VZ1 A ( I *K| ) 

IF(I-IP)2,3.2 

2 EX»(GAM(3,K)-1.)/GAM(3,k) 

Exl*l./Ex 

GO TO A 

3 1FIGAMF) 12.12*2 

12 TA1A «.5» <TTo U »K) *1S1 A ( I ,K) ) 

CALL GAMMA(PTOU.K) ,TA1A »FAIR*wAIR*GAH(3,K) ) ; . 

EX«(GAM(3,K)-1.|/GAM(3,n) • 

EXI»1./EX * l ' ’ ' ' ’ '• 

4 CP1A(K)"HV(3»'<)*EXI/Aw 

DElTS«|V 1 (I.K)*V1 (I.Kt-VlA *v 1 A )/<2.*G*AJ#CPlA(K) I 

TS1A ( I «K)sTSl ( I * K ) ♦OELTS 

PS 1 A ( I , K ) "PS 1 ( I « K ) * ( 1 • *DELTS/TSl (1*K))**EXI 
RHOS1 A »1A4.*PS1A <I«K)/(RV(3 .K>"Ts1a(I»K) ) 

C density frhoh 

RHOE* (RHOS1 A -RHOSTR)/RHOSlA 

IF ( AdS(RHOE) -RH0T0L)6«6«5 

5 RH0STR«RH0S1A 
GO TO 1 

6 RU1A<I,K)«VU1A<I,K)-UIA<I»K) 
RlA(ItK)"SQRT(RUlA(I,K»*«UlACI*K>*VZlA(I»K)*VZlA(I*K) ) 

SBET1A «PU\A(IfK)/RlA(I.K) 

BET1A(I*K)«aTAN2(SBET1A .sqhtU.-sbetia *SBET1A )) 

IF (OHEGAR < I «K ) ) 8 1 8 • 7 

7 ETARR(I.K)"1. 

EXPRE*0.0 

8 MRlA<I,«)"RlA<l,K)/SQRT<GAM<3,K)*G*RV(3tK)*TSlACl.K)| 

TRTS1A "1 .♦ (GAM(3»K)-1,)*MRU ( I»K)»MRlA<I«KI/2. 

iFITRTSlA.GT.l.t GO TC 32 

PREVER « .TRUE. 

GO TO 17 


ST 1 A o 43 
ST 1 A o 44 

ST 1 A 046 
ST 1 A 047 
ST 1 A 048 
ST 1 A 049 
ST 1 A o 50 
ST 1 A 051 
ST 1 A o 5 Z 
ST 1 A 053 
ST 1 A 054 
ST 1 A 055 
ST 1 A 056 
ST 1 A 057 
ST 1 A o 5 « 
ST 1 A n 59 
ST 1 A 060 
ST l A 061 
ST 1 A 062 
ST l A o 63 
•*•••••• 

ST 1 A o 65 
ST 1 A 066 
ST 1 A 067 

ST 1 A 069 

•+«•••«• 

ST 1 A f)7 1 

S T 1 A 073 
ST 1 A 074 
ST 1 A 075 
ST 1 A 076 
ST 1 A 077 
ST 1 A 078 
ST 1 A o 79 
ST 1 A 080 
ST 1 A o 8 1 
ST 1 A 082 
5 TU 083 
ST 1 A 084 

ST 1 A 086 
ST 1 A o 87 
ST 1 A 088 
ST 1 A 089 
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Listing of Code (continued) 


32 

TTR1A(I.K>«TS1A<I.K)«IRTS1A 
Rl <I.K)*BET1 A<I«K)-RaCR0(I»K) 

ST 1 A 

*•## 

091 


IFIRI (I, K).GT. 1.570796) Rl<I,K>*i.570796 
IF IHIII.M ,UT. -1.570796) RKI.K). -1.570796 
IF (R I ( I »K) >9.9,10 

• •••4 

ST 1 A 

»#»• 

n94 

9 

EXPH«EXPN 

STlA 

ft95 


GO TO 11 

ST1A 

096 

10 

f XPH*E XPP 

STl A 

097 

11 

PHPS1A ■ (l.MTRTSU - 1 • ) *£7 ARR ( I*K)*(C0S(RI ( I *K) )•* 

STlA 

098 

jfXPW) )#4>txi 

ST 1 A 

099 


PTR1A(I.K)»PSU(I.K)«FRPS1A 

STlA 

100 


IF (ISECT-D1A.16.14 

STl A 

101 

14 

1*1*10 

STlA 

102 


IF (1)15. IS. 13 

STlA 

103 

15 

1 0« 1 

STlA 

104 


1 *1 P ♦ I D 

STlA 

105 


GO TO 13 

STlA 

106 

16 

CONT iNUh 

STlA 

107 


CALL CHtCK(J) 

STlA 

108 


GO TO ( 17.18) . J 

STlA 

1 09 

17 

CALL OIAGT (3) lS , * , ; 

STlA 

110 

18 

IF(SRFLAti) MR ITE (6.20000 ) 

•••«. 

>*## 

20000 

format (ash an exit has been made from subroutine staia > 

• •••< 

>•#41 


RETURN 




STlA 

112 



o o 


Listing of Code (continued) 


ST 2 ool 

SUBROUTINE sta? ST2 n02 

CSTA 2 ST? 003 

c SATISFY CONTINUITY OF FLOW AT ROTOR tXlT 57 ;; n0 4 

C ST 2 005 

REAL MFSTOP *»*•*•*• 

LOGICAL PREVE h *SHFLAG •••••••• 

30ELPM»PASS. IPC.LOPC. ISS ST2 0 ,j 

c 51! 

2RAD«0<6.B> ,ANN1 ,6.8) PTPliii) ST? 015 

3U2(*'8) ,ANN0(b»ri) tPTOt6ffl)tTTO(6*fl) »ALPHA0(6t») 6 $T? ft 16 

Bsasss ^Hsaa i s 

8*83(6*8) *B*(6*8> *85(6*8) *B6(6«8> ,S£SThI ( 8> « ,E ST? n2 6 

C ST2 o27 

2 f8 ) *MH1 a ( 6f B) • TSl A (ft*b ) 5^ ^31 

° COMMON /sSTA2/V2(6.rt).TTR2(6.8>.PTH2(6.8).*'G2(6,8).WGT2(8).TA2(ft).ST2 n32 

j P$2(b.8) ,PH2(6.8) ST2 n34 

C ST2 035 

COMmON^/SFLOwZ/TSZI^.S) * C p 2 ( 8) * ^M2^6 ^ 8) ^ • 8ST? jg 

1 , 8 ).VU 2 t 6 . 8 ).UPUM 2 ( 6 . 6 ).V^ 2 ( 6 . 8 ),MR 2 ( 6 . 8 ).MF 2 ( 6 . 8 ).M 2 ( 6 , 8 ) ST? ^ 

C DIMENSION WGT2CH) .FFA216.8) .lS2(fl) |jfj ”43 

ST? 0*1 

10000 FORMATUAH I! I enthy 1 ! 2 s°been MAOF In SUBROUTINE STA 2 ) '*!m» 

K«KN ST? 0* 2 

J«1 
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Listing of Code (continued) 


SCRIT«o.O 
PTWH0«1 . 

I S2 (K ) *0 

EXI«GAM(3,K)/(GAM(3,k)-1.) 

WR«P*G <4»K) /R*G<3»K> 

00 1 laid SECT 

TTR2 ( I t K ) «TTR 1 A < I »K ) ♦ (U2 ( I *K) **2 - Ul A ( I »K) **2) / (2»*6*AJ*CP1 A (K) ) 
PTR2(I,K)«PTR1a(I*K)*(TTR2(I«K)/TTR1A(I.K))**EXI 

1 WG2(I<K)«mR«mG1A(I,K) 

WGT2<K)«wr*wGT1A(K) 

I«IP 

10— 1 

WGT2C<K)*0. 

IF ( ICHOKE) 26,26«3 

26 IF(L0PIN)27,27,3 

27 IF (GAME) 2,2,16 

2 TA2(K)».95*TTR2< IP,K) 

CALL GAMMA(PT«2<I,K),IA2<K),FAIR,wAIR,GAM<4,KJ) 

16 FFA2 ( I *K ) «WG2 < I «K) •SQf'T ( TTR? ( I ,K) ) / ( 144 .*PTR2 < I ,K) *CSBET2 1 1 *K ) • 
lANN2tI,K>) 

C ALL PR A T 10 ( F F A2 ( 1 1 K ) *G AM ( 4 , K ) » Rv ( A.K) . P TR$2 < I , K ) , PrtOL ) 

3 CALL FL0i»2 ( I ) 

IF (PREVER) QO TO 22 " ' ' ' ‘ . 

WGT2C (K) »WGT2C <K) *wG2 1 1 ,t^) 

L“1 ‘ ' 

IF (PTRS2 < I *K > .LE«PTRS2 ( |P*K) ) L"1 

IF ( I SECT- 1 ) 7* 7 ,4 

4 1*1*10 

I F ( I ) 5 1 8 1 6 

5 ID»1 ’ ’ ' '' f '• 1 ' ' ' 

I*IP* ID 

6 L»I-I0 , , • . • ... 

PS2( I.K)*PS?(L,K) ♦FL0AT(lb)‘*DPDR?(LtK : )* (H2 I (i,K)*H2 (L»K) 
n/2. 

PTR52(l,K)rPTR2(I.K)/PS2(I.K) 

IF <PTRS2(I«K>-1.>19,19.3 
19 PTRS2 ( I «K) > 1.0 * PhTOL 

GO 10 3 

7 IF ( IS2 (K) ) 8,8*9 

8 EXI«GAM(4.K)/<GAM(4.K)-1.) 

CALL PHlM(ExItETAR(L,«) .Pul x ,prcq I T ) 

PRUP*PTH2 ( I P , K ) *PRCR 1 1*PS2 (l*k) /(PTR2 (L ,KJ*PS2 ( IP,K) ) 

1*U, ♦PRTOL) 

PRL0«/*1 . 

GO TO 10 

9 IS2<K)«IS2(K)*l 
10 L * IPHC ♦ l 


ST? 

o43 

ST? 

044 

ST? 

045 

ST? 

046 

ST? 

047 

ST? 

048 

ST? 

049 

ST? 

050 

ST? 

051 

ST? 

052 

ST? 

o53 

ST? 

054 

ST? 

055 

ST? 

056 

ST? 

057 

ST? 

058 

ST? 

059 

ST? 

060 

ST? 

061 

ST? 

062 


ST? 

064 

ST? 

065 

ST? 

066 

ST? 

067 

ST? 

068 

ST? 

069 

ST? 

070 

ST? 

071 

ST? 

072 

ST? 

073 

ST? 

o74 

ST? 

075 

ST? 

076 

ST? 

077 

ST? 

078 

ST? 

079 

ST? 

080 

ST? 

081 

ST? 

OR? 

ST? 

oR3 

ST? 

084 

ST? 

0R5 

ST? 

086 

ST? 

087 

ST? 

088 

ST? 

089 
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Listing of Code (continued) 


IF< ICMOkE.EQ.LI PTRS2<IP,K) > PR(iP 
IF t»GT2(K)-»GT2C(K> ) 12*15*11 

11 prlow* pr«S2tlP»to 
GO TO 13 

12 PRUP« PTH52UP.K) 

IS2(K)«1 

13 WE»1.-WGT2(K)/WGT2C(K> 

J»J* 1 

IF (J-32) 29 *18*18 

29 IFUCHOKt-Ul 30*31*30 
31 SCRI T ■ -*(£ 

GO TO 15 

30 IF(LOPIN) 14,1**15 

14 pME«(PTRS?(IP.K)-PTRwC)/PTRS2(IP.K> 

IF (AHS(PRE)-PRtOL) 17*17.24 

17 CONTINUE 

IF (AHS("E)-«TOU 15*15,23 

24 PTR*»0»PTHS2(IP,K) 
wGT2C(K)«0.0 
I»IP 

I0»-1 

IF (SCR 17)28*28*15 
28 PTRS2(IR*K)«.5«(PRL0W*PRUP) 

IF (PTRS2 < IP.K) .LE.PRCRIT) PRPr«0,0 
GO TO 3 
23 SCRIT* 1. 

15 lF(TRLOOP.EG.O.) GO TC 25 

18 WRITE (6* 1000>K*PRUP*P , 'LOw*WE *PRCRlT «J**GT2(K) * WGT2C CK) • (WG2 *L*K) * 
1 L» 1 * I SECT ) 

WRITE (6* 1001) (PThS 2(L*K> *L*l*IS£cT) 

1000 FORW AT (2A*2RK»I4» isX,6H PRUP"F8*5 * 2* *6HPRL0W«F8.5*2>< *6H WE« 

1F8.5*1X»7hPHCRIT«F8.5»2*,2HJ«I4/ 

2?X,f H W(>T?»F8* 3*2X*6H*GT2C«F8«3/ 

32X,fcH wG?«6F8.3) 

1001 FORMAT (?x,6HPTPS2*6F0»5) 

25 CALL CHECK (J) 

GO TO (20.21) *J 

20 CALL OlAGT (4) 

GO TO 22 

21 CALL LOOP 

22 IF(SHFEAU) wR 1TE (6*20000 ) 

20000 FORK AT < 45h an EXIT H*S BEEN MADE FROM SUBROUTINE STa2 ) • 

RETURN 

END 


ST2 090 
ST2 091 
ST2 092 
ST2 093 
ST2 o9* 
ST2 095 
ST2 096 
ST? 097 
ST2 098 
ST? 099 
ST2 TOO 
ST2 101 
ST? 102 
ST2 103 
ST2 104 
ST2 105 
ST? 106 
ST2 107 
ST? 108 
ST2 109 
ST? 110 
ST? Ill 
ST2 112 
ST? 113 
ST? 114 
ST2 119 
ST2 116 
ST? 117 
ST? 118 
ST2 119 
ST 2 120 

ST? 1 21 
ST2 122 
ST2 123 
ST? 124 
ST2 125 
ST2 126 
ST2 127 
ST2 128 
ST? 129 


ST2 131 
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Listing of Code (continued) 


SUBROUTINE FL0»2(I) Fl«2 001 

CFL0X2 FL*2 002 

C CALCULATE ROTOR EXIT SECTOR F(.0w Fl*2 o03 

C Fl*2 00* 

REAL MFSTOP FL*2 005 

LOGICAL PREVEH,SRFLAG ******** 

COMMON SRFLAG •••••••• 

CORDON /SNTCP/G*AJ*PRPC* ICAsE «PREVEH*mFSTOP, JUMP»(.OPIN» ISCASE t Fi.w2 007 

IKN,gamF.IPiSCHIT,PTRMISECT,ksTG.*ToL*RhOTOl.PRTOL»TRLOOP.LSTG, ******** 

2LPWC « I BMC, I CHOKE • ISORR *CHOKE .PTOPSl <6*6 ) »PTRS2 (6.8) .TRDIAG.SC.RC. FL*2 009 

30ELPR»PaSS«IPC,L0PC»ISS Fl« 2 fllO 

C Fln 2 oil 

COMMON /SINIT/Hl (6,0) ,H2(6,0> ,DPo(6,8) .DPI (6.8) .DPI A (6,8) .DP2 <6.0> Fu»2 ol2 
l »OP?A (6.8) .CSALFl (6.8> .ALFl (6.8) ,CSbET2(6,8> .BET? (6, 8 > ♦RA0S0(6.8) »Fl* 2 Ol3 
2RA0RD (6.0) « ANN1 (6.8 ) .Ann? (6.8) *Ann2A(6»8) . Ann 1 A ( 6 .8 ) *U1 A ( 6 . 8 ) • FL*2 014 

3U2 (6.0) .ANNO (6,8) .PT0I6.8) «TT0(6.fl) .A lPhA0(6»8) ,PTP(6.8) Fl*2 015 

C FLW2 016 

COMMON /SINPuT/ RSL.TSl.PSL.GAHSl. ******** 

IPTPS,PTIn,TTIN,*4IR,faip,dELC.UElL.DEla,AACS.VCT0,STG.SECT.EXPn, FL*2 ol 8 

2EXPP .EXPHE ♦ RPm,PAF»$LI .STGCH f FNOJO h .NAME ( 10) .TITLE(IO) .PCNH(6) ,*****••* 
3RV (fc . 8 ) .GAM (6.8) .OH (6*8) .DT (6.8) , R*G ( 6.8 ) .ALPHAS (6*8 ) .AlPhAI (6.8) ,*****•*• 


4ETABS (6.8) .ET*S(6.8) «CFS (6 « B ) ,ANnO(6»8) .8ETA1 (6.8) ,8ETA2(6,8 ) .ETARFlw? n?l 
5R(6.8) ,E TAR (6. A) .CFH (6.0),TFR(6.«) .ANOCH (6.8) .OMEGAS (6.8 » »ASO (6,8 >Flw2 o22 
6.ASMP0 (6,8) .ACMNO (6,8 > ,A1 (6.8) .A? (6,0) , A3 (6,8) , A4 (6*0) , A5 (6,8) , *6 (Flw2 0?3 
76.8) «0mEGAR(6.R) ,8SIA«6,8) ,RSmP1a(6.8) .BCMNJ A (6.8) .81 (6,8) ,82 (6. 8) Flw2 o24 


e, 83(6, 8), R4(6*8). 85(6*8), 86(6. 8 ), sESThI(8).RE«TmI(8) Fl*2 o25 

C Fl«2 o?6 

COMMON /SSTa?/V2 (6,0) »TTR2 (6.8) ,PTR2 (6.8 ) »WG2 (6.8) *NGT?(8) ,TA2(B) ,Fl*2 o?7 

1 PS2(6,8) ,PP12(6«8) Fl*»2 020 

C Fl«2 029 

REAL MH2.M? ,MF2 Fl"2 o30 

COMMON /SFL0w2/TS2 (6,6) «CP2 (0) .HP (6,8) »HH0S2 (6,8) .8ET2E (6*8) .RU2 (6 Fl*2 o31 

1.8) » VU2 (6,8) ,0P0H2(6,t) , V22 (6.8 ) ,mH?(6»8) ,MF2(6,8) ,H?(6,8> Fl*2 032 

C Flw 2 n33 

DIMENSION P1aS?C(H) ,PF I2C (8) ,R2C(6*8> ,TS2C(6,8) ,RH0S?C(6,8) .wG?C(6Fl*2 034 

1.8) .C8ET2E <6,8),aS2(6»8) «RFF (6,8) Fl*2 035 

Fl«2 036 
Fl«2 037 

IF(SHKlaG) WRITE (6, 10000) ******** 

10000 FORMAT (44H AN ENTRY HAS BEEN mADf IN SUBROUTINE FLOP? ) ******** 

K*KN ••«••*•• 

EX*(GAM(4,K)-1.)/GAM(4,K) 1 j Flw2 038 

C I SENTHOP I C ROTOR RfcLATIVE TEmpfHaTuHE RATIO Fl« 2 o39 

10 PHI2<I»K>« PTHS2 ( I , K ) **Ex Flw2 o40 

IF (CMEGaR ( 1 »K) )2,2,1 j I i Fl«2 04l 

1 CALL LOSS? ( I ,6) Fl*2 042 




Listing of Code (continued) 


22 


18 


11 


12 

13 

24 


14 


15 


TS2U*K)«TTo|tlIi<)*U*-tTAR(l,K)«(l.-l./PHl2(ItKn ) 

JF € I — 1 P ) b* 3*6 

JF I fj AMF > 4 »4 *5 

T A2 <K) = ,b* (TT*? 1 1 • *) ♦ »S2 ( 1 »K) ) 

CALL GAMMA {PT«? <ttK),lA2(K),FAlR**AIH f GAMU«K>) 

EXI»GAM (4 f K> / <GAM <4tK) -1 . ) 

EX«1 ./EAl 

critical PRESSURE RATIO 

CALL PHIM<E*I.ETAMI.A>.PHI?C<K).PUS2C(K>> 

SPECIFIC pEaT AT CCNSTANT PRESSURE 
rP2(K)= HV(A«M*E*I/A«. 

RELATIVE E*IT VELOCITY 

R 2 U.K.«SQPT(2.*0**J«tP2(K).(TTB,(l.K)-TS2(l.K)n 

EXIT PRESSURE 

P52(I«K)b PTP2(I.K)/ PTPS2tI»K) 
f x I T HENS I I Y 

RHOS2(I.K)*l**.* p S2U»M/(Hv U.K1«TS2<I.K>) 

TEST CRITICAL PRESSURE RATIO 
IE ( PTPS2 ( 1 »* * -R I *S2C 'M ) 15« 7*7 
IF ( IP— H 2?»«.22 
IF (PRPC)9*'»*1R 
PRPC-1 . 

PTRS?(I.K)«PUS2C<K)»U..PRT0L) 

60 TO 10 

(PTRS2(I.K) ,LE.Pr»S2UP«K) J GO TO 16 

( (l.EU.li Cl«E:G«IS>ECT) J SrP IT“1 • 

TO 11 

R2C< HM 'SORT (2.*G«AJ«CP2(K)*TTR?(!»K>«ETAR(I.K!*< 

' Sm ;;;!;!!™!!!"'-!' 

»mos?c i i.ki. u.«i /i»v j *."’*'; 1 iJSiSIJJ”"!’ * 

WG2C < l * K > *RmCS?C ( l »*> *R2C < 1 1*> *Ann 2 < I * K > *CS6ET2 ( I *K) 
wG2 U •* ) «wG?C < I • *) 

GO TO 1* 

1F( PRHC ” \ • 1 1 ^ ♦ 1 S « 2 41 

WG2 ( I •* ) “RFF 1 1 ?* 1 #p Tft2 ( l t*> / SORT I T 1 *«2 < I tK) ) 

G ° CVERtXPAKSlOR AFTER bU p t«SONIr FLUw OECWEASL 

CHFT2EIHK,.,G ? (i,K)/(RH0b?(T,K)* W 2(U«>*AN N 2(NK,) 

BETPt ll!x)*ATAN2CSUMT<l.-CHET?EH.M*CfcfcT2t lltK)) ,CRET2E <!»*<>> 

2G2(?*K)*RMOS2<It^)*«<UfM*ANN2(TtK)*CSHET2(ItK) 

CHE T2t 1 1 ,K >*CSHK T2 ( I • * > 

HET?F tl • *) = 8tT<M 1 


IF 

GO 

IF 

GO 


FLw2 

043 

Flw2 

044 

Fl*2 

045 

flw? 

046 

Fl«2 

047 

FL«2 

04ft 

f L*2 

049 

FLW2 

o50 

Fl*2 

OSl 

Fl*2 

052 

Flw2 

053 

FLW2 

055 

FLW? 

056 

FLW2 

057 

FL*? 

o5ft 

FLW2 

tft«4 

059 

FLW? 

061 

Fl«2 

062 

Fl*2 

063 

Fl«2 

064 

Fl*2 

065 

Flw2 

066 

Flw2 

067 

Flw? 

06 H 

Fl*2 

069 

FLW2 

0 70 

Flw? 

*71 

FLW? 

0 72 

FLW2 

073 

Flw2 

074 

FLw2 

• «•» 

o75 

*##• 


FLW? o77 
FL«2 n7H 
Flw2 079 
Flw? nRO 
Flw 2 nRl 
Flw2 oR2 
Flw? nH 3 
FLR2 o H 4 
FLW? 0R5 
FLW? nH6 
FL*? o«7 
FLW? oRB 
Flw? nR9 
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Listing of Code (continued) 


RFF < I»K)«wG2»I.*)*SGRl (TTR2(I.K))/PTR2U»K> 

16 RU2(I*K)»R2(I.K)«SIN(6ET2t U.K) ) 

VU2 ( I »K 1 >RU2 ( l «K ) -U2 ( 1 *K ) 

0P0R2 ( 1 *K ) ■ (RH0S2<I»K)*VU2(l»K)*Vu2(I.K>/(G*0P2«I»Kn >< 

VZ2 < I *K ) «R2 U »K > •C8ET2E ( I • K ) 

A$2<I.K)«SQPT(GAM<4.K>»G*RVC4.K)*TS2<I*K) ) 

V 2 (I*K)»SQRT(VZ 2 (ItK)«vZ 2 (UK)*Vn 2 (I«K)*VU 2 (l.K)) 

m2(I«K)>V?(I*K)/aS2(I*K) 

hR2<I«K)»P2(I*K)/AS2(1«K) 

MF2 < I *K ) «MR2 < I , K > «CHE 1 2E ( 1 1 K ) 

IFU.LT.1SECT) GO TO 17 
IFIPRPC.EQ.l.) PRPC*2 • 

17 CALL CHECK (J) 

GO TO (19,21) »J 

19 CALL 0 1 AGT < * ) 

21 IF (SHFLAGJ WR 1 TE ( 6 ,20000 ) 

20000 fork at ( *sh an exit has> been made from subroutine flow2 i 

RETURN 

END 


FLW2 090 
Flw 2 o91 
Fl*2 092 
.01388889******** 
FL«»2 094 
•••••••• 

Fu*2 n96 
Flw? 097 
FLW2 098 
Flw2 099 
Fl«2 100 
Fl*2 101 
Flw2 102 
Fl«2 103 
FL«2 104 


FLw2 106 
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Listing of Code (continued) 


CL0SS2 


C 

C 


SUBROUTINE 10SS2 ( I *K 1 

> 

CALCULATE eta R FROM CUAOftATlC polynhomal 


LOS? 

LOS? 

LOS? 

LOS? 

LOS? 


oOl 

AO? 
003 
A 04 
n05 


LOS? 

LOS? 

LOS? 

LOS? 

LOS? 


O07 

OCR 

009 

010 

011 


REAL MFSTOP 
LOGICAL PREVE«tSRFLAG 

COMMON /SnTC^.AJ.PRPC.ICASE.PREVEH.mFSTOP.JUMP.lOPIN.ISCASE, 
lKN,GAHF.IP.SCWlT,PTHN.ISECT,KST6,»»TOL,PH0TOt*PPTOL»TRL00P«LSTGf 

2 LBRC* IBHC, I CHOKE. I SOPH , CHOKE. PTOPSl <6,e> ,PTRS2(6.R> , TROI AG. SC »RC. 
30EUPR*PASS« IPCtLOPC* ISS 

IPTPS.PTIN,TTIN,«AIR.FAIH.UELC.UE| L.DEL*.AACS,VCTO.STG.SECT.EXPN. L0S2^ 12 

2E*PP.EaPHE. RPM.PAF»SLI.StGCH.ENUJOR»NAME( 10) . TITLE ( 10) ,PCNH t 6) * 

3 BV(t,8) .GAM (6. 8) .OR (6*8) .OT (6.8) . R*G (6 .8 ) . ALPHAS (6.8 ) . *EPhA1 < 6, 8) . 

4ETAPS<6.8) , ETAS (6.8) .CFS(6.fl) .ANnO <6*8» .BETA1 <6.B) !?^! f = i loS? ' 

OR (6.8) ,ETAR<6.8) ,CFH(e,8),TFR<6,fi).ANO0R(6.8) (LOS? 
6 .A S mP 0 <6,fl) .ACMNO (6.8) .A1 (6.8) .A?<6,8) *A3<6.8 !****;? !** R7 (i a LOS? 

76.8) , UMEGAH (6.8) ,BSIA (6.8) .BSMPU (6,8) .BCMNI A (6.8) *81 (6,8) ,B? (6.8) LOS? 

e*H3 { 6t8) »B4 (6*8) tB5 (6 *B) < 6fB> *SEST hI ( 8) tRERTHl (8) LOS? 

COMMON /SSTA1A/VUIA(6*8> ,*G1 AI6.P) ,wGT 1 A (8) .VZ1A(6,81 1 * S? 1 ijS! 2 < fcS’ntl 

1PS1A (6,8) .HUlA(6.e> .8 l A (6*8) .HET) A (6*8) »RI(6.8) ,TTR1A)6.8) ,PTRl*(6L0S2 

2.8) .MH1AI6.P) »TS1A(6.8) L0S2 "?6 

COMMON /SSTA2/V2 (6,8) ,TTR2(6,«) ,pTB?<6*8) .mG2(6.8) «MGT2(8) »TA2(8) *LOS? 

1 PS2 (6.8) ,PH2 (6.8) 


ol7 
Ol 8 
019 
n ?0 
o?l 
0?2 

023 

024 


027 

0 ?R 

0?9 


IF tSHFLAG) WRITE (6 1 10000) 

10000 format (44H AN ENTRY H*S BEEN mADF 

etapr ( I ,R ) « 1 » o 

IE (R I ( l » N ) >4.1.2 

1 wlA2»0MEGAR(I*K) 

GO TO 8 

2 AS«R1 CI.K) 

AC=62 ( I «K) 

AQ*H3< I .K) 

IF(HSMP1A(I.K)-HI(I.K))3»6»6 

3 wmwRsRI (I.K)/BSNPIA(I»K) 

ARsPSMPIA ( I ,K) /BSIA (I ,K) 

GO TO 7 

4 ASaPA(I.K) 

AC«RS(I.K) 


In SUBROUTINE L0SS2 ) **•***•• 

L0S2 031 

L0S2 o32 
L0S2 o33 
L0S2 034 
L0S2 n35 
L0S2 036 
L0S2 037 
L0S2 038 
L0S2 039 
LOS? 040 
LOS? 041 
L0S2 o4? 
L0S2 043 
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Listing of Code (continued) 



AQ>H6 ( I «K) 

LOS2 

044 


IF(RI (I,K)-HCHNlA(ItK) )5.b.6 

LOS2 

045 

5 

WHWKsUl ( I ,K ) /HCMNI A ( I »R ) 

LOS2 

046 


AR*HCHNIA(I.K>/BSIA(I tK) 

LOS2 

047 


60 TO 7 

LOS2 

048 

6 

WHWR*1 .0 

LOS2 

049 


ARsfil ( I .K) /HSIA ( I »K) 

LOS2 

050 

7 

W U2»0MEGAR 1 1 *K ) * ( 1 . *AR*AH* (AS*Ar* < AC»AR*AQ) ) ) •mMwR 

LOS2 

051 

8 

EX»(0AM(3,K)-1.)/GAM(3,H) 

L0S2 

o52 


ETAH(I»k)«(1.-(1./(PTI'S2(1*K)*(1.-i»1A2)*w1A2)) **EX ) *PHI2 ( I *K) / 

L0S2 

053 


1 (PHI2 ( I »K) -1 , ) 

LOS2 

054 


CALC CHECK (J) 

COS2 

055 


IF(SRFLAG) *»RITE(6»20000) 

«§•«« 


20000 

F0RRAT(45h A A: EXIT has BEEN MADE F«0M SUBROUTINE LOSS2 > 

*###< 

>#*• 


RETURN 

LOS2 

056 


END 

L0S2 

o57 
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Listing of Code (continued) 


CLOCP 


SUBROUTINE l-OOP 
HANDLES 


all logic for iterating to obtain exact choke point- 
unuerflc*, no choke initial choke. Choke iteration 
subcritical, choke ttehation supercritical. multiple 

CHOKE. Ct-OKE ITERATION COMPLETE 


REAL RFSTOP 
LOGICAL HHEVEH.SHFLAG 
COMMON bRFL A6 

COMKON /SNTCP/G. AJ.PRBC. ICASE.PRFVER.MFSTOP, JUHP.LOPIN.ISCASE. 

IKN.GAMF.IP.SCRIT .PTRK.ISECT.KSTg.wToL.RhOTOL.PRTOL.TRLOOP.LSTG, 

2LHRC. IBRC. ICHOkE . I SORB .CHOKE .PT OpS 1 1 1> • 8 > *PTRS2(6*8> .TROl AG.SC.RC. 
30ELPR.PASS. IPC.LOPC. IiS 


LOOP 

LOOP 

LOOP 

LOOP 

LOOP 

LOOP 

LOOP 

LOOP 


oOl 
no? 
003 
0 04 
o05 
n06 
007 
nOH 


LOOP 

LOOP 

LOOP 

LOOP 

LOOP 


o 1 0 

011 

012 
o l 3 
014 


PFXPP exphf, 

3p 5<F H^GAMIK.fl. ,DR(^8 t)T (G.b> .R-GIK.S* .ALPHASIG.8) .ALPHAl <6,A) .*.«•*.«• 

4FTARS(1!hi .FTAS(K.a) .CFS(b.R) . ANnO ( t> * H ) .HETAK6.B) .BETA2I6.0) .ETAR L OOP oI9 

■?'SP(6.H) .ETAR(A.fl) *CFR|t.h),TFR(6.«).ANOCMft.«),OMEGAS(6,8),ASO(G.8)LOOP 

ft.AS^PO *8) tACMN0<6te> * A1 ( 6# B ) ♦ A? ( 6 n tt) • A3 < 6 t H ) • A4 ( 6 t H> t A5 ( 6 t 0) t A6lLOOP 

* •7A.8>,OMEGAHIMH>.«SIA(6.e».RSHPlA(6,«) ; HCHNIAI6.B,,BH6,0).B2(6.fl)LOOP 


c 

v V 

io oo o 
c 


e,B3(6.8).R4( b ,8).BS(6.8).b6(6.b),SESTHl(8).RERTHH8) 


LOOP 

LOOP 


n?0 

n?l 

022 

023 

n24 


V.R1TEI6.10000) 

AN ENTRY H*S BEEN 


iF(SWFLAG) 

FORK AT (44H 
I JsA *KST G 
INCREASE BLAOE 
I8RC»1BHC*1 

C TEST NEGATIVE SECTOR 

IF (PT RN ) 18.1.1 
C TEST CHOKE ITERATION 

1 IF ( ICHOKE-IBRC) 3*2*3 

C TEST INCHEMFNT TOLERANCE 

2 IF (PHTOL-OELPR) 3*3*4 

C TEST STATION Flow CRJIICAL 

3 IF ( SCR I T ) 5 .5 . 6 

C CHOKE ITERATION COMPLETE 

4 ICHCKE-O 
IPC=IBRC 
ISS*IBRC 

I S0RR*2* ( IBRC/2)*2-IBRC 
k JL* ( ISOHH-1 ) *8*KN 

IF (JL-IJ) 22*23*23 
22 DELPR»DELL 


MAOF IN SUBROUTINE LOOP 

ROW COUNTER 

PRESSURE RATIO 
LN BLAOE ROw 


LOOP 

LOOP 

LOOP 

LOOP 

LOOP 

LOOP 

LOOP 

LOOP 

LOOP 

LOOP 

LOOP 

LOOP 

LOOP 

LOOP 

LOOP 

LOOP 

LOOP 

LOOP 

LOOP 


n25 

fl26 

n27 

028 

029 

030 

031 

032 

033 

034 

035 
0 3f> 

037 

038 

039 

040 

041 

042 

043 
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Listing of Code (continued) 


24 LOPOO 
CHOKE* l * 

LSTG*KN 
LBRC* IBRC- 1 
60 TO 18 
23 DELPR-OELA 
GO TO 24 

5 IF <ICHOKE-IBRC> 18.7,18 

C TEST CHOKE ITERATION LOOP 

6 IF<1SS-IBRC>8»|H.10 
CHOKE ITERATION 
ISORR * 1 FOR STATOR 

« 2 FOR ROTOR 

7 0ELPR*0ELPR/2. 

JL*(IS0RH-1)«8.LSTG 
PT0PS1 ( IP, Jl_) *PTOPSl ( IP, JL) .OELPR 

GO TO 16 
C CHOKE HAS OCUHREO 

8 IF (ICH0KE)8n, 80*13 

80 J*(IBRC-2*(KN-D-1)*8»KN 

WRITE (6,801 ) I BRC * PTOPS 1 ( IP. J) 

801 FORMAT < 16X10HBLAOE R0» I3.8H CHOKEU,4x5hPTPS«FI0.5) 

C TEST SINGLE CALCULATION POINT 

9 IF ( DELC ) 18.18,10 

C TEST PREVIOUS CHOKE 

10 IF (IPOll. 11*12 

c save combinations phicr first choke 

11 LHRCS=LHRC 
ISOHRS* I SOHR 

JL* ( IS0HH-1)«8*LSTG 
SPTPS-PT0PS1 ( IP. JU -CELPR 
LSTC'S*LSTG 
SDELPR*0ELPR 
GO TO 13 

12 JL*LSTGS«(ISORflS-l)*e 

OELMJ * (PTOPSl ( iP.JLl-SPTPS) /4. 

IF (OELNU.LE. 0.0001 ) LELNU c SDE| PH/4. 

OELPR * OELMJ 
SOEI. PR * OELMJ 
WRITE(6.1201) IPC. IBRC*OELPR 

1201 FORMAT (6X1 1HBLAOE R0w5 15, 5H AND 1S.25H, CHOKEO - INCREMENT NOW 
1F10.5) 

LHRC*LRRCS 
LSTG-LSTGS 
I SORRs I SOARS 

PTOPSl ( IP, JL) * SPTPS * SDELPR 
lopc*io 


LOOP n44 
LOOP 045 
LOOP 046 
LOOP 047 
LOOP 048 
LOOP 049 
LOOP 050 
LOOP 051 
LOOP 052 
LOOP o53 
LOOP 054 
LOOP 055 
LOOP 056 
LOOP 057 
LOOP 058 
LOOP 059 
LOOP 060 
LOOP 061 
LOOP 062 
LOOP o63 
LOOP 064 
LOOP 065 
LOOP 066 
LOOP 067 
LOOP 068 
LOOP 069 
LOOP o70 
LOOP 071 
LOOP 672 
LOOP 073 
LOOP 074 
LOOP 075 
LOOP 076 
LOOP 077 
LOOP 078 
LOOP 079 
LOOP oflO 
LOOP 081 
LOOP o82 
LOOP 083 
LOOP 084 
LOOP 085 
LOOP 086 
LOOP 007 
LOOP 008 
LOOP 089 
LOOP o90 
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Listing of Code (continued) 


!CHOKE = <> 
tpc*o 
ISS*0 
CHOKE*0.0 
GO TO 17 

C TEST PREVIOUS COMPLETE CALCULATION 

13 |F (PASS) 15.15,1* 

1* I CHCKE= I BRC 
OELPM».S*nElP« 

15 JL* < 1SOMH-1 ) *b*lstg 

PT OPS 1 ( IP. JL)«PT0PS1 (IP.JL)-OELPp 
C SET INOEX MEG l S I EPS 

16 CONTINUE 
LOPC*LOPC*l 

C SET JUMP FoR CHOKE ITERATION 

17 jump * 1 


GO TO 19 

JUMP SET FOR NO CHOKE OR CHOKE COMPLETE 


18 jUMPsg 

C TEST LOOP-TRACE 

zo white (m2ooi! ihhc.lhrc.isorr.kn., stg.ipc.iss.ichoke.jump.lhrcS, 
1 iSOHHS, lSTGS.SPTPS.pt OPS 1 ( IP. JL) .oelpr*dell»scrit,lopc 
2001 FORMAT I 3X12I5/3X4F10.S.F10.0.I10, 

21 IF(ShFlaG) wH ITE (6.20000) , 

20000 FORMAT (45H AN EXIT HAS BEEN MADE FROM SUBROUTINE LOOP > 


RETLHN 

END 


LOOP n91 
LOOP 092 
LOOP 093 
LOOP 09* 
LOOP 095 
LOOP 096 
LOOP 097 
LOOP 098 
LOOP o99 
LOOP 100 
LOOP 101 
LOOP 102 
LOOP 103 
LOOP 10* 
LOOP 105 
LOOP l 06 
LOOP 107 
LOOP 108 
LOOP 1 09 
LOOP 110 
LOOP 111 
LOOP 112 
LOOP 113 
LOOP 11* 
........ 


LOOP 116 
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Listing of Code (continued) 


CSTA2A 

C 

c 

c 


SUBROUTINE S T A 2 A 
determine inlet 


C 

C 


FLO* CONDITIONS TO all stators 
aftea’the first STATOR 


REAL MFSTOP 

LOGICAL PREVERfSRFLAG 

COMMON /SNT^P/G * A J*PRFC * 1CASE *PRE VERtMF STOP t JUMP ♦ LOP IN 1 I SCASE • 

1 KN^GAMF * IpIsCRI T tpTRN 1 1 SECT * KSTG*wT0Lt8H0T0L *PRTOL • 

?LBRCt IHRC* IC hOKE, i SOPH t CHOKE fPT OPS 1 (6*«> *PTRS2<6.8) f T«DI AGtSCtRC . 
3DELPP*PASSt IPCfLOPC»IbS 


ST2A 
5T? A 
ST2A 
ST?A 
ST2A 
ST ? A 


noi 
on? 
no 1 

004 

005 

006 


ST?A 008 

ST? A nlO 
ST? A 
ST ?A 


011 

012 
o\ 3 
0 l 4 

MS 
016 
0 1 7 
o 1 8 


COMMON /SIN IT /HI (6,8) .M2 (6.8) ,()P 0 (6,8) » ° P 1 ' 6 ’ « oin^nf 1 1 T? A 

I »DP2A (6.8) ,CS*LM«6.e).AtFI(6.8>.CSMET2<6.8).BET2<6.8).n*OS0(6.R) ST?A 
?PA()H0(6.8) .ANN1 (6.8) ,ANN2(6,8) .AMN2A(6.d) , ANN 1 A ( 6 .8) .U 1 A ( 6 , fl ) . 5T|A 

3U2 ( 6 . 8 ) .ANN0I6.8) .PTO <6 . 8) . TT 0 (6 , fl ) . Al>H AO (6.8) ,PTP(6»8) ST?^ 

ST?A 

1 PTPS^PT IN^ T T IN » " A Ir'fMR^OELC «OElL »DELA»AACS»vCTO»STG.SECT»EXPN« ST2A 
?FXPP .ExPHF . RPM.PaF.SlI .STGCH.FNO jOH.NAMt (10) .TITLE U 0) .PCNH <6> '**** 
3RV^ 6 »flWGAM(6»8) . DP < 6 , 8) »0T(6.8, • P*"G ^6 *8 )» ALPHAS C6»8)»ALPHA1( a j^** 4 **** ^ 
AETAfiS (6.8) . F T AS ( 6 . 8) ,CFS(6,R) ,ANnO(6.8) .BETA 1 (6.8 )«BETA2 ( 6. 8 ) .ET A ST? 23 

SR(6.B),ETAR(6.8),CFH(t,8).TFR(6.P).AN D 0«<6.8).OHEGAS(6,8).AS0 6,8 ST2A n2A 

fc,ASMP0(6.8) ,ACMN0<6,e> .A1 (6,8) ,A ?f 6,8) ,A3<6,8>.AA(6,B).A5(6,8),A6 ST? 

76,6) , 0MEGAR (6.8) ,8SIA(6.B) .RSmPIa (6.8) ,«CMNI A (6.81 1 .81 (6,8) ,82(6.8) ST2A 
0 983(6*8) *04(6*8) *85(6*8) *86(6*8) * SESTh i (ft) tRERTnl (6) ST 2 A 

ST ? A 

COMMON® /SST AO 1 /CP 0 ( 8 ) . p S0(6.8) .V0I6.R) *TS0(6.ST2A 

18) .WU0I6.8) .VZ016.8) , HH050 (6.8) ,PS 1 ( 6 , 8 ) , *GT1 (8) ,TM( 8) »"G1 ( 6 .8) , S . 

? 0 PDH 1 (6,e> .SI (6,8) » c^l <R> , pHl l (6.8) .TS1 6.8) »V1<6.8 * ^ 

3,RH0Sl(6,8).ALFlE(6.e)»VUl<6,8).vZl(6,«).M0(6.8),MGT0(8).ixG0(6, ^ 

S T? A n 3S 

C0MM0N H /SSTA1A/VU1A(6.8) »«G) A (6,p) * -GT } A < a) * V *} 4 ‘ . S? 1 p T Pi A ( hi T 2 A o37 

1PS1A (6*8) »RU1 A <b*8) ffliA (6*8) *HETl A (6*8> *81(6*8) « TTR1A (6*8> * 1 ******** 

2*8) *M81A (6*8) *TSlA(6ffc) ST? A n 39 

COMMON /SSTA?/V2(6,8)»TTP2(6,H) ,P T«? ( 6 . 8 ) . WG2 ( 6 . 8) ."GT2 ( 8) , T A2 ( 8) ,ST?A 
j PS2<6.8) ,PMI2(6.P) 

S T?A 

C0Mm 0 N^/SFL0«2/TS2(6.1:) ,CP2(P) »P? ( 6 . 8 ) , • ( , G?(6ST2A 

1 * 8) * VU? (6*8) *DPUH2(6*fc> «VZ2< 6 ,H),mH?(688>*MT?{6*8>*M2(6*H> 5T? 


020 


n25 

026 

027 

028 
o29 
Oio 
o 3 1 
03? 


n40 
04 1 
042 
n43 
044 
n 4S 
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Listing of Code (continued) 


ST?A 046 

PEAL M?A,MF?A ST2A o47 

COMMON /5STA2A/«G2A (6*8) **GT2A (8) , Vu2A (6*8) *VZ2A (6*8) *PS2A (6*8) * 5T2A o48 
1ACF2A(6,0) ,TT2A (6*8 ) *8T2a ( 6*8) *TTB*»(0> .PTBAR(B) *STT0<8) .SPT018) . ST2A nA9 
?M2A(6.8) *MF2A(6*8) *CP2A(8) . V2A (6, 8 ) , TS2 A (6*8) » T AS (8) .PAS (0 ) *GAmS( 8ST2A n50 
3) .CPS (8) .OELMVO (6*8) .RVBAH(B) ******** 

C ST2A o52 

DIMENSION TTTS2A (6*8) ST2A o53 

ST2A o5A 
ST2A 055 

IF(SRELAG) WRITE (6* 10000) ******** 

10000 FORMAT (44h AN ENTRY M*S BEEN mADf In SUBROUTINE ST A2A ) ******** 

K*KN ******** 


IO»-I 

I«IP 

TS2A ( I ,k) »TS2 ( I *K) 

MRsMmG (5.K ) / R * (5 ( 4 * K ) 

SUMT *0*0 

SUMLT*0.0 

SUMUP«0.0 

WGT2A (K) »wR*wGT2 (K) 

12 VU2A ( I «K ) aVll2 ( I «K) •DP< ( I «K) /0P2A ( J *K) 
wG2* ( I *K ) *wR««G2 ( I *K) 

RHOSTH*HHOS2 ( I ,K) 

1 V22A(I,k)»WR*VZ2(I,K)«ANN2(I,K)*rh0S2(I.K)/(ANN2A(I.K)*RH0STR) 
' V2AU,k)«SQRT(VU2A(I,8)*VU2A(I.K,*VZ2a(I.K)*WZ2A(I*K)> 

IF(l-IP)4.2.4 

2 IF { GAmF) 3*3»* 

3 TA2A «.S* (TTR2 ( I *«) *TS2A ( i ,K) ) 

CALL GAMMA(PTH2(IP*K) *TA2A ,FATR*wAIR,GAM(5*K) ) 

4 EX* (GAM (5*K) -1 . ( /GAM (5 *K ) 

EXI*1./EA 

CP2A (K)*HV(R.K)*EXI/A« 

DEUTS*(V2( I,K)*v2(I,kUv2A(I,k)*v2A(I,K) ) / (2.*G*AJ*CP2A (K) ) 

TS2A(I,K)*TS2(I*K)*0E».TS 

IF(TS2A(I*K).GT.0.) GC TO 32 

PHEVEH ■ .TRUE. 

mFSTOP » 2 . 

GO TO 30 

32 PS2A ( I *K ) *PS2 <I»K)*(1«*DELTS/TS2(I*K) )**EXI 
RHOS2A *144.*PS2A(I*K)/(RV(5.K)*TS2A(I,K) ) 

JF ( ABS (HHOSTR-RHOS2A ) -1 ,E-*07) 6.6.5 

5 RHOSTR*RrtOS2A 
60 TO 1 

6 SALE 2 A *VU2A(I*K)/V2A(I*K) 

ALE2AII.K) * AT An 2 ( SALF2 A , SORT < 1 .-SALF2A *SAt.F2A )) 

11 IE ( I - I P) 28 . 24 , 28 


ST2A n56 
ST?A o57 
ST2A 050 
ST2A 059 
ST2A 060 
ST2A 061 
ST2A 062 
5T2A 063 
ST2A 064 
ST2A 065 
ST2A 066 
ST2A 067 
ST2A 068 
5T2A 069 
ST2A 070 
ST2A o71 
ST2A 072 
ST2A 073 
ST2A 074 
*»««*«*« 
ST2A 076 
5T2A 077 
ST2A o78 
ST2A 079 
ST2A 080 
ST2A 081 
ST2A o«2 
»«*«»«*• 

ST2A oqA 
ST2A 005 
ST2A n86 
ST2A 007 
5T2A 088 
ST2A 089 
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24 

IF (GAMF >25.25,26 

ST2A 

090 

25 

TAS(K)*.5*(Ta1 <K) *TA2 <K>) 

ST2A 

o91 


PAS (K )».!>* (PT 0( IP »K)*FT2A( IP, K) ) 

ST2A 

n92 


CALL GAMMA (PaS(K) tTAS(K) , F A I R , W A T fl ♦ GA mS (K) ) 

ST2A 

o93 


GO TO 27 

ST2A 

094 

26 

gams (K) ».5* (GAm(2*K) *GAM (4,K) ) 

ST2A 

095 

27. E*«GAMS(K)/(GAmS(K)-i.) 

ST2A 

096 


RVBAR(K>».5*(HV<2»K)*8V(4»K) > 

• •••< 

*#*# 


CPS(K).«V«AR(K)*EA/AJ 

*•*#4 

»*#* 

28 

OELMVO(I»K)«(UlA(I,K)«vuiA(l,K)*ii2(I»K)*VU2U»K))/AJ/G 

ST2A 

098 


M2A(I,K)«V2A(I,K|/SQRl (GAM (5 «K ) *n*RV (5*K ) *TS2A ( 1 ,K ) > 

• •*•4 

>•41# 


deltt»tfw(I,k)*delhvo«i.k)/cps(k) 

ST2A 

100 


TT2A(I,K)«TT0(I.K)-0£LTT 

ST2A 

101 


TTTS2A ( I «K)«1 .♦ (M2 A ( I »K) *M2a ( I .K) • (GAM (5«K) -1 . 1 /2. ) 

5T2A 

102 


PTPS2A • (TTTS2A(I,K))**ExI 

5T2A 

103 


PT2A ( I ,k ) »PS2A ( I ,K) *P 1PS2A 

ST2A 

104 


MF2A ( I ,K) «M?A ( I ,K) *C0S ( ALF2A ( I ,K) ) 

ST2A 

105 


IF ( 1 SEC T- 1 ) 1 3* 15t 13 

ST2A 

106 

13 

1*1 ♦ 10 

ST2A 

107 


IF ( I ) 1 A • 1 4 *'l 2 

ST2A 

108 

14 

ID- 1 

ST2A 

109 


I« IP ♦ 1 0 

ST2A 

110 


GO TO 12 

ST2A 

111. 

15 

CONTINUE 

ST 2 A 

112 


DO 16 1 — i * I SECT 

ST2A 

113 


R*»*iG2 A< I«K)/mGT2A(K) 

ST2A 

1 1* 


TR»TT2A(I,KJ/TT2A(IP,«) 

ST2A 

11*. 


PR«PT2A(I,K)/PT2A(IP,K> 

ST2A 

116 


SUMT«SUMT*R#»TR 

ST2A 

117 


SUMLT»SUMLT*R«i*ALOG(TH> 

5T2A 

118 

16 

SUMLR«SUMLP*P**ALOG (PM) 

ST2 A 

119 


E3»GAM(5»K)/(GAM(5.K)»1.) 

ST2A 

120 


TTBAH(K)»TT2A(IP,K)*s(.MT 

ST2A 

121 


PTBAR ( K ) “PT2A ( IP.K)*E*P(SUM|.P*E3# (ALOG(SUMT)-SUMLT) ) 

5T2A 

122 


IF (K-KSTG) 17, 10. 18 

ST2A 

123 

17 

STT0(K*1>sTTBAR(K> 

ST2A 

124 


SPTO (K* 1 )sPT0AR(k) 

ST2A 

125 


00 23 I a l » ISECT 

ST2A 

126 

29 

SI ( I *K«1 ) *ALF2A( I ,K) - RAOSDl I ,N*1 ) 

ST2A 

127 


IF (SI ( I «K*1 ) .GT. 1.570796) SI (I.K*1>» 1.570796 

***** 

>*•* 


IF(SI (I.K.n .LT.- 1.570796) SI ( I .K. 1 ) *-l .570796 


► •#• 


IF (OMEGAS ( I .K> ) 8,0. 7 

ST2A 

130 

7 

ETARS(I,K*l)sl.O 

ST2A 

131 


EXPSI«0. 

ST2A 

132 


GO TO 117 

ST2A 

133 

8 

IF (SI ( I *K« 1 ) 19,9,10 

ST2A 

1 3* 

9 

EXPS1=EXPN 

5T? A 

ns 
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60 TO 117 
10 £XPSI«ExPP 
117 IF (PAF-l, >19*20. 21 
c UNIFORM PROFILES 

19 PTP(I*K*1>«PTBAH(K) 

PT0(1*K*1>* PTP(1,KM> 

1*(1.» (TTTS2a<I,K>-1.>«ETARS<I.K*i)*<C0S(SI<I»K*1>)* # EXP$I>)«*ExI 
2/(TTTS?A(It«))**EXI 
TT0(I*K*1)»TTBAK(K) 

GO TO 23 

C SAVE PROFILES 

20 PTP ( I »K*1) «PT2A ( I »K) 

PT0(I*K*1>* PTP ( I *K* l » _ . 

1*(1 .♦ (TTTS2A ( I ,M-1 . )«E TARSI I *K*i )• (COS (SI U »K*1) >**EXPSI ) ) **EXI 
2/(TTTS2A(I,K) )**£XI 
60 TO 22 

C SMOOTH PHESSUHE PROFILES 

21 PTP < I •K*1)«PTBAH(K)*C IT2A ( I ,K) /TTHAfl(K) > **E3 
PTO ( I *K* 1 ) * PTP<I«K*l> 

1* ( 1 . ♦ (TTTS2A ( I ,K ) -1 . ) «ETAHS ( I .K*i ) * (CoS (SI ( I 1 ) ) *«EXPSI ) ) **EX! 
2/(TTTS2A(I t «))**EXI 

22 TT0(I.K*1)»TT2A<I*K) 

23 CONTINUE 

18 mFST0P«mF2A( IP.K) /AACS 
CALL CHECK (J) 

60 TO (30,31) »J 

30 CALL 0 I A6T ( S) 

31 iE(SHFlaG) «HITE(6, 20000) 

20000 FORMAT U5h AN EXIT HAS HEEn maDE FROM SUHROUTINE STA2A ) 

RETLRN 

£NO 


ST?A 

13<> 

ST2A 

137 

ST2A 

1 3^ 

ST2A 

139 

ST2A 

1 AO 

ST2A 

i*i 

ST2A 

142 

ST?A 

143 

ST2A 

144 

ST2A 

1*5 

ST?A 

146 

ST?A 

147 

ST?A 

14fl 

ST2A 

149 

ST2A 

150 

ST2A 

151 

ST2A 

# # # # 4 

15? 

i • # # 

ST? A 

1*4 

ST? A 

155 

ST? A 

156 

ST?A 

157 

ST? A 

15* 

ST?A 

159 

ST 2 A 

160 

ST2A 

161 

ST?A 

• *•«< 

162 

>#*• 


ST2A 16A 
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Listing of Code (continued) 


SUH^OUT INF. bT At 

CSTAJ 

SATISFY CONTINUITY OF FLO* AT EXIT 
AFIER THE FI«ST 

REAL MF STOP 
LOGICAL PREVEH.SRFLAG 



STl 

001 


STl 

002 

OF ALL STATORS 

ST) 

003 

stator 

STl 

0 04 


STl 

005 


STl 

006 


C 


c 


c 


c 


COMMON 5RFLAG ******** 

COMMON /SNTCP/Gf AJ*PRFC* iCASE^PHFVERtHFSTOPf JUMP.LOPIN, ISCASEt ST 1 0 08 

1KN»GAHF , IPtSCRlT *PTRN*ISECT,KSTG f wTuLtHhOTOLfPPTOLf TRL00P*LSTGt ******** 

2LRRC • IBHC, I CHOKE , ISORH ,CHOKE fPTOPSl (6*6) ,PTRS2 (6,8) ,TRDI AGt SC ,RC * ST 1 ol 0 

30ELPRtPA5S*IPC,L0PC.IbS STl nil 

ST 1 nl2 

COMMON /SINIT/Hl (6*9) ,H2 (6,0 ) «l)Po (6*8) tOPl (6,0) ,DP1A(6,8) , DP2(6,8) ST1 nl3 
!• UP? A (6*8) tCSALF 1 (6,0 ) • ALF 1 (6,8) ,CS«ET2 (6,8) ,BE T2 (6 * A) , RAOSO < 6, 0 ) *ST1 Ol* 
2RA[)H[) (6,8) * AKN1(6 i 8) »ANN2(6,fl) , Ann 2A(6*8) ,ANNl A ( 6*8) ,U1 A (6*8) » ST1 nl5 

3U2 (6,8) f ANNO (6,8) * PT 0 < 6 • 0 ) , T T 0 ( 6 . 0 ) , AlP H AO < 6 , B ) ,PTP(6»8> STl M6 

ST 1 017 

COMMON /SINPUT/ RSL* T5L*PSLtGAMSLf ******** 

1PTPS*PT IN, TT IN, w A IR,F A IR # OEL C ,DE( L *DElA , A ACS* VCTDtSTGtSECT ,EXP n, STl 0 19 
2EXPP , EXPRE t RPM,PAF , 5 L I , STGCH ,FnD JOB • NAME ( 10) , TITLE * 10) tPCNH (6) ,♦**#**** 

3R V ( 6 , 8 ) ,GAM<6*0> * OR (6*8) ,DT (6,8) ,RWG(6*0> ♦ ALPHAS (6*0) ,ALPhA 1 (6,0) »******♦• 
4ETARS(6,8) ,ETAS(6*8) «LFS(6,8) , ANPO (6*0) •8ETAl(6,8)tBETA2(6,0) ,ET ARSTl 0?2 
5R(6fH) ,E TAR (6*0) *CFM (6,0) ,TFR(6,p) ,AND0H(6,8) , OMEGAS (6,0) ,A50 <6,01 STl n23 
6 , ASM PO (6,0) , ACMN 0 (6,0) ,A1 (6,8) *A^(6,8) t A3(6,H) » A4(6,0) *A5(6t0) , A6(ST1 0 24 
76 *H) ,OMf GAR (6*0) ,8Si A (6*8) ,8 SmP1a ( 6,8) , BCMN I A { 6 ♦ 8 ) ,01(6,8) ,B2 (6,B> STl 025 
8,83(6,8) ,04(6*8) ,85(6*8) *86(6,8) , St STh I (8) ,RERThI ( 0) STl 026 

STl 027 

REAL *0 ST 1 °? 0 

COMMON /SSTAOl/CPO (8) * PSO (6,8) ,V0 (6*8) , TSo (6* STl 029 

10) ,VUO (6,8) «V20 (6,8) ,RHOSO (6,0) ,PSl (6,8) ,*GT1 (8) ,TA1 (8) »*G1 (6,8) , STl 030 
2 CPORi (6,8) , S I (6,8) , CRl(8>*PHll<6t0)fTSl(6,»),Vl(6,8)STl 031 

3.RHCSI (6,0) , ALF1E (6,8) ,VUi (6*0) *VZl (6,8) ,M0 (6*8) ,WGT0 (8) *WGO (6,0) ******** 

STl n33 

REAL M2A,MF2A STl 

COMMON /SSTA2A/wG2A (6*8) ,*<5T2A (8) ,VU2A (6,8) , VZ2A (6,8) ,PS2A (6,8) , STl o35 
1 ALF2 A (6,8) , T T2A (6,8) , P T2A ( 6 , 8 ) , UB AR ( 0 ) ,PTBAR(0) ,STTO (8) *SPTO (8) , STl 036 
2M2 A (6,8) ,MF?A(6*8) ,CP<cA (0) , V2A (6,0) , TS2A (6,8) ,TAS(8) ,PAS<0) , GAM$(BSTl o37 


3) *CPS(8) tDELHVO (6*8) VRAM (0) 

C 

DIMENSION WGTIC(B) *LCl (8) *FFA1 (6,8) 

C 

c 

IF(SRFLAG) WRITE (6,10000) 

10000 FORMAT (44H AN ENTRY HAS BEEN MAOp IN SUBROUTINE STA1 ) 
KsKN 


STl 039 
STl 040 
STl 0 A 1 
STl 042 
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Listing of Code (continued) 


J»1 

SCRITaO.Q 
PTR*0*1 • 

WR1*R*G< 1 #K ) /H*G <5tK- l ) 
wR*K#G {?_% K) /R*G<5tK-l> 
00 1 I*1*ISFCT 


mGO ( I tK) =WR1*"G2A < I • K • 1 ) 
WGl (ItK)*WR*wG?A<ItK-l) 


ALPMAO ( I f K) * ALF2A < I *K- 1 ) 
PSO(ItK) * P$2A C I • K — 1 ) 
VOU*K) * V2 A ( I t K- 1 ) 


TS2A ( I *K-1 ) 
VU2A ( I *K- 1 ) 
VZ2A ( I tK-1 ) 


TSOUfK) a 
VOOdtK) ■ 

VZ 0 d t K ) « 

HO(I»M ■ 

CONTINUE 

CPO (K) *CP?A (K-l ) 

WGT 0 (K)aWWI#wGT2A(K-l) 
WGH <K)*wR*wGT2A(K-l) 
I«IP 


ID*- 1 

*<• Id GT 1 C ( K ) * 0 • n 
* - tCl (X) =o 
: IF < ICHOKt ) 17«17«16 

17 IF t LOP IN) 1ft. 18, 16 
1TB IF(GAMF)2,?.3 

2 TA1 <K) a*9S*TT0 ( IP»K) 

CALL GAMMA <PT<MIPttOilAl<K)fFAlH.*AlHtGAM(2tKn 

3 FFA1 ( I « K ) aWGl ( 1 *K| *SQMT < YTO ( I ,K ) i/t]44**PT0(ItKl * ANN 1 ( I *K ) 

1 *CSALF 1 ( I,K> ) t 

CALL PRttTlO(FFAl(I*K)fGAM(2,K)tHV<2*K> tPTOPSl ( I *K) fPRTOL) 

16 CALL FLOW II!) 

IF (PMFVtW) GO TO 25 
WGT1C (K) *wGT 1C (K) ♦wGl U «K) 

L*1 

IF <Pf0PSl ( I ,«> .LE.PTCPS1 (IP,K) ) L»I 
IF < 1SECT-I > 7t 

4 I s I ♦ I D 
IF(I)5*5»6 

5 T 0* 1 
1*1 P* ID 

6 L s 1 • 1 0 

psi ( I #k) =psuLtK j ♦float < inj • n>pu«i (L*K)«ihi(i.k)*hi(l«k))/?. 

pTOPSl M *K)aPTo < I tK) /PSH I *k) 


GO TO 16 

7 IFUC1 <N) )B.8*9 

8 LC1 (k) * 1 


ST 1 043 

ST I 044 
ST 1 045 


ST 1 

046 

ST 1 

047 

ST 1 

04fl 

sn 

049 

ST 1 

050 

STl 

o51 

su 

052 

STl 

o53 

ST 1 

054 

STl 

• ••• 

055 

• *** 

• ••» 
• *** 

STl 

*#** 

**** 

057 

STl 

058 

STl 

059 

STl 

060 

STl 

061 

STl 

062 

STl 

063 

STl 

064 

STl 

065 

ST) 

066 

STl 

# # # # 

067 

STl 

069 

STl 

070 

STl 

o7 1 

STl 

o72 

STl 

073 

STl 

074 

STl 

075 

STl 

076 

STl 

o77 

ST) 

078 

STl 

o79 

ST) 

080 

STl 

081 

STl 

n82 

STl 

083 

STl 

084 
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Listing of Code (continued) 



EX»G4M (2.K) / (Ga« (2,K)-1 , > 


sn 

005 


CALL PH1M(EX,ETAS(L.K) tPHlX,PBCB|T> 


ST 1 

086 


PRUPa PTOPSl (IP«K)«PBCR1T/PT0PS1 (|. »K) 


ST1 

067 


!• 1 1 •♦PWTOL) 


ST 1 

000 


pRLOwa 1 . 0 


ST 1 

009 


GO TO 10 


ST 1 

o90 

9 

LC1 ( K ) »LC 1 ( K ) ♦ 1 


ST l 

091 

10 

L * I9HC ♦ 1 


5T1 

092 


IF(IChokE.EQ.L) ptopskip.m a PRUP 


ST l 

093 


IF ( »GT 1 (K)-mGTIC(K) ) 1< .15*11 


ST 1 

094 

n 

PRLU^aPTOPSl ( IP.K) 


ST l 

095 


GO TO 13 


ST 1 

096 

12 

PRUPaPTOPSl ( IP.K) 


ST 1 

097 

13 

WE»1.-WGT1 (K)/wGflC(K> 


ST 1 

090 


J«J*1 


ST1 

099 


IF t j-32 ) • 22 . 22 


ST 1 

100 

29 

I F ( ICHOKt-L > 30.31.30 


ST 1 

101 

31 

SCRITa -WE 


ST 1 

102 


GO TO IS 


ST 1 

1 03 

30 

IF (LOPIN) 14.14,15 


ST 1 

1 04 

14 

PRE- (PTOPSl (IP.K)-PTBFO)/PTOPS1 ttP.K) 


ST 1 

105 


IF (AdS(PRE(-PRTOL)21»21.27 


ST 1 

106 

21 

CONTINUE 


ST 1 

107 


IF (AHS(wE)-aTOL) 15.15,20 


ST 1 

1 00 

27 

PTRKOaPTOPSl ( IP.K) 


ST 1 

109 


WGT1C (K) «0.0 


ST 1 

110 


I * I P 


ST 1 

lU 


I Da- 1 


ST1 

112 


TF ( SCR I T > 10.lB.15 


ST 1 

1 13 

19 

PTOPSl (IP,K)a.5*(PHL0w*PRUP) 


ST 1 

114 


IF (PTOPSl ( IP. K) ,LE.PKCR1T> PRPC"0. 


ST 1 

115 


GO TO lb 


ST 1 

1 16 

20 

SCRITa 1. 


ST 1 

1 17 

15 

TF(TMLOOP.EO.O. ) GO Tt 28 


ST 1 

1 10 

22 

WRITE (fe, 1000) K.PRUP.PRlOW.WE.PRCR IT. J.aGTl (K) .MGTIC IK) , (WG1 (L.K) , 

ST 1 

1 l^ 

1 L*l*ISeCT> 


ST ] 

120 


WRITE (6.1001) (PTOPSl (L.K) »Lal . ISFCT) 


ST 1 

121 

1000 

FORMAT (2X.2HK*I4. 2X.6H PRuP»F8 .5 , 2* . 6HPRL0WaF8 , 5, 2X ,6h 

WE- 

5T1 

122 

1F8.5. 1X.7HPHCH1 TaF8.5»2X,2HjaI4/ 


ST 1 

123 

22X.6H wGT1«F8.3»2X,6h»6T1C«F9.3/ 


5T1 

124 

32X.6H wGl =6Ftt, 3 ) 


ST 1 

125 

1001 

FORMAT ( IX* 7HPTo^Sl«6Fe ,5) 


ST 1 

126 

26 

calc check ( j) 


ST 1 

127 


GO TO (23*24 ) fj 


ST 1 

120 

23 

CALL 0 I AGT ( 2 ) 


ST l 

129 


GO TO 25 


ST l 

1 30 

24 

CALL LOOP 


ST 1 

1 31 
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Listing of Code (continued) 


25 inSWFLAG) wBlTE (6*20000) 

20000 FORMAT ( AbH AN EMT HAS BEEN MADE F^OM SUBROUTINE STA1 ) 
RETURN 
END 
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Listing of Code (continued) 


SUBROUTINE flvHALL 

covrall 

PURPOSE IS TO CALCULATE 
AFTER FLOW ITERATION IS 


stage PERFORMANCE VALUES 
cOMPLETEn Through the last stage 


OVLL 

OVLL 

OVLL 

OVLL 

OVLL 

OVLL 


noi 

002 

003 

oO* 

005 

006 


REAL HF5TOP 

LOGICAL PREVE«tSRFLAG 

COMMON SRFLAG *t*ft 

COMMON /SNTCP/G«AJ«PRPC< ICAsE.PRfvER >MF STOP. JUMP, tOPIN,ISCASE< OVLL 
1 KN,GAMF»IP,SCHIT,PTRN«IS£CT,KSTG.wToL.RHOTOl«PPTOL»TRLOOP,LSTG, OVLL 
2LBRC»lBHC,irHOKE, ISORR.CHOKE.PTO pSI (6,8 I .PTRS2 16,8) .TROIAG.SC ,RC. OVLL 
3DELPR,PaSS.IPC,LOPC.ISS OVLL 

OVLL 

COMMON /SINIT/Hl (6*8) *H2(6.8) ,DPo(6,8) .DP 1(6*8) ,OP1A(6,0) ,0P2 <6 , 8 1 OVLL 
1 »OP 2 A (6,8) ,CS*LPl (6,8 > ,AlF 1 (6,8) ,cSufcT2 (6,8) ,BET2<6.0) »RA0S0(6,8) .OVLL 
2RAORO (6,8) , ANNI (6,8) ,*NN2(6 .B) ,Ann 2A (6.8) ,ANNl A (6,8) ,U1 A (6.8) , OVLL 
3U2 (6,0 ), ANNO (6,8) ,PT0 (6,8) ,TT0 (6,8) , AI.PHA0 (6,0) ,PTP(6»0) OVLL 

OVLL 

COMMON /SINPUT/ RSL,TSl,PSL,GAMSl , *««*■ 

1PTPS.PT IN,TTIN,«aIR,F a IR,0ElC, DELL *0ElA, AACS.VCTO.STG, SECT, EXPn, OVLL 
2EXPP.EXPHE. RPM.PAF ,SLI ,STGCH,fnOjOR.NAME ( 10) .TITLE (10) »PCNH(M ,•*****•* 
3RV (6,0) , GAM (6,8) ,0R(6*8) ,OT (6.8) ,RWG(6»8) .ALPHAS (6,8) * ALPHA 1 (6, A) .**•***•* 
4ETARS(6,8),ETAS(6,8),CFS(6,fl) ,ANp0(6«8> ,8ETA1 (6.8) .BETA? (6,0) .ETAROVLL 
5R(6.B) ,E TAR (6.8) ,CFR (6 , b) , TFR (6 , a ) ,ANDC fl(6.8) .OMEGAS (6,0) ,AS0 (6,8) OVLL 
6.ASMP0 (6.0) , ACMNO (6,e> ,A1 (6,8) ,Ap(6,8) ,A3(6,8) ,A4(6,B> ,AS<6,8) , A6IOVLL 
7a »8) . OMEGAR ( 6 • H ) ,8S1A (6.8) .RSmPIa (6.8) ,HCMNIA(6,0) ,B1 (6,8) ,82 <a, 8) OVLL 
P,B3(6,8) , HA (6 *8) .85(6*8) ,86(6,8) .sESThI (B).RERThI (8) OvlL 

OVLL 

REAL mo OVLL 

COMMON /SSTaoI/CPO(«) t PSO (6, 8), VO (6*8) ,TS0(6*0VLL 

18) *VU0 (6,0) ,VZ0 (6.8) »MHOSO (6,8) *PS 1 (6,8) *WGT1 (8>»TA1(8)»WG 1(6.8). OVLL 
2 0P0H1 (6.8) ,SI (6,8) . CP) (8) tPHIl (6,8) ,TSl (6,8) ,V1 (6,8)0VLL 

3.RH0S1 (6,8) , ALF IE (6,8 ) *Vul(6.8)»vZl(6.8),M0(6*8) ,wGT 0 (8) twGO (6,0) •*****•• 

„ OVLL 633 

REAL mria 0vlL 

COMMON /SSTA1 A/VU1A (6«8) ,«G1A (6,A) ,wGTl A (8) ,VZ1A (6tB) • CP1AI8), OVLL 
1PS1A (6,8) ,RU1*(6,0) ,RlA(6.8) ,«ETl A (6.0) ,RI (6,8) . TTRlA (6.8) ,PTR1 A ( 60VLL 
2 , 8 ) • MR 1 A ( 6 , A ) , TS 1 A ( 6 , 8 ) •••• 


008 

009 

010 

011 

012 
013 
01* 

015 

016 
017 
• •• 

019 


022 

023 

02 * 

025 

026 

027 

028 

029 

030 

031 


03 * 
035 
0 36 


COMMON /SSTA2/V2(6,H)«TTR2(6«A),pTR2(6»8) *WG2 (6,8) ,WQT2 (8) , TA2 ( A) »OVLL 030 


1 PS2 ( 6, 8 ) »PM 12 (6 , 8 ) OVLL 039 

C OVLL 0*0 

REAL MR2.M2 ,MF2 OVLL 0*1 

COMMON /SFL0»2/fS2 (6,6) «CP2 ( 8 ) ,R?( 6 , 8 ) *HH0S2(6,8) , BET2E (6,8) ,RU2(60VLL o*2 

1,8) , VU2 ( 6 , 8 ) , 0 P 0 R 2 ( 6 .e) ,VZ 2 ( 6 , 8 ) ,mR2(6*8) ,MF2(6.8) , M2 (6.8) OVLL o*3 

C _ — - - ■ OVLL o** 

REAL M2A.MF2A OVLL 0*5 
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Listing of Code (continued) 


C 

c 


COMMON /SSTa 2 A/«G 2 A( 6 « 8 ) .»GT2A(B) ,VU2A(6.8) »VZ2A(6*8) »PS2A(6.8) , OVLl n*6 
IALF2A (6*8) .TT2A<6«8>*PT2A(6.8> *TT8*R <8) *PTBAR(8) tSTTO <8> «SPT0 (8) * OVLL nA7 
2 M 2 A( 6 .B> ,mF?A ( 6*8) fCP<A (8) ,V2A (6,8) ,Ts2A(6,8) ,TA$(8> ,PAS(8) ,GAwS(80VLL 0 A 8 
3) ,CPS(8) »OEl*'V0 (6,8) ,HVHAH(H) «***•*•* 

OVLL n50 

COMMON /SOVRaL/UELHT (6,H) ,OELhTI ( 6*8) »CELHSI (6,8) .DEHATI (6*8) , OVLL n51 
1ETATT(6*8) ♦£TATS(6*H) •ETATAT (6*8) OVLL 052 

OVLL 051 

REAL wiS(H) f^I«S(0) »MHiAR(8) tM«2T(tt) OVLL 054 

OIMENSION $A0<B>'SIS(fc)«StflA(R)«MR{6) *SA2(8) t ThCR< 8) *EPSI <0> tDELTOVLL o55 
1 (8) * SET ATT (8) i SET ATS { fc ) , SET A AT 18) ,SwRTP (8) »SN«T (8) *SOHT (8) *SETHC(BOVLL o56 
2 ) fSKRTHClQ) fSwRTE0{8) *SPTPT 2 ( 8 I *SPTpS 2 ( 8 ) *ST£TT 0 < 8 ) ,$TRTTo<0> *UPS<OVLL o57 
38 ) *(JPUP5 ( 8 ) ,UMS(8) t URLRS ( 8 ) ,VlS(p) *UPVlS(0> tURVlS<0) t PSIPS(8> *PSl w OVLL o5« 
4$ (ft ) * WXP ( ft ) »RXR ( 8 ) t DBt T AR ( 8 ) *DELmTS( 8) tUEHT I $ ( 8) *DEHSIS 1 8) »DHATIS(0VLL o59 


5ft ) «PAT?A (6*8) 


OVLL 061 


card deleted 


OVLL 063 


OVLL 064 


jFtSRFLAO) WRITE (6*10000) 

10000 FORMAT ( 44 m AN ENTRY MS BEEN mADf In SUBROUTINE OVRALL) 
STT 0 ( 1 )*TTIN 
SPT 0 ( 1 )«PTIN 


OVLL o65 
OVLL 066 


RGOaO.O 
T AO* 0*0 
p AO* 0*0 
GAmC*0 • 0 
OUPLP*0e0 
OURUH=0*0 
ODElhT *0 • 0 

5 E)*GAHSL/ (GAmSl -1 • ) 

DO 17 K=l f KSTO 
RGO*RGO*RvBAR ( K ) 

IF ( GAHF ) ) t 1 • 2 

\ TAO*TAO*TAS (K ) 
PAO*PAO*PAS<K> 

GO TO 3 

2 gAMO»GAMO*GAmS(K) 

3 E2sGAM U *K) / (GaM( 1 »K)*1 • > 
E3=GAM (StK) / (GAM (5»K) •! . ) 
E4*GAMS(N) / (GAMS(K)-l •) 
E 5 »l./E 4 
DELHTS(K)*0.0 
DEHTIS(K)*0.0 
nEHSIS(K)*0,0 

OH AT I S ( X ) »f) • 0 
DO 6 I e 1 * I SEC T 


OVLL 067 
OVLL 068 
OVLL 069 
OVLL 070 
OVLL o71 
OVLL 072 
OVLL 073 
OVLL 074 

OVLL 075 
OVLL 076 
OVLL 077 
OVLL 078 
OVLL 079 
OVLL 080 
OVLL o81 
OVLL 08? 
OVLL 083 
OVLL 084 
OVLL o 85 
OVLL n 86 
OVLL n 07 
OVLL 088 
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Listing of Code (continued) 


rw*»G2a u.k)/«gT2A(K) 

DELHI (1 .K)»OELHVn<I.K)*TFR(I,K> 

OELt-TI ( I tK)*CP$<K)MT0 (I ,K>*(1 .-IPT2AI I»KI/PTPll.lO >*«E5> 
ETATT(It«»=nELHT(I,K)/OELHTl <I*K) 

DELHSI tI«K)*CHS(K)*TT0(I,K)*(l.-(PS2ACl.K)/PTPU.K))«*E5» 

ETATSI I «K ) ■OELHT I I »K) /DELMSI ( I *K) 

PAT2A I I * K ) aPS2A ( I *K ) « ( 1 . « (GAM(5«K)-1 • I »ME2A(1 fK)»MF2A < I»K) 
1/2.)««E3 

OEMATI (I tK)BCPS(K)*TT0<I*K)*(l.-jPAT2AU.K)/PTP(ItKn««E5) 
ETATAT(ItK)BOELHT(ItK)/DEHATI ll«K) 

OELHTS(K)»DELHTS(K) 4fl«*UELHT ( I *K) 

OEHTJb(K) *nEHTlS(K) ♦R«*OELHTI (1 «K) 

oehsis (k) «nEt*sis (K) ♦r«*l)elm$i i i «k> 

DHATIS(M»OHATtS(K|.fi**DEHATl < 1 *K > 

6 CONTINUE 

13 SA0(K)«ALPHA0<ip,K)« 5J.2958 
SIS(K)«SI (IPtK)«57.29btt 
SBlA(K)»HETlA(IP,K)«5f.29b8 
SIR(K)«RI (IP,K)*57.29bH 
SA2(K)»ALF2 A(IPiK)*57429S8 

THCH(K). GAM(l«K)R(GAHSL»l*)*RV(i«K)*$TTO(K)/ 

1 <GAHSL*(tiAM(l*K) ♦l.)«t'Si_*TSL> 

EPS! (K) BtiAMSL* ( (GAM ( l «K ) ♦ 1 . | /2. ) *«E2/ (GAMI l *K ) • ( (QAMSL 
1 * 1 • ) /2 . ) ** E 1 ) 
delt (K)« sPln(K)/PSt 
SETATT tM«r)ELHTS(K)/OtMTIS(K) 

SETATS(K)»DELMTS(K)/CtHSIS(K) 

SETA AT (K)»OEtMTb(K)/OPATIS(K) 

c «•***•• caro oeleteo»*»*«*«** 

S»RTP(K) ■ WGTQ <K)*SORT (STTO IK) ) /sPTo (K) 

SNRT (K)»HPM/SURT (STTO(K) ) 

SOHT (K)«DELHTS(K)/STTfl IK) 

SEThC <K) «OELHTS(k)/ThCR IK) 

RThCR*SOkT I TrCR IK ) ) 

SNRTMC (K)=RPM/RThCH 

SKATED (K)«WGT0(K)*HTMCR*EPSI (K) /nELT (Kl 
SPTPT2 (k) «SPT0 (K) /PT0AR (K) 

SPTPS2 (k) »SPT0 (K) /PS2 (IP,K) 

ST2TT0(K)»TT8AR(k)/ST10(K) 

STRTTO(k)«TTR1AIIP.K)/STTOIk) 

UPS(K)«.5*(U1AIIP,K)*1.2IIP,K) ) 

UPUPS IK) «UPS (K) *UPS(K) 

0UPLP«0UPUP*UPUPS(K) 

URS(K) *.5« (UlA ( l.K)«CN I3.K) /OPlAll »K> *U2 1 1 .K ) -uR <4 ,K) /DP2 O .K ) ) 
URURS(K)*URS(K)«uRS(K) 

0URUH*0UHUR*UHURS IK) 

OOELHT.OUELHT*OELHTS(K) 
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Listing of Code (continued) 


IF (OElhSI (IRik> ) 1*.1*.15 

14 VIS(K)-1. 

GO TO 16 

15 V IS (K) -SORT (2.*0*AJ*CElhSI < 1 P * K > » 

16 UPV1SIK)»UPS(K)/VIS(K) 

URVIS(K)«URS(K)/VlS(K) 

PSIPS(K»«G**J*OtLMTS(K|/ (2.«UPUP«;<K» ) 

PSIRS(K)*G**J*DELHTS<K>/<2.*URIIRs(K) ) 

rxP(K)» 1.-(1.-<PS1 ( IPtK)/PTP(lP.K) )**E5)/U.-tPS2<IP»K>/ 
IPTP(IPiK) )**E5) 

VU1R«VU1 (1.K)*DP1U*kJ/0R<2.K) 

V1R«S0RT (VU1R**2*V/1 tl.M**2) 

PH i M» 1 , / ( 1 ,-VlH**2/ (2,*G*AJ*CP1 <K)*TT0 ( 1 *K t •ETAS ( 1 *K t ) I 
PTPS1W«PH1R** (GAM <2.K)/ (GAM(2,K)_1 . ) ) *PTP < l *M /PTO ( 1 t*> 
rXR (K J *1 •- ( 1 •" 1 1 »/PTPSlR) **E5t / <1 •” <PS2 C 1 *K> /PTP (1*K))**E5> 
D0ETAR (K ) * (MET 1 A ( 1 »K ( *8ET2E ( 1 *K) > *57*2958 
MlS(K) aVl ( IP*X) /SORT (0A M (2tK)*6*PV (2»K)*TSl(IPtK)J 
TS1R*TT0 (1 .K)-V1R**2/ (2.*G*AJ«CPi (Ml 
MlRS(K).VlR/SORT (GAM(2,M*G*RV t2,K)*TSlR) 

VUlARaVUl A (1 *R)*0P1A ( 1*K) /DR (3*K) 

V1AR*SQHT ( VU1 AR**2*VZ1A ( 1 «K) **2) 

TS1 AR*TT0 ( 1 «K) -V1AR**2/ (2.*G # AJ*rPlA ,K1 * 

RU1 AR*VUlAR-UlA ( 1 *K) *tR (3*K) /DPlA ( 1 •*> 

RlA«»SQMT<RUlAR**2*VZU(l*K)**2) 
mRIAR(K)*R1AR/S0HT (GAR (3,M*G*RV(3*K)*TS1AR) 


VU2T«VU2 ( ISHCT.X) *DP 2 ( ISECT.K) /Or (*** K ) 
V2T*SURT (VU2T**2*VZ2 ( l SECT *K)**2) 

TS2T»TS? ( 1SECT*K) ♦ ( V2 (I SECT ,K ) **?-V2T**2 ) / <2 , 
RU2T*VU2T*U?(ISECT*K) # OT ( 4 , k ) /DP? ( I SECT *K1 
r2T»SQRT (RU2T**2* VZ2 ( 1 SECT *K ) **2> 
mR2T (K)»H2T/SURT <GAm<4,k>*G*RV (4,K) *TS2T ) 


*G*AJ*CP2 < K ) » 


17 CONTINUE 

IF ( G AMF ) 4 * 4 • 7 
4 T AO* T AO/STG 
PAO*PAO/STG 


CALL GAMMAIPAO.TAO.F A 1R • V A IR «GAMft ) 
GO TO 8 

7 GAMO»GAmO/STG 

8 E0»(GAMO-l.)/GAMO 
RGO*RGO/STG 
CPO«RGO/EO/AJ 
K«KSTG 

OOEHTI * 0. 

ODEHSI * 0. 

OOHATI ■ 0. 

DO 9 1 = 1 • ISECT 
RW*4G2A < I,K)/"GT2A<KJ 
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Listing of Code (continued) 


OUEHTI ■ CPO*TTO ( I • i ) * ( 1 •« (PT2A ( i tK t /PTP ( 1 1 1 ) ) **E0 ) *RwaOOEHT I 
ODEHSI w cPO*TTO 1 1 * 1 ) • (1 ,• (PS 2 A ( t ,K ( /PtP ( I * 1 ) ) **E0) *RW*ODEHSI 
9 OOHA T I ■ CPOMTO < t . 1 > * ( 1 (PAT2A ( I *K) /PTP < I , 1 ) ) •*EO)*RW*OOHATI 
OPSIP*G*AJ*OOELMT/ <2,«0(JPUP> 

0PSIH«G«AJ*00EUHT/ (2.«OORUW) 

OWRTP>SwRTP ( 1 ) 

OWNEO«SwRTEO < 1 ) *$NRTMC (1 ) /60 . 

ONRTMC«SNRThC < 1 ) 

ONHT «SNHT ( l ) 

ODHT»ODELHT/TTIN 

optoT2«rt in/p Thar (kstC) 

OPTOS2«PTJN/PS?( IPfKS IG) 

OPTAT2«PT IN/PA T2A (IP.KSTG) 

OETAT F»OUELHT/OOEHTI 
OETATS*OOELHT/OOEHSI 
OETAATsOOELHT/OOHATI 

OETHC-OOELHT/TmCHU) 

PRIM OUT FOR STAGE PERFORMANCE 
I»1 

WRI TF <6.10001 NAME «T I TLE.ICASE.ISfASE 

1000 FORMAT « 1 HI .21X.29MNASA TURBINE ComPuTEH PROGRAM /6X.10A6/ 

1 MtlOAb/ 30*«bHCASE 13«1 h..I3/2BXi 1 /HSTAGE PERFORMANCE /19X 
27HSTAGE l.M./HSTAGE 2.6X.7HSTAGF 3.6X.7HSTAGE 4/ ) 

IF (KSTG-4) 19.19,18 

18 KS«4 

GO TO 2(1 

19 KSsKSTG 

20 WRITE(6.10M) (STTO(K) 

1001 FORMAT (2X.12H TTflAR 02* .F 1 0 . ) , 3X *F 1 0 . 1 . 3X.F 1 0 . 1 , 3X ,F 1 0 . 1 1 

WRITE (#..1002) CSPTO<K>tA«I.KS> 

1002 F ORm A T ( ?X * 1 2H PT0AR 02X ,F 1 0 . 7 , 3X . F 1 0 . 3. 3X .F 1 0 . 3, 3X ,F 1 0. 31 
WRITE <6. 1003) <WGT0|K>*K«1»KS> 

1003 FORMAT (?X,1?H *G ft2X,F10.3«3XtF10.3«3X.F10.3*3X»F10.3> 

WRITE (6. 1004) (OELMTS (A) .K»I ,«S) 

1004 FOHmaT (2X, 12M OEL H<?X ,F 1 0 . 7 • 3X *F 1 0 . 3. 3X .F 1 0 . 3 .3* »F 1 0 . 3 1 

WRI TE <6. 1005) <S"RTP (K) ,a*1 «KS) 

1005 FORMA T ( 2X « 1 ?H wMT/P2X,F10.i.3x*F10.3»3X«F10.3.3X.F10.3) 

WRITE (6.100b) (SOMT(K) » K* 1 * K S ) 

1006 FORMAT (2X, 12M OH/ 1 Tb AR02X ,F 1 0 ,s . 3x t F 1 0 .5. 3X .F 1 0 .5.3X .F 1 0 .5 > 

WRITE (6, 1007) (SNHT <K).K«I»KS> 

1007 FORMAT (2X.12H X/RT2X.F10.i,3XtFl0.3»3XtF10.3»3X*Fl0.3> 

WRITEI6.100H) (SET ATT (A) .K«I.KS> 

1008 FORMAT (2X, 12H ETA T T<?X ,F 1 0 .c , 3x .F 1 0 .5. 3X , F 1 0 .5. 3X ,F 1 0 . 5 ) 

WRI TE < 6. 1 009 > (SETATS(A) .K*I,KS) 

1009 FORMAT <2X, 1?H ETA TS2X ,F l 0 ,s , 3X »F 1 0 .5* 3X .F 1 0 .5.3X ,F 1 0 . 5) 

WHITE (ft. 1010) (SF.TAAT (X) *K*I .KS) 
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Listing of Code (continued) 


1010 F0R'AT(2X,12p FT* AT2X.F10.5»3»,F10.5.3X.F10.5.3X,F10.5> 

WRITE (6, 101 n (PTO^Sl ( IP.K) ,K = I »KS> 

1011 FORPAT (2X,12h PTO/PSl2X,Fl0.3.3x,Fl0.3,3X,F10.3f3X,F10.3) 

WRITE (6.1012) <SPTPT2<I< > »K«I.KS) 

1012 FORPAT <lX,13HPTrtARO/PlBAP2,2X,Flo.3,3x,F10,3,3X,F10.3»3X,F10.3) 
WRITE <6, 1013) ( SPTPS? < X ) .K»I.KS) 

1013 FORMAT <2X,12h PTBARO/PS22X.F10.3,3X,Fl0.3,3X,F10.3*3*«ri0.3) 

WRITE <6, 101*) < PTPS2 ( JP ,K > ,K=I ,KS) 

101* FORPAT <2X,12H PTw2/PS22X,F10.3*3X,FlO.3«3X»FlO.3,3*,F10.3) 

WRITE(6,101S)(ST2TT0<P).k«I,KS) 

1015 FORPAT < 1 x, 1 3MTTHAR2/T l8AR02x.Flo.5»3X.fl0.5,3X»Flo.5t3X«F10.5) 
WRITE<6,101A) (STRTTOl*) ,K«I,KS) 

1016 FORPAT <2X, 12pTTH1A/TTB AP02X,F10.A,3X .F 10.5.3* »P10,5«3*»P1 0*5) 
WRITE (6,2003) (WGT1 (K) ,K» I ,KS) 

2003 FORPAT < ?X, 12H *G 1 2X .F 1 0 ,3 « 3X ,F 1 0. 3.3X »F J 0 . 3» 3X.F 1 0. 3) 

WRITE (6.101?) (PS1 A (IP.K) .6= I.KS) 

1017 FORPAT <2X, 12H PS 1 A2X ,F 1 0 . 3 . 3x »F 1 0 • 3.3* «F 1 0 . 3, 3X.F 1 0 • 3 ) 

WRITE <6. 101B) tTTRl A ( IP.K ) , K»I ,KS) 

1 Ola FORPAT (2X, 12H TTP 1 A2X .F 1 0. ] ,3x ,F 1 0 , 1 . 3X ,F1 0, 1 ,3X *F 1 0, 1 1 

WRITE (6.1019) (PTR1A(IP»k)»K»I»KS) 

1019 FORpAT ( 2X, 12H PTP 1 A2X ,F 1 0 . 3 . 3X ,F 1 0 . 3.3* «Fl 0. 3.3X .F 1 0 . 3 ) 

WRITE (6,3003) (WQTI A (K) ,6=1 »KS) 

3003 FORPAT (2X, 12H *C- 1 A2X . F 1 0 . 3 , 3x ,F 1 0 . 3.3X ,F 1 0 .3.3* .F 1 0 . 3 ) 

WRITE <6, 1020) (PS2UP.P) ,K«1,K5) 

1020 FORPAT (?X,12h PS 22X,F10,3.3x,Fl0.3»3X,F10.3»3X,F10.3) 

WRITE 16,1021) (TTHAR(K) ,K = I ,KS) 

1021 FORPAT (?X,12h TTRAr 22X «F 1 0. 1 »3X»F 1 0 . 1 «3X «F 1 0. 1 »3X ,F1 0. 1 ) 

WRITE (6.1022) (PTBAR(k) ,k«I ,KS) 

1 022 FORPAT (?X,12p PTBAr 22X ,F 1 0 .3 . 3x ,F 1 0 . 3,3X ,F1 0. 3 »3X ,F 1 0 . 3) 

WRITE (6.4003) (WGT2 (K) ,K= I ,KS) 

*003 FORPAT (?X,]2H *G ?2X ,E 1 0 , 3 « 3x .El 0. 3* 3X »F1 0 . 3 »3X »F 1 0 • 3 ) 

WRITE(6,5003) (WGT2A (K ) ,6= I ,KS) 

5003 FORPAl (2X.12P wt 2A2X,F10.3,3X,F10.3,3X»F10.3»3X»F10.3) 

WRITE (6,1023) (UPVIS(K) »K* I ,KS) 

1023 FORPAT (2X, 12p uP/vI2X,F10.5,3x,Fl0.5,3x.F10,5»3X,F10.5) 

WRITE (6,102*) (URVIS (K) ,k»I »kS) 

102* FORPAT (2X, 12P UP/VI2X,F10,«,.3X,F10.5#3X,F10.5»3X»F10,5) 

WRITE (6.102S) (PSIPS(K) ,k*I ,KS) 

1025 FORPAT (2X, 12P PSJ P2X ,F1 0.5» 3X .F 1 0.5.3X »F 1 0.5.3X ,F 1 0.5) 

WRITE (6.1026) (PSIRS(K) ,6=1 »KS) 

1026 FORP AT ( 2X , 12H PSl R2X ,F 1 0 .5 , 3X ,F 1 0 ,5*3X ,F 1 0.5.3X ,F 1 0, 5) 

WRITEI6.102T) <RXP(K),K=I.KS) 

1027 FOrpat (2X»12h PX P2x,F10,5,3x,Flo,5»3x,F10,5,3X,F10.5) 

WRITE <6, 102P) (RXR(K) ,K«1.KS) 

1028 FORPAT ( 2X , 1 2h Px R2X ,F 1 0 .B , 3X ,F 1 0 .5.3X ,F1 0 ,5.3X ,F 1 0 .5 ) 

WRITE (6,1029) (SAO (K) ,Ka I ,KS) 

1029 FORPAT (2X, 12P ALPPA 02X ,F 1 0 ,3 , 3X »F 1 0 . 3.3X.F1 0 • 3.3X.F 1 0 . 3 ) 


OVLL 

»*•* 

229 

OVLL 

## # # 4 

231 

^ # 

OVLL 

233 

»##• 

OVLL 

• •••< 

235 


OVLL 237 

«••••••• 

OVLL 239 


OVLL 

»••• 

243 

i # # • 

OVLL 

• •••i 

245 

OVLL 

?47 

OVLL 

?4<> 

OVLL 

*••#4 

251 

»#*• 
i 46 * • 

OVLL 

# # # # < 

»••* 

253 

6 46 H # 

OVLL 

# # # # 4 

255 

t # # # 

OVLL 

257 

»##• 

OVLL 

• #*•4 

?59 

»«§• 

OVLL 

261 

i* jt* 

OVLL 263 
OVLL 265 


2-120 



Listing of Code (continued) 


WRITE <6.1030) (SIS (K) ,K«i,kS) 

1030 FORMAT (2X.12H I STATOr2X.F10.3*3x*f10»3*3X*F10.3*3X*F10«3) 
WRITE<6.1031) (SB 1 A (K ) tKsl.KS) 

1031 FORMAT (2X.12H BETA 1A2X ,F1 0.3.3X.F10 .3.3X.F1 0 .3.3X.F1 0*3) 

WRITE (6.103?) (SIR (K) ,K»I,kS) 

1032 FORMAT ( 2 X, 12 h I RCTOR2X,F10.3.3x,Fl0.3.3X.F10.3.3X,F10.3) 
WRITE <6. 1033) < SA2 ( K ) «K*I,kS) 

1033 FORMAT (2X. 12h ALPHA 2a2X,F10.3,3X,F10.3.3X.F10,3.3X,F10,3) 

WRITE (6. 103*) (OBETAR (6 ) ,K«I,KS) 

103* FORMAT (2X. 12H OHE I A R2X ,F 1 0. 3 . 3X .F 1 0 . 3. 3X .Fl 0.3.3X ,F10. 3) 

WRITE <6. 10 35> <MIS(K) ,K*I,KS) 

1035 FORMAT <2X, 12H M 12X ,F 1 0 .5 . 3x .F 1 0 .5. 3X »F1 0 ,5.3X,F1 0 .5 ) 

WRITE<6*1036) (MlRS(K) • K* I »K$) 

1036 FORMAT <2X, 12h Hi RT2x ,F 1 0 ,R . 3x .F 1 0 .5.3X .Fl 0 .5.3X, F 1 0 .5) 

WRITE <6. 1037) <MH1AUP.K),K«J,KS) 

1037 FORMAT (2X.12H HR 1A2X,F10.S»3X.F10.5.3X.F)0.5.3X,F10.5> 

WRITE (6*1038) (HRlAR(K)t K*I.KS> 

1038 FORMAT (2X.12H MRjA RT2x,F10.5.3x.F10.5«3x»F10,5.3X,Fln.5> 

WRITE (6. 1039) <MR2(IP,K) ,K»I,KS> 

1039 FORHAT (2X, 12h HR 22X ,F 1 0 . A . 3x , F 1 0 . 5.3X .F 1 0 .5.3X ,F 1 0.5) 

WRITE (6. 10*0) (MR2T (K) . KaJ.KS) 

10*0 FORMAT (2X,12h MR? T IP2X ,F1 0 .5 . 3X . F 1 0 .5. 3X .Fl 0.5.3X ,F1 0. 5) 

WRITEI6.1041) <SETHC<K).K«I.KS) 

10*1 FORMAT (2X, 12h E/TM CR2X ,F ) 0 . 3 . 3x ,F 1 0 . 3. 3X .F 1 0 .3.3X.F 1 0 . 3 > 
WRITE (6. 10*?) < SNRTHC ( X ) .K»I,KS) 

10*2 FORMAT ( ?X 1 1 ?H N/RT*- CR2X ,F 1 0 . ) . 3x ,F 1 0 . 1 . 3X .F 1 0 . 1 .3X , F 1 0 . 1 ) 

WRITE (6. 10*3) (SwRTEOIK) .K«I.KS> 

10*3 FORMAT (2X.12H wRThCRE/ 0?X ,F 1 0 . 3 . 3x .F 1 0 . 3. 3X .F 1 0 ,3»3X ,F 1 0 .3) 

IF (KSTG-KS)22.22.2l 

21 WRITE <6. 10*5) NAME. TITLE.ICASE.ISCASE 

10*5 FORMAT (1H1.21X.29HN ASA TURBINE COmPuTfR PROGRAM /6X.10A6/ 

1 6X.10A6/ 30X.6HCASE 1 3 • 1 H , . 1 3/2BX . 1 7HSTAGE PERFORMANCE /19X 

27HST AGE 5.6X.7HSTAGE 6 . 6X . 7HSTAGF 7 * 6X * 7HSTAGE fl/ ) 

1*5 

KS=KSTG 
GO TO ?0 

22 WRITE (6. 10**>OPSIP.OPSih,OOELhT,ohRTP.C6RT.OOHT.OPToT2. 
1OPT0S2,OPTAT2.OET*TT,CETaTS,OETaaT.OhnEO»ONRTHC.OETHC 

10** FORMAT (//31X.19H0VERALL PERFORMANCES .9HPSI p 

1F10.5. 5X.10HPSI R F10.5. 5X9HUEL H Fl 0.5/7X .9HWRT/P 

2F10.5. 5X 1 1 OHN/RT HO. 5. 5X9HDELH/TT INF 1 0 .5/7X . 1 0HPT0/PTBAR2 

3F9.5. 5X . 1 OHPTO/PS? F10.5. 5X9hPt 0/P AT2AF1 0 .S/7X .9HETA TT 
*F10 .5* 5X.10HETA TS F10.5. 5X9HETA TAT F10.5/7X.9HWNE/60D 
5F10.3. 5X» 1 OHN/RTH CR FlO.3. 5X.9HE/TH CR F10.5/) 

IF(SRFLAG) WRITE (6.20000) 

20000 FORMAT ( 1H1 »*5H AN Exit MAS AEEN MADE FROM SUBROUTINE OVRALL) 
RETURN 
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Listing of Code (continued) 


OVLL 


Listing of Code (continued) 


SUBROUTINE riAGT(M) OIGT flOl 

CDIAGT OIGT 002 

C OIGT 003 

BEAU MFSTOP OTGT nO* 

LOGICAL PREVEW.SOFLAG •**•**•* 

COMMON SAFLAG *••*•*•• 

COMMON /SNTCP/G.AJ.PRMC.ICASE.PRFVEW,mESTOP,JOMP,lOPIN.1SCASE. DI«T 006 

1KN.GAMF . IP,SC H l T .PTMN » ISECT. kSTG.mTOL.RmOTOl.PPTOL.TRLOOP.LSTG, OIGT 007 

2LBHC.IHHC.KHOKt. I SOBO, C mOKF.pt OPS 1 (6,0 » ,PTMS2(6,8> » TROI AG. SC ,RC » OIGT 0 08 

3DELPH.PASS. IPC.LOPC. I6S OIGT 009 

C OIGT 010 


COMMON /SIN IT/HI (6.8) »H2 (6.8) .DPo (b»B)«UPl(6»H).0PIA(6»8> , 0P2 ( 6 • A ) 0 1 GT ol 1 


C 


c 


c 


c 


c 


c 


1 ,DP2A (6.0) .TSALt 1 (6.8> »AlE 1 (6.8) ,cS0tT2 (6.8) • BE 12 (6. ft) *BA0S0 (6,8) .OIGT *12 
2RA0BD (6.8) « ANN) (6,8) ,*NN2 (6.8) , A,jn2A (6.8) .AnnI A (6.8) .U1 A (6.8) . OIGT 0)3 
31)2(6.0) .ANNO (6,0) »PT0(6.R).TT0(6,«) ,AlPmA 0(6,8) .PTP(6»B) OIGT nl A 

OIGT o IS 


COMMON /SINPuT/ HSl.TSl.PSL.GAMSi . *•••**« 

lPTPS.PTIN.TTIN.MAlH.FAIB.OELC.Ofci L »OEL a . AACS. VCTO.STG. SECT .E KPN, OIGT 017 
2EXPP.EXPHE. WPM.PaF.SlI.STGCH.fnOJOh.NAMEUO) .TITLEUO) .PCNM(^) ,•******• 
3RV(6,0) .GAM (6. 8) .OH 46.0) ,0T (6.8) ,Rt«G<6»0 ) «AlPmAS(6»8> .ALPmAI (6.8) ,****••*• 
aETAFS(6.B) ,FTA$( 6 » 0 ) « CE S { 6 « 8 ) ,ANno(6.B) .BETA1 (6.8) .BETA 2 (6.8) .ETAWOIGT o20 
5R(6«0 ),KTaR(6.H).CER{6,8> .TFB(6.b) »AN0UR<6»8> .OMEGAS (6, 8) • ASO <6. 8) 0 1 GT 021 
6 . AS V PO (6.8) .ACMNO (6.8) .Al(6,«).A?(6,tt).A3(6,8).A*(6.8)»A5(6.B),A6(0IGT *22 
76*8) « OmEGaR (6*8) • US I A ( 6. 8 ) .8SmP1a(6.8) .BCMNI A (6.8) .81 (6,8) .82(6.8) DIGT 023 
P,H3 (6,8) »HA (6 .8) ,85 (6 .0) ,U6 (6.8) .SEsThI (8) .HEBTmI (8) OIGT 024 

OIGT o?5 

REAL MO OIGT 026 

COMMON /SSTAOl/CPO (0) , PS0(6,8) ,V0(6»fl) .TS0I6.OIGT 027 

18 ) »VUO ( 6 , 0 ) < v/O ( 6 « 8 ) .MHOSO (6.8) .PS 1(6.0) ,wGTl (8), TA 1(8), MG 1(6. 8). OIGT *28 
2 OPOMI (6, 8), SI (6,8) » CPI (8) ,PHI1 (6.8) ,TS1 (6,8) ,V1(6,8)0IGT o29 

3.RHCS1 (6,8) « ALF 1 1 (6,0) «VUl (6.8) , VZ 1 (6,8) , MO (6,8 ) ,mGT 0(8> ,wGO (6,6) *****«•• 


OIGT o31 

REAL MR 1 A OIGT 032 

COMMON /SSTai A/VuIA (6*8) .mGIA ( 6.8) .wGTl A (8) ,VZ1 A(6.8) , CP1AI8), OIGT o33 
1PS1A (6,8) ,RU) A(6»8) ,R1A (6.8) .flETl A (6.H) ,RI (6,8) .TTH1AI6.8) ,PTR1A(60IGT 034 

2.0) . MW 1 a ( 6. p) »TSlA(6,t| *«**•*•• 

OIGT 036 

COMMON /SSTA2/V2(6,8) ,TTR2(6.8) ,PT«2 ( 6. 0 ) ,*G2 (6.8) ,*GT2(8) ,TA2(B) .DIGT o37 
1 PSZI6.0) .P6I2(6,8) OtGT 030 

OIGT 039 

REAL MR2.M2 ,MF2 OIGT 040 

COMMON /5FL0«2/TS2(6,fi) .CP2(8) »H?<6,8) .MHOS246.8) ,BET2E(6,8> .RU2(60IGT 041 

1.0) , VU2 (6,8) « UP0W2 ( 6 , t ) . VZ2 (6,8 ) , mR 2 ( 6 » 8 ) »MF2(6,0) ,M2(6«8) OIGT o 42 

OIGT 043 

BEAL M2A.MF/A OIGT *44 

COMMON /SSTa2A/mG2A(6»8) .mGT?A(H) ,Vu2A(6.8> ,VZ2A(6.8) .PS2AI6.8) , OIGT 045 
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1 ALE2 A ( 6 * £ ) *TT2A(6t0) *PT2A<6*8) fTTBARU) tPTBAR (8) fSTT0<8) *SPT0<8) * DIGT 046 
2M2A (6*8 ) *mF?A< 6*8) *CP*A (0) * V2A (6 # 8> tTS2A 16.0) tTAS(B) t PAS(0 ) *GAmS I 8Dt GT 047 


3) tCPS(0) •0ELHVD<8t8) *8VBAR<0) ******** 

C DIGT 049 

IF(SRElaG) wRiTt (6* 10000) ******** 

10000 FORMAT (44 H AN ENTRY HAS BEEN mAOf In SUBROUTINE DIAGT ) ******** 

wRITE<6tl000)NA*EtTITLE DIGT r>50 

1000 FORMAT ( 1 H 1 * 5X * 1 0 A6/6 X * 10A6/20Xt 29HNASA TURBINE COMPUTER PROGRAM/ OIGT o51 

1 3 1 X * 1 0h|)I AGN05T IC) OIGT n52 

IF (M.EU.0) GO TO 10 OIGT 053 

GO TO 1 10*19* 1 1 * l2t 1 3 > *m OIGT 054 

10 OO 1 4 K* 1 * KN OIGT 055 

WRITE <6* 1001 )**CP0 <K) «GAh < 1 . K > OIGT o56 

1001 FORMAT (9A* lMKtI5f9Xt3HCPO*ri0.3«9Xt5HGAPMAfFJO#5> OIGT o57 

WRITE <6. 1002) (PTPU*A) fl = lf tSECT) OIGT 058 


1002 FOH* A T ( 3 A * 6H PTPt6F10.3> 

WRITE <6. 1003) (PTO(I.K) * 1 = 1 * I SECT) 


OIGT 059 
OIGT 060 


1003 F0R*AT(3X,6h PT 0 * 6F 1 0 • 3 > DIGT 061 

WRITE (6. 1004) (PS0U,6) ,I»l f ISECT) OIGT 062 

1004 F0 W*aT( 3X*6R PSO * 6F 1 0 • 3 ) DIGT 063 


WRITE (6. 1005) ( TTO U • * ) • 1 = 1 * I SECT) 

1005 F0R*ATl3X,68 TTO*6F10.D 

WRITE (6.1006) ( r$0(lt*) • I a 1. I SECT) 

1006 F0H*AT(3X,68 T$0t6Fi0*l) 

WRI T E ( 6 * 1 0 07 ) (VOlI.K) t 1*1 • I SECT) 

1007 F OH* A T ( 3* * 6H V0*6F10.3) 

WRITE (6% 10 OH) ( ALPHA 0 If *K) • T*1 * I SECT ) 

1008 FORMAT l3A f 6H*LPHA0t6F 10*3) 

14 WRITE (6*1009) fSI (I«K)«laltIS£CTt 
IF (M.EU.O) GO TO 19 


DIGT 064 
DIGT 0*5 
DIGT 0 66 
OIGT 067 
DIGT 068 
OIGT 069 
OIGT 070 
OIGT 071 
DIGT 072 
DIGT 073 


GO M) l * 

19 00 20 K=i *KN 


DIGT 074 
DIGT n 75 


1009 F 0 R*AT< 3 X, 6 h $I* 6 Fi 0 . 3 ) 

WRITE < 6 * 1010 ) K.CPKK) f GAM ( 2 »K ) 

1 0 1 0 FOR* A T (RX* lHK* Ib, 9 X, 3 * CPI *E 1 0 . 3 . OX * 5 HGA 8 MA*F 1 0 # 5 ) 
WHITE (6*101 U (RSI (1 •*> *1 = 1* I SECT) 

1011 F OR* At ( 3 X * 6 H PSlt 6 Fl 0 * 3 ) 

WRIT E ( 6 * 1 0 1 2 ) (OMOH 1 (l*K)*I*l*IStCT) 

1012 F OR* AT < 3 X • 6 H DPQM 1 * 6 E l 0 • 5 > 

WHITE ( 6 * 1013 ) (TSlIIiM *I= 1 *ISECT) 

1013 FOR* A T (3X*6H TS1* 6^10,1) 

WRITE ( 6 * 1014 ) < *G 1 (I ** ) * I = 1 * I SECT ) 

1014 FOR* AT ( 3 X * 6 R *G 1 * 6 F 10 . 3 > 

WRITE (b* i n 1 S ) (VI U*K) * laltlSECT) 

1015 FOR* AT ( 3X f 6H Vi*6Fl0.3) 

WRITE ( 6 * 1016 ) ( ALE IE < 1 *N) * I * 1 * ISFC T) 

1016 F OR* A T ALF IE ♦ 6 *’ 10 . 3 ) 


DIGT 076 
DIGT 077 
DIGT n78 
DIGT 079 
DIGT 000 
OIGT 001 
DIGT 002 
OIGT 083 
OIGT 004 
DIGT 085 
DIGT 006 
OIGT 007 
OIGT o8R 
OIGT 089 
DIGT o90 
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20 
i 01 7 


n 

1018 

1019 

1020 
1021 
1022 
1023 

1024 
15 

1025 


12 

1026 

1027 

1028 

1029 

1030 

1031 

1032 

1033 

1034 
16 

1035 


{ * lF1 1 1 •*> tl«l « iSErT) 

FORK AT < jx , iSH AlFl*6Fl0.3) 

1 * (M#EU.O) GO TO 11 
GO TO 1H 
DO 15 Kal f KN 

WRITE(6.1018) KtCPU(«J «GAM(3,K) 

wu?Tc! (q t , ! hK,I5,9X ’ 4hCP14,F1(>,3 * 0X » 5MG * MMA *f>O.5) 
WHITE (6.1019) (HTH1A(1,k),1,i,I S fcT) 

FORMAT (3A.6H HTH1 A.6F10.3) 

WH I TE ( 6. 1 020 ) (P$1*(I«k)«I>i ( ISErT) 

FORMAT (3X.6H PS 1 A . 6F 1 0 . 3 ) 

WRITE (6.1 021) (ITRU(I.k) .I.i.ISFcT) 

F0HRAT(3X,6H TTRlA.6Fl0.il 
wHITF ( 6 « 1 02 ? ) (otilAIItK) 1 1 * 1 .ISErT I 
"GlA.ftF in.3) 

.I*I,isECt) 

HlA.ftF 10.3) 

( HE T 1 A ( 1 »x ) • !■! , I SFCT ) 

HtTlA.fiF 10.3) 

(HI ( I « K ) * I* 1 ♦ I SECT) 

HI.6F10.3) 

GO TO 12 


FORMAT (3X.6H 
wH l TE ( 6. 1 023 ) 
F0H*AT (3X.6H 
WHT T£ ( 6 « 1 02* ) 
FORMAT ( Jx < 6H 
WHITE (6.1025) 
FORMAT (3X.4H 
IF (M.FO.O) 


GO TO 1 6 
DO 1 (i K * 1 , K 6 

WHITE (6. 1026) K,CR2(K) *GAm ( 3 , k ) 

F0R6 AT (9A, 1 hK . ] 6 « 9X « 36 CP2 »F 1 0 . 3 «QX *5HG*HMA,F 1 0 .5) 
WHITE (6.1027) (HTH2( I »K) , 1*1 , ISEfTl 
HTH2.6F10.3) 

(HS2 ( I *6) *1*1 , IsECt) 

HS2.6F10.3) 

(IJH0H2 ( 1 * K) . 1*1 , I SF C T ) 

DH|)H2,6F 10.5) 

( T TR2 ( I *K ) * 1 * 1 , ISErT) 
rTH2.6FiO.I> 

(TS2(I.F) *1*1.1 SECT ) 

TS2.6F 1 0 , 1 ) 

(wG2(I.R) *1*1, ISECT) 

* 02 . 6 ? 10.3) 

(H2II.K), 1*1, ISECT) 

H2 * 6^ 1 0 , 3 ) 

(HET2E ( 1 .K) * 1*1 , I$f cT ) 

Bt T2E *6F i o , 3 ) 

(bET 2(I*K) .1*1. ISECT) 
t)E (2,6^1 0.3) 

GO TO 13 


FQH“AT (3X.6H 
WHITE (6. 1026) 
FORMAT (3X.6H 
WHITE (6.1029) 
FORMAT <3x.6h 
WHITE ( 6.1030) 
FORMAT (3X.6H 
WHITE (6.1031) 
FORMAT (3X.6H 
WHITEI6.1032) 
FORMAT (3X.6H 
WRITE (6. 1033) 
FORMAT (3X.6R 
wHI TE ( 6 . 1 0 34 ) 
FOR 1 * A T (3X.6H 
WHI TE (6. 1035) 
FOHHAT (3X.6H 
IF (h.eg.O) 


13 


GO 

no 


TO 

17 


16 

K*1 


KN 


OIGT nRl 
OIGT n92 
OIGT 093 
OIGT 09* 
OIGT o95 
OIGT n96 
OIGT o97 
OIGT 098 
OIGT 099 
OIGT 100 
OIGT 101 
DIGT 102 
DIGT 103 
OIGT 10* 
OIGT 105 
OIGT 106 
OIGT 107 
OIGT lO'fl 
OIGT 109 
OIGT HO 
OIGT ill 
OIGT U2 
OIGT 113 
OIGT 11* 
OIGT U5 
OIGT U6 
OIGT 117 
DIGT 118 
OIGT 119 
OIGT 120 
OIGT 121 
OIGT 122 
OIGT 123 
OIGT 12* 
DIGT 125 
DIGT 126 
OIGT 127 
OIGT 128 
OIGT )29 
DIGT 130 
DIGT 131 
OIGT 132 
DIGT 133 
DIGT 13* 
DIGT 135 
OIGT 136 
OIGT 137 
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1036 

1037 
1036 

1039 

1040 

1041 

1042 

1043 

1044 

1045 

1046 


W&1TE (fc* 103*> * *CP2A (K ) t<3A* 1 5 ^ 

FORMAT (9X#lHKtI5»9X*4^CR2A*F10 * 3 f 5HGAMMA* F10*5) 
WRITE <b. 1037) <PT2A(I*M * 1*1 .ISErTl 
PT2A.6F10.3) 

(PS2A ( I *M . 1 = 1 • I SECT) 

PS2A.6F J 0.3) 
t TT2A ( I *K) .1*1 * 1 SErT ) 

TT2A.«FI0,1) 

( TS2A ( I (M • 1 = 1 * iSErT) 

TS2A.6M0.il 
( «G2 A ( I iK) « 1*1 ♦ ISErT) 

*G2 A « 6F 10.3) 

( V2A<I»A> *I*1*ISECT) 

V2* « 6M 0 , 3 ) 

<A|_F2AJl.K) t I»1 » ISFCT ) 

ALF2A.6M0.3) 

(SI ( I . K ) *1 = 1. ISECT i 
SI .6M0.3) 

whi 1 1 ir>. i L’CPS (* * .GAMS (K ) _ lft 

FORMAT (<JX,1HC»I5«9X» 3FCPS.F 1 0 .3.9X »5HGAMMA*F10.5) 
WHITE (b. 104ft) (PTP (I.U) .1*1. ISECT) 

PTP.6M0.3) 

(PTO(I.U) .1*1. ISECT) 

PT0.6H0.3) 

(TTOtl.L), 1=1. ISECT) 

TT0.6M0.1) 


FORMAT (JX. 6 H 

WHITE (6*1039) 

FORMAT <3X.bH 
WHITE(6.103<)) 
FOHPAT (JX.bH 
W«1TE (6*1060) 
FORPAT (JX.bH 
WRITE (b. 1041 ) 
FQRpaT (JX.bH 
WHITE (b. 104?) 
FORPAT ( 3X » bH 
WRITE (b. 1043) 
FORPAT (3X.bH 
WRITE <b. 1044) 
FORPAT ( 3 X , bH 
WRITE (b. 1045) 


FORPAT (3X,bH 
WHITE 16.1047) 

1047 FORpaT ( 3X * bH 

17 WRITE (6. I 04H ) 

1048 FORPAT (3X.6H 

18 CONTINUE 

IF (SHFLaG) -RITE (6*20000) 
20000 FORPAT (1M1.45H AN EXIT HAS 


BEEN haDE FROM SUBROUTINE OIAGT ) 


RETURN 

END 


OIGT \38 
OIGT 139 
OIGT ) 40 
OIGT 141 
OIGT 142 
OIGT 143 
OIGT 144 
OIGT 145 
OIGT 146 
OIGT 147 
OIGT 148 
OIGT 149 
OIGT 150 
OIGT 1 51 
OIGT 152 
OIGT 153 
OIGT 154 
OIGT 155 
OIGT 156 
OIGT 1 S7 
OIGT 158 
OIGT 159 
OIGT 160 
OIGT 161 
OIGT 162 
OIGT ) 63 
OIGT 164 
OIGT 165 


OIGT 166 
OIGT 167 
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CINSTG 


SUBROUTINE InSTG 
3 

INTERSTAGE output 
number of SECTORS is THREE 
CALCULATED AnO printed 
NUMBER OF SECTORS IS MORE THAN 
VALUES AHE PRINTEC 


OR LESS, Hue ANO CASING VALUES ARE 
ThREE *ONLV SECTOR PlTCHLINE 


INST 

INST 

INST 

INST 

INST 

INST 

INST 

INST 

INST 


001 
002 
003 
0 0 A 

005 

006 
007 
00B 
009 


REAL MFSTOP 
LOGICAL PHEVEH.SRFLAG 

COMMON srflag j]” 

I NST 

/SINIT/Hi (6*8) »H2(6»fl) ,DPn(6,8) *0P 1 ( 6 » 8 ) , DPI A ( 6 . 8 ) ,DP2<6.8) INST 
ioAnon ,CSALF 1 .ALF1 (6.8 ) ,CShET2I6.B) ,BET2(6.8) .RAOSO ( 6,8 ) . INST 

,a * n2a( <> , 8> ,ANN1A(6,8j,U1A(6.8) , INST 

3U2 (6*8) .ANNO (6,8) »PT0<6.B),TT0(6.fl) .A lPhAO (6.8) .PTP (6.8) I NST 

common /sinput/ rsl.tsl.psl.gamsi , INST 

orlDo*c T io’ TTIN ’l! 4IR ’ F * IH ’ DELC,DEl ^ L.OELA.AACS.VCTD.STG.SECT.EXP n, 

2EXPP .EXPRE • RPM.PAF.SLI .STGCH.fnDjOh.NAME (10) .TITLE (10) .PCNH(6) 

3RV (6 .8) .GAM (6.B) .0R<6*B>,0T(6»8>,R*G(6*8) .ALPHAS (6.8) . ALPHA 1 (6. A) 

iEIf K !. <fe ^ , A ETAS ' 6 ;? 1 *? FS < 6 '»> .AN00(6.A) .BETAl (6.8) .BETA? (6.8) .ETARlNST 025 
5R(6t8) * E T AR { 6 * ft ) *CFR <t f 8) *TFR (6*p) « ANDOR (6*8) .OMEGAS (6*6) . ASO ( A „ A ) InST’ a?a 

6, ASMPO (6,8) . ACHNO (6,6 ) . A1 (6,8) , Ap (6,8) . A3 (6.8) , A4 (6.8) ! AS ( 6. B) t A6 ( I NST of? 
7 a*8) * OM£GAW (6*8) *»SIA <6 *8) *8SmPI A < 6*B) *ftCMNi A (6*8) .81 <6*8) *B2U*8> INST 028 
8*B3<6*B) *R4 <6*ft) *85 <6«8> *B6(6*8) f S^ST hI ( 8) * BERTH I (8) INST n29 


011 

012 

013 

014 

015 

016 
0 1 7 
018 

019 

020 
•••••••• 

INST 022 


REAL HO ijjf! 

/ ' SSTAO i /CPO,H > ‘ PSO (6,8) ,V0(6,8> .TS0(6 .InST 

18) *V(J 0 ( 6 *fl) * VZo ( 6 ♦ 8 > *^HOS0(6*fl) tPSl ( 6*6 ).**GT 1 (8) *TA 1 (8) ♦ WG1 (6*8) • INST 
3 DPQMl (6*8) *SI (6*8) t C* 3 ! (ft) *PHl 1 (6*8) *TS1 (6*8) * VI (ft, 8> INST 

3 * RHOS 1 (6*8) t ALF IE (6*8)* VU 1(6*8)* vZ 1(6*8)* HO (6*8) *WGTO (8) **G0 (6*6) *#****## 

REAL MR 1 A }JJfJ 036 

COMMON /SSTAlA/s/UlA (6*fl) • *G 1 A (6*fl) * *f GT 1 A (8) * VZ 1 A (6*8) * CP1A(8) # INST 

lPSlA(6*8)*MUlA(b*B)*PlA(6*8)*ftETiA(6*rt)*RI(6*8)*TTRlA(6*8) *PTRl A ( 6 INST 
2*8)*MR1A(6.8)*TS1A(6*6) ## *» 

COMVON /SSTA2/V2(6.8) ♦ T TR2 ( 6 ♦ 8 ) * P T M? ( 6 * 8 ) * *G2 (6*8)* G T 2(8) *TA2(fl) *INST 
1 P$2 ( 6 * 8 ) *PP 12(6*8) InST 

INST 


030 

031 

032 

033 

034 


037 

038 

039 


REAL. MR?*M? 


>MF? 


INST 


041 

042 

043 

044 

045 
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inst oar 

..... ..era. <■> «;“*;*•;*' rr»: . !«! I” 


3) fCP0(8) tnELHVr)<6*8) t^VBAP(0) 

COMMON /SOVR AU/UELHT <6,*> .OELHTI (6*8) .CELHSI <6,8> .DEHAT I ( b * 8) . 
lETATT(6*8)tETATS(6*B>*ETATAT<6*8) 


Inst n«> 4 
INST OSS 

Inst n s* 
Inst nS7 
Inst o*>b 
Inst o S9 
Inst n 60 
Inst nisi 


— SiM « 

«(7).STM?A(7).STTT0(7).LJ.JJ.K.STwG0(7).ST«Gl(7).STW61*a).ST G2( 

<j,ST*G2A<7) .SFLO0.SFU51.SFLOlA.SF, 0^*SFL02A«STPS1A(7> »5TT51Ai7) , 

<jSTPTH 2«7) ,STT1^(7> .SlPS2(7) tSTT«;2<T) j nST 

C ’ ' INST oar 

1O000 }«SV:a I^EnI^MS^EEk made IN SUBROUTINE INSTG > 

1 00 4 K-l.KSTG •••••••• 

SFLOO *0.0 •••••••• 

SFLOl *0.0 

SFLOlAsO.O ........ 

SFL02 *0.0 ••••••.. 


SFlOi?A»0*0 

inst 

n 7 1 

El* (GAMS (K) -1 . ) /GAMS 10) 

INST 

072 

E2*0A*n *k)/(Gam(1**)*1«> 

inst 

o73 

e3=(3AM (?*K) ✓ (uAH«2tM-I • ) 

inst 

074 

E4*G am ( 3tK) / <GAM (3fK) «1 . ) 

inst 

o 7S 

f 5 *G Am (** K) / <GA* (4t*>* 1 . ) 

inst 

o 76 

EfceGAi*(5*K)/(<3A*(5*K)*l#) 

inst 

o 7 7 

PtUOCATfc PITCHLlNE VALUES 

inst 

o 78 

J* I SECT ♦ 1 

inst 

079 

00 S 1*1*1 SECT 

inst 

oBO 

KS* J- I ♦ 1 

#***< 

»*#• 

ST*GD<*$)*wGO<KS-lfK) 


»#«• 

SfLOO *StL OA *sT-rGD(KS) 
STTTO | k S > = T T US-1 •< ) 

Inst 

r.'A) 
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STOPl) ( K :S) ai ‘05 (K 5-1 .ft ) 

srt»T(MK5)*prpiKS-i.K) J NST 

STA(.F(kS)*AlPha<)(KS-1.k)*S7.295H ??? 

STSI ( K s > *S l ( k S-l * K ) *5 t ,2958 

STVO (KS) *wo < K S- 1 tK) J S 1 

STVlO (KS) aVUO (KS-i ♦*) | NST 

Stv^o (KS) »V£0 (KS-l , k ) i NST °* 7 

srTSo(KS)*rso(K^-i f K) 5 N5T n ** 

stpso (ks> =psn (ks-i «k) 

STO€N0(^S)»l44.«srPS0US)/(STTS0,KS)*«V(i,n,, • ?**•!!** 

STMO (KS) »M0 (K5-1 ,K) **** *** 

STwei (kS) »*G1 <kS-1 «k) INSr o92 

SFLC1 *SFl 01 ♦sr*Gl (KS) ******** 

STOP 1 (<S) aftPl (KS-l.K) *** 

STALFE(KS) 3 «LFlt(KS-l. 10*57. 2958 }*|I 

c^w^i KS, " , *^ PH * 0<KS * l * K, ** LF ^ e,KS “ l * l ' n * ,57 *2 < »58 INST Ii95 

STVl < K S ) * V/ 1 (K S« l « K ) y >T 

STVU 1 <K$> aVlJl (KS-l *K> J N$T 

STV21 (KS) =>V7l (KS-l ,k) J n 3 7 n<,r 

STTSl (KS)-TSl (KS-l ,K) } N3T 9 1 ** 

STPS1 (KS)aPSl (KS-l.K) J"*J 

SrOF.Nl («S)*P»rOSl (KS-ltK) ' ’2? 

STmi (KS) *v l < kS-1,k>/(Sqbt (Gam <2«k) *G*B¥ ( 2.K) *TSl (KS-l »K) ) ) •••••••• 

ZS *-2.*ALFlE(KS-l,K) -1.S70796 , lMer 

Z«<nNC<Ki)*roS( 2S )*(SlN(ALPHA0<KS-l.K))*eOS(ALFlF(KSlNST 10* 

STwC-1 A (KS) *»G1A (KS-l ,K) InST 106 

sfloi a*sfloia«st»gia («S) ** 44 * 

STOP 1 A (KS)*nPlA (KS-l .K) * *** 

STPT«1(<S)»PTP1A(KS-1.K) III 

STTTP1 (kS)sT7P1A(KS-1*K) J *!! ’2" 

STBET1 (KS)«HETiA(KS-l.K)*57.2958 L| t ) ?„ 

ST»I(KS)=SI(KS-l,K). 5 7.2q58 ? 

st»ia(ks)*pia (ks-i,k) J*f; 

STRU1*(kS)sPU 1A(KS-1.K) , f, '}, 

SThpiA(kS)*mbU(kS- 1,K) J n ? 7 113 

STU1A(KS)*U1A (KS-l.K) J NST 114 

STPS1A(KS)-PS1A(KS-1,K) In5T 115 

STTS1A(KS)»TSU(KS-1,K) ******* 

ST*62 IKS)»wG2 (KS-l.K) *•**•*• 

SFL02 =SFlO? *sr*G2(KS) * . ** 

ST0P2(KS)-0P 2 (k5-1,K) .* *** 

STHE T2(kS)*H£T 2E (KS-l.K) *57.2958 {*!! J }* 

SBJM KS ) *H2*KS- } !k)^ S ”^* K ^ (ks — l.K) 1*57,2958 INST ]!« 

S»U2 (KS) *PIJ2 (KS-l .K) ! N !*I 1,g 

INST 120 
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Listing of Code (continued) 


s»j 2 (KS) «u2 (ks-1 »<) 

STPTH2(Kb)«prR2(KS-l.*> 

cks—i •« » /ptp<ks-i • ^ » > **ei > * u.-«ps2«ks-i •«>/ 

lPTP(KS-l.K) )<**E1) 

STOELH(KS)«DELHT(KS-ltK) 

STPS1 (KS)*2.' , u*Aj*DtLHT (KS-1 »K) / (Ul A (KS- 1 tK 1 *U1 A (KS-1 *K> 
1*U2<rS-1iK)*u2(RS-1*k> ) 

SETAT t (Kb)«ET ATT <KS-1»K) 

SET A T S (kS) »F T A TS (K5-1 *K ) 

$ETaaT ( Kb ) =F. TATaT ( KS- 1 1 r ) 

2 R z -?.*nET2fc (KS-1 iK I -1.570796 

InC (kS) =C 0S ( ZP ) • (SIN (bt T 1 A (KS-1 »K) ) *COS (BET2E (KS 

\\ *K> ) / (COS(HEtlA(KS-l **) ) *S1N(UET2E(KS- 
CPW(KS)«l.-(STRlAtKS)/SP2(KS) ) **? 

STPS2 (kS) *PS2 (KS-1 .R) 

STTS? IkS) *TS? (K b-1 «K) 

StWG?A <rS) =wG2a(kS-1»K) 

SEL02A»SFL0?A*STwG2A (KS) 

STPT2A (RS)*PT2a(KS-1«K) 

StTT2A (kS) rTT2A (KS-1 »R) 

STV?A!kS)»V2A(kS-I.K) 

STVL2A (Rb> aVU2A (KS-1 «K ) 

STALF2 (Kbi «ALt'2A (KS-1 «K) *57,2950 
$TMF 2 A (kS) « kF2A (KS-1 1* ) 

STVZ2A (KS) »VZ2A (KS-1 »K ) 

STPS2A (KS) *PS2A (KS-1,K) 

STTS2A(kS)*TS2a(kS-1.K) 

STM?A(KS)*M2a (KS- l.K) 

ST0EN2(kS)-1**.*sTPS2A (kS) / (STTS?A (kS) *H V (5.K ) ) 

5 CONTINUE 

IF ( ISEC.T-3) 3t3*6 

CALCULATE HUH VALUtS 
3 LJ*1 

jJaISECT*2 

l a l 

L a l 

STOP 0 ( L ) *0P ( 1 *K) 

Ri«r.P0 < i *kj /oh ( l «ki 
STOP 1 <L)*nR(2tK) 

R2=nPl ( I *K) /D« (2*K) 

STOP 1 A ( L > »DH ( 3 1 K ) 
r3*CP1 A ( I ,K) /OH (3.K) 

STOP 2 t L ) *0M ( A t K ) 

RA»CP2 l I tK) /OH (A.K) 

T ALF = S I N ( ALF 1 ( I * K ) ) »P3/COS ( ALF l ( T *K) ) 


Inst (2i 
inst 122 



inst 

1 23 

INST 

1?* 

INST 

125 

INST 

126 

INST 

127 

INST 

\28 

INST 

129 

INST 

130 

INST 

1 31 

-INST 

132 

INST 

1 33 

inst 

1 34 


«•«*»««« 

**#*< 
INST 
#*#*< 
« *««< 

!«#* 

139 

*#** 
»« «• 
»##* 

###*- 

**««’ 

INST 

»«#• 

»##* 

»««§ 

146 

inst 

147 

INST 

148 

INST 

1 49 

inst 

150 

inst 

1 si 

INST 

*««« 

152 

• «*» 
**#* 


inst isfe 
•••«»«•• 
inst is« 
Inst (59 
««•»«««# 
INST 1 6 1 
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Listing of Code (continued) 


R5»CP2 A ( 1,K)/0m<5«K) 

C STATION 0 STATOR Inl£T 

10 STTT0(U«TT0(I,K> 

STPT0(1)»PTP(I,«> 

STVZ0(L>*VZ0(1,k> 

STVUO (L) “VUO (I ,K)*R1 

STVO ( L ) *50PT < VZO < I »K ) • VZO ( I .K ) *St VUO <L > *STVU0 (U ) 

STTSO <L ) *T To < I *6 ) -ST VO ( L ) *ST VO (L) Z (2»*G*AJ*CPO (K) > 

STPSO ( L ) “PSO <I«K)*(STIS0(L1/TS0(T,K( >**E2 
STOENO (U «1*4.*STPS0 (L) Z (MV < 1 ,K)«sTTSo <L > > 

STAUF (U =A TAN? ( STVUO <L) *STVZ0<D 1*57.2958 
STSI (L)=STAI.F(L)-ATAn 2 ( S I N I RAOSn ( 1 • K ) ) *R 1 *C05 ( RADSO ( I »K ) ) ) 
1*57.2958 

AS0h»S«MT (GAM(1,K)*6*HV(1«K)*STTsO(L) > 

STmo id «STvn tut /asoh 

C STATION 1 STATOR EXIT 

STVZ1 (U»VZ1 Cl, A) 

STVul <U =VU1 ( I ,K> *H2 

ST VI ( L ) “SOR f (V21 ( I «K > *vZl (1 ,K)*StvU 1 ( |_ > *STVui III) 

STTS1 (L> *TTO < I »K )-STvl (L)*STV1 (C > / (2.*G*AJ*CP1 (K ) ) 

STPS1 ( L ) *PS1 (I,K)*($TlSl <L) ZTS1 (T,K) >**E3 
STDtN 1 (L) ■1 aa.* 5TPSI <L) /STTsl (L) /RV (2.K) 

STAUFE (L)«ATAN?(STVU1 »t> »STVZ1 (L> ) *57.2958 
S TOE LA (L) =STALF (C » *STALFt (L) 

ASlt-=S(iHT (Gap ( 2 »K) *6«hV *sTTsl (L) ) 

STMl (L)bSTVI (U/ASlM 

ZS *-2.*STA|.Ffc (L)/ 57*2958 -1.57n?96 

Z"I INC (L>* COS( ZS) « (STVUO <L> *STVZ1 <L > Z (ST VZO (L > *STVU1 (L > > ♦ 1 . 
CPS(L)b1.-(STV0 (L)ZSTvl < L > ) **? 

C STATION lA MOTOR tnLET 

VU1 Ah*VUU<I,K)*M3 
STRU1 A (L)*VIJ1AM-U1A(1,K)/H3 

STBET 1 (L) =ATAN2 (STRU1A (L).VZlA(I.K) >*57.2958 
T = TALF-(TALF/R 3 - SlN(RAOMO(I,K>)/COS(RAf)RO(I,Kin/R 3 
STRI (L) “STrtET 1 (L ) -AT AN2 ( T.I. >*57.2958 

STR1A(L>=S0MT<STHU1A(L>«STRU1A(L>*VZ1A(I,K)*VZ1A(I,K>> 

V1A1AH=VZ1A(I«K)*VZ1A(I«K) *VU1 AH«vU1 Ah 

OELTSH* ( V 1 (T,K)*Vl<l,K)-VlAlAH)/f 2 . «G* A j*CP 1 A <K ) ) 

TS1AH»TS1 (I.K)*OELTsh 
STTS1 A (l>»TS1Ah 

STMM1a(l)»STR1A(L>/SQhT(GAMO,K)og*MV(3,K)*TS1Ah) 

TTRSH«l.«STMRlA(L>*STi*RlA<L)*(GAu(3tK>-l.>/2. 

STTTM1 (L>*TS1Ah*TTRSh 
IF (MI (I. K) >2*2*7 

2 EXPHI.ExPn 

GO TO 11 
7 FXPP I=E *MP 


INST >82 
INST 183 
INST 184 
INST 185 
Inst 188 
INST 167 
INST 168 
Inst 169 
inst wo 

Inst i 72 
Inst 173 
INST 174 

Inst i76 

INST 177 
INST 1 78 
INST 179 

inst imo 
inst 181 
inst i «2 

inst i 04 

INST 185 


INST 107 

inst 108 

) I NS I 109 
INST 190 

inst i9i 

INST 192 
INST 193 
INST 194 
INST 195 
INST 196 
INST 197 
inst i98 
inst 199 
Inst 200 


INST 202 
INST ?03 
INST 204 
Inst 205 
INST 206 
Inst 207 
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Listing of Code (continued) 


n 


PtPSH. U .. (TTMSn-l .) «tTARHU ,K,.rOS(BI U.K) 

P51 AH*PS1 < I «K) * 1 1 .♦DEtTSM/TSl ( 1 ) > **E 4 
STPS l 4 ( L ) «PS 1 AH 
STPTR1 tU )*PSlftH*PTRSH 
STUI A <L) *Ul A ( I «* ) /H 3 

STATION 2 «OTOR rxIT 

VU 2 P* ^U 2 ( 1 * * ) 

SI*U?<U*''U2h*U2<I»K>/ H4 

STRKT2(L)*ATAN?iSHU2(l.) . V Z2 ( t . * ) 1 *57 • ?950 

cnflt T A ( l ) * S T H t T 1 ( L ) *5 I BETZ I L ) 

lRi(U-SUPTt5RU2(L)*SHU?CU»V/2(T,K>*V«a.K)) 

\/?V?H.VZ2 < I ,A>»VZZ< I t* > ♦VU2 m*VU2h 

DELrSM«<V?U.M*v2(I.M-V2V?H)/<?.*0*AJ*CP2CK>) 

TS 2*-* TS2 1 1 »* ) ♦f)ttTSH 

StTS? (L ) *TS ?h , *v*tcou» 

SMH?(L)»5R2(L)/SQRT(6*«(A.K)*0*PviA,^)*TS2H» 

SU2 It ) =U2 1 1 iK ) /pa 

P5£t-=PS? < | «k ( * ( f S2M/ T^2 < I •* ) I **ts 

r*a)«l , .-a^-‘S'PSlCL»/PTP(T.Kn**El)/(i.-<PS2H/PTPCI.K))«*El) 

l!psnU«?.-e*ij«STnELH(U/(STUlA(U-2*SU2(U**2) 

SETaTT (U ) *STU tt H tL) /CtLHT i (I • * > 

StTflTSlL»*STCtL H <t.)/CtLHSl U «* ) 

SET AAI tU) sSTUtL«<t) /CtH AT i U t*> 

cPH (U = l .-<ST*1A(L>/5*?<U )*•? 

StPT?A (L) -PT?a < I 
SIT T2A (L ) = TT2A ( 1 t* ) 

$TV?2A (L> *V/2A ( l *K) 

STVL?A ( L > -Vt:2 A ( 1 ** > * R - 

V 2 ApAr< = bTVU?A ( L > ## 2 *V^ 2 A < I ♦ * ) * ? 

e T A ( L ) s SOh T <V d A <? AH ) 

S^LF2(L)=A I AN?(STVu2A(L).VZ2A(t.K))*S7.29bH 

ntLTS2»tV?A(I.Kl**2-v2A2AH)/(?.*fi*AJ*CP2A<R)) 

i;;;?: !!■::$: : ~ E . 


INST 208 
INST 209 


STMF2A (L) *Sf*2A (L) *C0b (ST ALF? (L) /S 7 .29^8) 
k fiO TO 8 

v ALUtb 


Inst 

*#* 

?I0 

inst 

?\\ 

INST 

212 

INST 

213 

inst 

2l* 

INST 

215 

InST 

216 

INST 

217 

inst 

2l« 

INST 

219 

INST 

***** 

220 

INST 

**•* 

22? 

INST 

223 

««««•««» 

INST 

224 

INST 

225 

INST 

226 

INST 

227 

INST 

22* 

inst 

229 

inst 

230 

INST 

231 

INST 

• *»* 

232 

AjiA* 

**#♦•»** 

«««««»«« 

INST 

240 




IF 


TO 8 
IIP 


a.&r.n 

CALC'lLATt 

1 = I SEC T 

t*I SECT 

STDPO (L> »I)T ( 1 tK) 
PJaCPO ( I *K) /i: 1 ( 1 «*> 


INST 246 
InST 247 
INST P 48 

Inst ?49 
Inst ?5o 
INST 251 
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Listing of Code (continued) 


STOP 1 ( L ) “()T (2 *K ) 

R2»CP1 ( I »K) /OT <2,K) 

ST0P1A(L)»0T(3,K| 

R3>CPU(I,K)/OT(3«K) 

STDP2<L) 3 DT<A*K) • 

R*»CP2 ( I »K) /OT <*,K) 

TAtF»SIN(ALPHI*K) >«B3/C0S(AUF1 d,R) > 
H5*CP2A(I,K)/UT(5,K) 

GO TO 10 
6 LJ*? 

J J« I SECT ♦ 1 

8 CALL "OUT 

9 CONTINUE 

IF(SWFLAG) H.RITE (6i20000) 

20000 FORMAT (4SH AN E*IT HaS BEEN maOE FROM SUBROUTINE INSTG 
RETURN 
END 


INST ?S2 
INST ?53 
INST ?SA 
INST ?55 
INST ?56 
INST ?S7 
INST ?5B 
INST ?59 
INST ?60 
INST ?6 1 
INST ?62 
INST ?63 
INST 


INST ?65 
INST ?6 6 
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Listing of Code (continued) 


SUBROUTINE WOUT 

CwOUT 

C 

REAL HFSTOP 
LOGICAL P«EVEH*SRFLAG 


WOUT O01 
WOUT 002 
WOUT 003 
WOUT 004 


C 

C 

C 

c 

c 

c 

c 


COMMON /SnTCP/G* A J*PRPC* ICASE »PRFV£R *MF STOP .JUMP* LOPJN, ISCASE • WOUT 

1KN*GAMF.IP.SCHIT,PTHn.ISECT,KSTG.wTOL.«HOTOI..P«TOl»TRLOOP»LSTG, WOUT 

2LHWCtlBWC*ICHOKEfISORB f CHOKE*PTOPSl ( 6t 0 ) tPTWS2(6f8) *TROI AG *SC fRC • WOUT 
30ELP«tPASS* IPCtLOPC* iss W0UT 

WOUT 

COMMON /SINIT/Hl (0tB) «HZ 16*81 »DPp C6t8) tOPl (6t 8) *0PlAI6t8) • OP2 < 6 ♦ 6 ) WOUT 
l * DP2 A ( f> * 8 ) tCSALFl <6t8> tALFl <6*8) ,CSbtT2 (6*0) fBET2<6*8> iRA0SO(6,8> •WOUT 
2P A0 N 0 1 6 1 H ) • ANN1 (6t8) t ANN2 (6*8) t Ann 2A (6*0) • ANNl A (6*8)*UlA(6f8) « WOUT 
3U2 < 6 • B ) • ANNO ( 6 1 ft ) t P T 0 * 6 • ft ) t TTO < 6 . 8 ) *AlPhA0<6*8> *PTP<6*8) WOUT 


COMMON /SINPUT/ RSL*TSL*PSLfGAHSL* ^ 

lPTPStPTIN*TTIN f wAlR#FAlR f OELCfDELLtOELAt AACS*VCTOtSTG*SECT*EXPNt WOUT ft 17 
XPP ♦ ExPkt ♦ RPHtPAFfSLl • STGCHtFNOjOHf NAME ( 10) • TITLE UO) tPCNH(6) ••#*•***• 

3RV(frt8) * GAM { 6 * 8 ) • DR ( 6 ♦ 8 ) tOT ( 6 1 8 ) ♦ R*G ! 6 * 8 ) • ALPHAS! 6 18) * ALPHA 1 < 6 » A * ********* 
4ETARS(6t8) * FT AS ( 6 1 8 > • CF S < 6 • 8 > ♦ ANOO < 6 1 ft > * b£T A 1 ( £ .*8 ) tBE TA2 (#> 1 8 ) t|T A^OUT "f J 
5R ( 6 « 8 ) * E T AR ( 6 • 8 ) tCF«(€*ft) tTFR <6t«) tANOCH (6f 8) * OMEGAS (6 *8 ) *AS0 <6*8> WOUT 021 
6 « AS^PO (6f8) *ACMN0 <6#8) t A1 (6#R) • Ap 8) fA3 !6t8) t A4i (6tR) »A5(6»8) * k *i WOUT o22 

76*8) •OMEGAR (6*8) tBSIA (6t 8) * RSMP I A !8*8) tHCMNJA <6* 8) *8) <6* 8) *82 «6»0) *OUT o?3 
PfB3(6»8) t R4 ! 6 * 8 ) • B5 < 6 *8 ) *06(6*0 ) ,$EsThI ( 8) •RERtHl (8) WOUT 024 


REAL M 0 

COMMON /SSTAOl/CPO (8) * PSO (6*8 > * VO (6* 8) * TSO (••••• 
18) » V U 0 (6*8) * v Z 0 (6*8) .HHOSO (6*8) *PS 1(6*8) tWGTl (8>«TA1(8)*WG 1(6*8), •** 
? CPDHl<6*e)*SI(6,8>. cP 1<8).PHI1(6.0).TS1(6.8).V1(6,8)*** 
3.RH0S1 (6*8) * ALF 1 E (6*8) *VUl (6.8) *vZ 1 (6*8) *M0(6*8) *WGT0(8) *WG0(6*8) **• 


COMMON /SSTAlA/VUlA(6»8 ) *wG 1A(6*8) *wGTlA(8) *VZIA(6*8) * CP1A(8), ** 
1PS1A (6*8) *RU1A(6«8) *R 1 A ( 6 , 8 ) *flETl A (6* 8) *RT (6*8) ,TTR1A(6*8)*PTR1A(6** 
2,8) *MR1A(6.8) .TS1AI6.8) ** 

COMMON /SSTA2/V2 (6,8) *TTR2(6.8) *pTH2 (6*8) *WG2 (6*8) *WGT2(8> ,TA2(8) *** 
1 PS2(6»8) *PH2(6.8) ** 


REAL MR2*M2.PF 

COMMON /SFLOi*2/TS2(6*8) *CP2(8) «R?(6,8) «RH0S2(6*8) »BET2E<6,8) *RU2(6 ## 
1,8) *VU2<6*8) *0P0R2 (6*8 ) *VZ2 (6*8) ,mR2 (6*8 ) *MF2 (6*8) »M2 (6*8) *»* 


COmmON^/SST * 2 A/wG2A (6*8) ,*GT2A (8) ,Vu2A(6*8) *VZ2A(6«8) *PS2A(6*8) * •** 
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Listing of Code (continued) 


C 

C 


1 ALF2A<6,8) *TT2A(6.8) *HT2A(6.8) *Tt«AR<8> *PTBAR(8) • ST TO ( 8 ) *SPT0<8> . ******** 
2M2AI6.8) .mF2A (6*8) *CP«A(8> *V2A(6,8> .TS2A (6*8) *TAS(8) ,PAS(«> *GAmS ( 8******** 
3) *CP0(8) *OELH VO ( 6 * 8 ) ,HvBAH(8) •••••••• 


COMMON /SOVRAL/OELHT (6,8) .OELHTI (6*8) .CELHSI (6*8) * DEHAT I <6*8> t ******** 

1ETATT (6.8) *ETATS(6*8> *ETATAT (6*8) •••••••• 

WOUT n25 

COMMON STCPO(7),STMTO(7>,STAlf(7).STSI(7).STvO(7),STVUO<7). WOUT o26 

1STVZ0<7> *STTS0<7) .STPS0( 7 ) *STOENo(7l .STmo (7) .STOP1 (7) »STA|_FE ( 7) , WOUT 027 
2STDELA (7) . ST V 1 ( 7 ) *ST VL 1 ( 7 ) .STVZl <7> .STTS1 (7) *STPS1(7 ) .STOfNI ( 7) , WOUT 028 
3STM1 (7) *ZwI!NC(7) . CPS (7) .STOP1A (7) * WOUT o29 

4STPTR1 (7) .ST6ET1 ( 7 ) , S I B I ( 7 > , STRU ( 7) » S IRU1A ( 7) *$TmRU<7> *STU1A(7) *WOUT o 30 
5STOP2 ( 7 ) , STHE T 2 ( 7 ) .S08ETAI7) *SR2(7) *SRU2(7) ,SMR2(7) *SU2(7) *RX (7) , WOUT o31 
6ST0ELH(7> .STPSI (7) * SE I ATT ( 7 ) *SETaTS(7) .SETAATI7) *RZwINC( 7> • WOUT n 32 

7 (7) ,STPT2a(7) *STTT2A(7) *STV2A<7) *STVU2A(7) *•***•*«* 

PSTALF2I7) *STWF2A(7) .SlTTRl (7) ,STvZ2A<7) *STTS2A(7) *STPS2A(7) * STDEN2******** 
9(7) .STM2A (7) .STTTO (7) *L J* J J *K , STwGO ( 7 ) *STWGl ( 7 ) . STWG1 A ( 7 ) • STWG2 ( 7 ) ******** 
9.ST*G2A(7) .SFLOO.SFL01 . St LO 1 A , SF|. 02 . SFL02A.STPS1 A ( 7) ,STTS1A(7) , ******** 

9STPTR2(7) ,STTTR2(7) ,SlPS2(7) *STT«;2(7> ******** 


phint out for interstage o*ta 

IF(SMFLAG) wR I TE ( 6 * 1 00 00 ) 

10000 FORmaT (44H AN ENTRY HAS BEEN mADf IN SUBROUTINE WOUT > 

8 WHITE (6. 1000) NAME* TITLE* ICASE.ISCASE 

1000 FORMAT ( 1H1 ,20X29HNASA TURBINE COMPUTER PROGb AM/6X 1 0 A6/6X 1 0 A6/30X 
1SHCASE I3.1H.I3/24X23HINTER-STAGf PERFORMANCE//) 

WRITE (6*1 001 )K. < STOPO * I ) . I“LJ*JJ> 

1001 FORMAT (5X5HSTA 02X12hSTATOR InLEtI 0x5hSTAGEI3. 1H./4X6HDIAM 02X, 

1 6F 1 0 . 3 ) 

WRITE(6*1002) (STTTOd) *I»LJ.JJ> 

1002 FORMAT (lOH TT 0«2X,6Fl0.1) 

WRITE16.1003) ( STPTO(I) *I»Lj.JJ) 

1003 FORMAT (Ioh PT 0*2X,6F10.3> 

WHITE (6. 1004) ( STALF(l) *I»LJ.JJ) 

1004 FORMAT (lOH ALPHA 0'2x*6Fl0.3) 

WRITE (6* 1005) ( STSI (1) *I«LJ.JJ) 

1005 FORMAT (lOH I STATOB.2X.6FlO, 3) 

WRITE (6. 1006) ( STVO(l) ,I*LJ.JJ) 

1006 FORMAT (lOH V 0*2X*6Fl0.3) 

WRITE (6*1007) ( STVUO(l) *I»LJ.JJ) 

1007 FORMAT (lOH VU 0*2X,6F10.3) 

WRITE (6. 100P) ( STVZO ( 1) . I*LJ. JJ) 

1008 FORMAT (lOH VZ 0*2X*6Fl0.3) 

WHITE(6.1009) ( STTSO ( I) . 1*LJ« JJ) 


WOUT 036 
WOUT 037 


WOUT o38 
WOUT 039 
WOUT 040 
WOUT 041 
WOUT 042 
WOUT 043 
WOUT 044 
WOUT 045 
WOUT 046 
WOUT 047 
WOUT 048 
WOUT o49 
WOUT o50 
WOUT 051 
WOUT 052 
WOUT 053 
WOUT 054 
WOUT fl55 
WOUT o56 
WOUT 057 
WOUT o58 


1009 FORMAT (lOH TS 0»2**6Fl0.1) 

WRITE(6.1010) < STPSO(I) *I«Lj.JJ) 

1010 FORMAT (Ioh PS 0«2X*6Fl0.3) 


WOUT 059 
WOUT 060 
WOUT 061 
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Listing of Code (continued) 


1011 

1012 

1999 

2000 
2001 
2002 


2003 

11013 

1013 

101* 

1015 


1016 
1017 
1 0 IB 

1019 
106 * 

1020 
1021 
1022 
1026 

2999 

3000 

3001 


3002 


whi te < 6* ion) 

FORMAT (10H OENS ft ’2* 1 6E 1 O •“> 

WHITE (6. 1012) < STMOU) 
format (low M o*2x*6no* 5> 

WHITE (6* 1999) < CPO (K) *I=LU. J J * 

FORMAT (10H CP 0 X *6t 1 0 *5) 

WR1TE(6*2000)«RV(1*«)»I*LJ*JJ) 

FORMAT (10H RO 0.2»,6F10.3) 

WHITE (6*2001) 

FORMAT (10H 6 aM 6 0.2**6610.5 

WHITE (6.2002) (HwG(l.A) 

FORMAT (10H RRG 0.2X.6E10.5) 

IF(ISECT.LE.3)GO 70 1 013 

$I!} 6 uS"’' flo. ....... 

WRlTfct6.101A)<STALEE(l).I*LJ.JJ) 

FORMAT (IftH ALPHA 1»2«,6F 10.3) 

WRITE (6. 10 IS) (STOELAU) *T=LJ*JJ 
FORMAT (10H OEL A.2X.6E10.J) 

STVUl (I) «I*LJ.JJ> 

VU i»2*.6F10.3) 

STV/1 ( 1 ) » I=LJ* JJ> 

VZ l» 2* *6Flft.3» 

STTS1 (I) .I*LJ.JJ) 

TS 1*2*. 6F 10.1) 

STPS1 (1) »1»LJ*JJ1 
FORMAT (10H PS 1*2*. 6F 10. 3) 

WHITE (6* 1020) (ST0EN1 

FORMAT (10H UENS 1.2X.6F10.5 

WHITE 16.1021) < STM1(1).I»LJ.JJ 

format uoh « i : 2X : 6 f 1 , 0 ^ 

WHITE (6. 1022) ( Z»I !NC (l> • !*U* 

FORMAT (10H Z" I lNC ’ 2 

WHl TE (6 » 1 026 ) ( CPS(1)*I=LJ.JJ 

FORMAT 110H CP 5*2**6f10.6) 

WHITE <6.2999) ( CP 1<« ) * I -L J * J ^ 

FORM AT 1 1 OH CP 1.<X*6F1(1.6> 

WRITE (6.3000) <RV (2**<) *I*»-J*JJ) 

FORMAT (10H HG i! 2 i *?V °i*l) 

WRITE (6.3001) (GAM(2.«> 

FORMAT (10H GAMG 1»2*.6F10.5) 

WHITE (6.300?) (H.G12.M .I=LJ.JJ 
FORMAT ( 1 OH h*G i.2x,hF10.5) 


FORMAT (10H 
WHITEI6.1017) ( 

FORMAT l l oh 

WHITE (6* 101H) < 
FORMAT (10H 
WHITE (6*1019) ( 
FORMAT l l OH 
WHITE (69 1064) ( 

FORMAT ( 1 OH 


wOUT 062 
WOUT a 63 
WOUT ft64 


WOUT 067 
WOUT a*R 
wOUT n69 
WOUT 070 
wOUT o71 
WOUT a72 
WOUT o73 
WOUT 074 
wOUT n 7S 
wOUT o76 
WOUT a77 
WOUT a 78 
WOUT a79 
WOUT aAO 
WOUT AH 1 
WOUT AR? 
WOUT AA3 
WOUT aR 4 
WOUT oHS 
wOUT a 86 

WOUT A HR 
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Listing of Code (continued) 


IF(ISECT.LE.3)G0 TO llOOO 
WRITE (6.3003) ( STwGl ( l ) . I «L J. JJ) .SFLOl 
3003 FORMAT (10H wG 1 » 2 X ,6F 1 0 ,5.?X» UmTOTAL FLOW .F10.5) 

11000 wRITE(6.1000)NAME.TITlE.ICASE.ISrA5E 
WRITE (6.1 OHeiK, < STOP 1 * ( 1 ) . I»LJ»JJ) 

1028 FORMAT (4X6HSTA 1 A2X 1 16R0T0R INLET l 0X5HST AGE 1 3. 1H./3X7H0I AM 1A2X, 
16F10.3) 

WRITE (6. 1027) ( STPTR I ( I ) . I*LJ.JJ> 

1027 FORMAT (10H PTR IA.2X.6F 10. 3) 

WRITE (6. 1029) (STTTR1 (1) .I»LJ.JJ) 

1029 FORMAT (10H TTR 1 A *2X , 6F 1 0 . 1 ) 

WHITE (6. 1030) (STBET1 (1) . I«LJ.JJ) 

1030 FORMAT (10H BETA 1 A .2* ,6F 1 0. 3) 

WRITE (6. 1031 ) ( STRI (I) .I*LJ.JJ) 

1031 FORMAT (10H I ROTOR. 2X,6Fl 0.3) 

WRITE ( 6 , 1 03? ) ( STHIA(I) .I«LJ.JJ) 

1032 FORMAT (10H R 1 A «2X , 6F 1 0 . 3) 

WRITE (6. 1033) (STRUIA(I) . I«LJ.JJ) 

1033 FORMAT (10H HU 1 A »2X , 6F 1 0 . 3 ) 

WRITE (6. 1034) ( STmH 1 A < 1 ) . I *L J « JJ ) 

1034 FORMAT (10H MR 1A.2X.6F10. 5) 

WHITE(6.1035) ( STUlA(l) ,I»LJ.JJ) 

1035 FORMAT (lOH U 1A.2X.6F 10. 3) 

WRITE (6. 2035) (STPSlAd) ,I*IJ.JJ) 

2035 FORMAT (10H PS 1A.2X.6F10. 3) 

WRITE (6.2036) (STTSIA(I) .IsLJ.JJ) 

2036 FORMAT (lOH TS 1A.2X.6F 10,1) 

WRI TE (6 » 3999 ) (CR1 A (K ) . I»LJ. JJ) 

3999 FORMATtlOH CP 1 A ,2 X «6F 1 0 .5 ) 

WRITE (6.4000) (RVI3.K) .I«LJ*JJ> 

4000 FORMAT (lOH RG 1 A.2X.6F1 0.3) 

WRITE (6.4001) (GArt(3.K) .I«LJ.JJ) 

4001 FORMAT (lOH GAMG 1A.2X.6F10. 5) 

WRITE (6.4002) (WWG(3.A) »I“LJ.JJ) 

4002 FORMAT (lOH H«|G 1A.2X.6F10. 5) 

IF(ISECT.LE.3)G0 TO 11037 

WRITE (6.4003) (STwGlA(l) .I«LJ.JJ) .SFLOIA 

4003 FORMAT (lOH *G 1A.2X,6F10,5.?X.11 hTOTAL FLOw .F10.5) 

11037 WRITE (6. 1037) (ST0P2 ( I ) . I«LJ.JJ) 

1037 FORMAT (/5X5HSTA 22X106HOTOR Ex I T/ 4 X 6 HDI AM 22X.6F10.3) 
IF(ISECT.LE.3)G0 TO 1 1036 
WRITE (6.2037) <STPTR2(I> , I*LJ.JJ> 

2037 FORMAT (lOH PTH 2.2X.6F10.3) 

WRITE (6.2038) < STTTR2 d ) « I»L J. JJ> 

2038 FORMAT (lOH TTR 2»2X,6F10.1) 

11036 WRITE (6.1036) (SThET2(1) .I*LJ.JJ) 

1036 FORMAT (lOH bETA 2.2X.6F10.3) 


WOUT o91 
WOUT o92 
WOUT ft93 
WOUT 094 
WOUT 095 
WOUT 096 
WOUT 097 
WOUT 098 
WOUT o99 
WOUT 100 
WOUT 101 
WOUT 102 
WOUT 103 
WOUT 104 
WOUT 105 
WOUT 106 
WOUT 107 
WOUT 108 
WOUT 1 09 


WOUT 111 


•••••••« 

WOUT 1)3 
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Listing of Code (continued) 


W«'I T E ( h* 1 0 3*) ISUmETm A ) , I=LJ * JJ) 

1030 FORMAT ( 1 OH 0«ETAt2X,6F10.3> 

WRITE (6i 10 39) t SR2U) tI*Lj*JJ> 

1039 FORMAT ilOH R 2*2*,6F10.3> 

W«ITF <6* 104n) < SRU2< I) *I*LJt JJ) 

1040 FORMAT ( 1 OH HU 2«2X,6F\0.3) 

WRITE <6* 1041) C SMR? ( A ) * I S L J * J J ) 

1041 FORMAT UOH MR 2*2**&F10.5) 

WRI TE (6* 104?) < SU? ( l > * I *L J * J J ) 

1042 FORMAT UOH U 2*2x.6Fl0.3) 

W»t TF. (ht 1043) t R* ( I ) * I *L J * J J ) 

1 0 A 3 FORM a T (AON RX *2* * 6F \ 0.5) 

WRITE (6* 104 A) <$Tl)ELH< A) •T*LJtJJ) 

1044 FORMAT UOH OELR * 2 * , t>F 1 0 • 3 ) 

WHITE (6*1045) < S TPS I ( A ) • T *L J « J J ) 

1045 FORMAT (1(iH PSI P*?X.6F)0.5) 

WHITE (6* 1046) (SETATT(A) U-LjtJJJ 

1046 FORMAT (10H t T A T T • 2X , 6F 1 0 . 5 ) 

wMITF. (6, 1047) C SET ATS (I) •l»LJtJJ> 

1047 FORMAT IlOH ETA T S * 2* * 6F \ 0 * S ) 

WRITE (6.1048) (StTAAT C A) *I*LJ.JJ) 

1048 FORMAT (lOH ETA AT t 2 X , 6F 1 0 • 5 > 

WRITE (6 * 1 OAR) (R/wINC U> • I*LJ* JJ) 

1049 FORMAT IlOH ?wl 1 nC«2X*6F) 0.5) 

WRITE (6*1065) ( CPk(A) *I*LJ.JJ) 

1065 FORMAT UOH CP Rt2Xt6Fl0.5) 

WRITE i6.?065> < STPS2<I) t I*LJ# JJ) 

2065 FORMAT (lOH PS 2*2X,6fi0.3> 

WRITE (6t?0*6)< STTS2U) tl*LJ»JJ> 

2066 FORMAT ilOH TS 2*2x.6F)0.1> 

WRITE (6*4999) ( CP2 ( K ) * I«LJ* JJ> 

4999 FORMATUOH C? 2 ♦ c X • 6F 1 0 . 5 > 

WRITE (6*5000) <PV (4, K)t I =LJtJJ) 

5000 FORMAT (lOH R6 2»2X*6Fl0.3) 

WRITE(6.5001) (GAM (4.K> * 1*LJ* JJ> 

5001 FORMAT < 1 0 H G AMG 2*2X*6F10.^) 

WHITE (6.5002) (HwG<4.*) .I=LJ* JJ) 

5002 FORMAT (lOH HwG 2*2X.6F10.5) 

IF ( ISECT • LE * 3 ) GO TO 11053 

WRITE (6*5003) ( STwG2 { I ) *I*Lj*JJ) *5Fi_0? 

5003 FORMAT tlOH *G 2 *2* *6F 1 0 .5*?X * 1 IhTOTAL FLOw .F10»5) 

1 1 053 WHITE(6*A053) ( STPT2AU) tl*LJtJJ) 

1053 FORMAT (lOH PT 2 A * 2 X f 6f 1 f) * 3 ) 

WRITE (6* 1054) ( STTT2A(1) , I*LJ*JJ) 

1054 FORMAT ClOH TT 2 A * 2X « 6F 1 0 . 1 J 

WHITE (6* 1055) ( STV2A < I ) . l*t J* JJ) 

1055 FORMAT ilOH V 2A*2x f 6F 10.3) 


WOUT H4 
WOUT 115 
WOUT 116 
WOUT U7 
WOUT 11B 
WOUT 119 
WOUT 120 
wOUT 1?1 
WOUT 1 22 
WOUT 123 
WOUT 124 
WOUT 125 
WOUT 1 ?6 
WOUT 127 
WOUT 1?0 
WOUT 129 
WOUT 130 
WOUT 1 3 1 
WOUT 1 32 
WOUT 133 
WOUT 134 
WOUT 135 
WOUT 136 


WOUT 13R 


*«»»#«*# 

•««««»«« 




«»»«»•*« 


»««««««» 


WOUT 1 4 l 
««»«««*« 

WOUT 143 


WOUT 145 
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Listing of Code (continued) 


WRITE(6.l056) < STVU2AU) .I«IJ.JJ) 

1056 FORMAT (low VU 2A >2X .6F 1 0 . 3) 

WRITE (6. 1057) ( ST ALF2 ( 1 ) .I«LJ.JJ> 

1057 FORMAT (Ioh Alpha 2A.2X ,6F 10 .3) 

WRITE (6. 1050) ( STMF2AU) ,I»LJ*JJ) 

1058 FORMAT (10H mF 2 A »2X , 6F 1 0 .5) 

WRITE (6. 1059) < STV22A (I ) . 1»L J. JJ) 

1059 FORMAT (Ioh V2 2A.2X.6F10.3) 

WRITE (6. 1060) < STTS2A ( 1 ) . I*LJ*JJ> 

1060 FORMAT (IOH TS 2A » 2X , 6F 1 0 . 1 ) 

WRITE (6.1061 ) < STPS2A(I) ,I«LJ.JJ) 

1061 FORMAT (IOH PS 2A.2X ,6Fl 0.3) / 

WRITE (6.1062) (ST0EN2(1) ,I»LJ.JJ) 

1062 FORMAT (lOH DENS 2A »2X ,6F \ 0.5) / 

WRITE(6.1063) < STM2AII),I»LJ.JJ) 

1063 FORMAT UOH M 2A »2X , 6F 1 0 .5) / 

WRITE (6.5999) (CP2A(K) *I*LJ.JJ) 

5999 F0RmaT(10h CP 2A ,2x , 6F 1 0 .5 ) / 

WHITE (6.6000) (RV (5.K) . I«LJ. JJ) 

6000 FORMAT (lOH HG 2A • 2X , 6F ) 0 . 3 ) 

WRITE (6.6001) (GAM(5.K),I«LJ.JJ) 

6001 FORMAT (lOH GAMG 2 A . 2 X , 6F ) o . 5 ) 

WRITE (6.6002) (H*G(5.K) *I»LJ.JJ) / 

6002 FORMAT (lOH RwG 2A »2X ,6F 1 0 .5 ) • / 

IF ( ISECT.LE.3JG0 TO 21000 

WRITE (6.6003) (STwG2A ( 1 ) , I»L J . JJ) ,SFL02A 

6003 FORMAT (Ioh wG 2A .2X.6F 1 o ,5.?X . 1 IhTOTAL FLOw ,F10.5) 
21000 IF(SHFLAG) WHITE (6.20000) 

20000 format ( lHl , ASH an Exp HAS REEN maOE FROM SUBROUTINE WOUT 
RETURN ' - 

ENO 


• •••< 

WOUT 

*•** 

147 

WOUT 

148 

WOUT 

149 

WOUT 

151 


WOUT 

153 


WOUT 

155 

WOUT 

157 

WOUT 

158 

WOUT 

159 

WOUT 

***** 

151 

*#* 


WOUT )62 
WOUT )63 
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Listing of Code (continued) 


CPHlM 


10000 


20000 


SUBROUTINE PHlM(EXI*ElA»TP*PR> 

tOGICAL PHEVEH.SRFUAG 
COMMON SPFLAG 

JoppaT^^ AN^ENTHY ^hAS^BfcEN MADF IN SUBROUTINE PHlM 
A » EXI-.5 

B s - ( E X 1 • (l.-ETA) /2.> 

C s ETA/2. 

X « I-R -SQPT(«*«2 -A»*A*C> »/(2.*A> 

TP ■ ETA/ (ETA-X) 

PH » TR**EXI 

KSTASl S'KJt'SlS’Sct. H.OC f«0» 5UB.OU..NC PHI. 

RETURN 

ENO 


PhIM ool 
PHIM 002 


PhIM o 03 
PH 1 M 0 0 A 
PHIM 005 
PHIM nOO 
PhIM 007 
PHIM OOP 


PhIM 009 
PHIM Oio 
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APPENDIX 2.3C 

CONTROL CARDS FOR WANL CDC-6600 COMPUTER 


Control Cords for FORTRAN Deck Setup B. Control Cords for Bincry Deck Setup 


J0B Card 

Example 

J0B , 10. 

J0 ft Cord 

Example 

J06, 10." 

Account Number Cord 

AS77907. 

Account Number Cord 

A577987. 

ID Cord 

ASD1097, TURBIN, 120, 75000, 01. 

ID Card 

ASD1097, TURBIN 

RUN Card 

RUN (P„„„ 14000) 

10C Cord 

L0C, 75000. 

LpC Card* 

L0C, 75000. 

L0AD Cord 

L0AD (INPUT) 

lG0 Cord 

IG0 . 

EXECUTE Cord 

EXECUTE. 

End-of-Record Cord 

7/8/9 

End-of-Record Cord 

7/8A 

FORTRAN Deck 

PROGRAM JIM 

End-of-Record Card 

7/8A 



Binary Deck 

Binory Cards 

? r 

END 

End-of-Record Card 

7/8/9 

End-of-Record Cord 
End-of-Record Cord 
Data Deck 

7/8/9 

7/8/9 

FALSE 

End-oF-Record Card 
Dota Deck 

7/8A 

Data Cord* 



i 

ENDJ0B = 1.0 $ 


ENDJ<?B= 1.0$ 
6/7/BA 

End-of-File Cord 

6/W9 

End-of-File Cord 



* The L PC cord ll required to initiolize the core to zero before compilotion ond execution. 
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2.4 BLADE SURFACE VELOCITY CALCULATIONS* 
2.4.1 Background 


As a part of the Westinghouse Astronuclear 
Laboratory analytical investigation of turbine 
erosion phenomena, calculations are made in the 
various areas of turbine flow. These procedures in- 
clude the present calculation to determine the 
velocity distribution along the suction and pressure 
side of the turbine blades. Surface velocities from 
this calculation are then used as input to the AD- 
ROP code discussed in Section 2.6. 

The purpose of this report is to show how the 
computer program was used in performing the cal- 
culation for the G.E. blade and to compare the 
results of this calculation with those by other 
methods. Comments on the use of this program 
extend the detailed account to include: the 
modifications for the CDC 6400 machine, the in- 
put and output for the G.E. blade calculation, and 
additional comment on the features of the program, 

2.4.2 Calculation of G. E. Blade 


0.9 

0.8 

0.7 


i 



o 0.1 0.2 0.3 0,4 0.5 0.6 0,7 0.8 0. 

X COORDINATE - INCHES 612218-38 


Calculations were made on the 3rd stage 
stator blade, mean diameter section, for the G.E., 
3 stage potassium turbine. This blade section, 
shown In Figure 2.4.2-1 is reproduced from Figure 
1 1 of Reference 2. 


Figure 2. 4. 2-1 Third Stage Nozzle Mean Section 
TABLE 2. 4. 2-1 
INPUT 


Input 

The input to the calculation is given by 
Table 2.4.2-1. Its format is identical to that 
in Reference 1. The input data are identified by 
the Figure 2.4.2-2 sketch and by the Description 
of Input in Reference 1 . Note that all linear 
dimensions given by Table 2.4.2-1 and Figure 
2.4.2-2 are ten times the actual blade size. 


I i» .21 S» 

FITCH CHORD STAR THETA I 

6,67 8. J7 -6.19 *8-2 

ft I ALU I ALU *0 

1.09 66.0 -37-3 -03 

. 6 ..1 6 .26 . 56 

HXII HXI0 MX HU! HUSH HIS ft HIHT 

,J4 60 W 2 5 li W ,6 

10 AftHAT 

1.43 2.61 3.91 


-72-9 


5.07 


$1 61 
PTLft 

.0005 

ALL0 

-61.4 


6.10 7.09 


7' 


7.71 


XiPU AftWT 

1.36 1.405 1.1? 


-2,6 


-4.17 


ZL ARRAT 

J.J5 *.01 2. *3 3.80 

7.78 

XSFL ARRAT 

5.33 5.H 4.95 4.69 


ILDATANULAKf EftFRT STftrN SLCRD SLUT AftFRT IHTVELSt*VU 

10 1 1 .1. 0 .11 I ,1 

V V* TOLER MM ■» 

1,6 .01 .0001 .6) 3-2 


4.99 5.9« 6.99 


4.10 J.43 2.49 


*W. K. Fentress, Fellow Engineer, Development 
Engineering Department, Westinghouse Steam Divi 
sions, Westinghouse Electric Corp,, Lester, Pa. 
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.01 




Figure 2.4. 2-2 Geometric Data for the G. E. Blade 


Listing 


The program is the same as listed in Ref- 
erence 1 save for minor mechanical changes to allow 
for the use of the program on the CDC 6400 machine. 

For the most part, these changes are in the format 
statements and in the indexing for the arrays listed 
in the Equivalence Statements; e.g., variables 
such as A (2500, 4) were changed to equivalent 
statements involving single indices. The original 
program used a computer system -dependent plotting 
package which has been eliminated by deleting 
reference to subroutine PLOTMY. 


A considerable amount of printout is gener- 
ated by the program; for the present calculation 
only a small portion is pertinent. In Reference 1 
the items of output are identified by item numbers 
1 to 12. Items 4 and 5 are all that is necessary to 
construct the blade surface velocity curve, Figure 

2.4.2- 3. Output Item 4 gives the computed veloci- 
ties at interior mesh points. 

A sample of the latter is given in Table 

2.4. 2- 2. The quantity IA refers to the axial 
coordinate index; thus at IA = 90 the free stream 
velocities across the exit plane of the blade section 
are given and at IA = 1 the inlet plane velocities 
are given. In the given problem the approximate 
average exit velocity Is 0.4165 and the average in- 
let velocity Is 0,170. 


BY NASA COMPUTER PROGRAM, REF. 1 

BY G. E. REPORT, REF. 2 

• BYWESTINGHOUSE ELECTRIC ANALOG 



Figure 2. 4. 2- 3 Surface Velocities 
Computed for the G. E. Blade 


Item 5 gives the calculated surface velocities 
based on axial and tangential components. Thus, 
the referred velocity, with respect to the exit 
velocity is the ratio of the Item 5.surface velocity 
to 0,4165, Note that the value of velocity at the 
inlet and exit of the blade, corresponding to Z^0 
and Z = 8.37, are taken as 0,170 and 0.4165 in 
constructing the velocity curve (Figure 2.4.2-3). 

The referred length, with respect to the axial length 
of the blade, is the ratio of Z to 8.37. A sample of 
item 5 output is given in Table 2,4. 2-3. 

2.4.3 Discussion 

The following discusses the use of the pro- 
gram and compares the calculation results with 
those by other methods. 
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TABLE 2. 4. 2-2 


SAMPLE OF ITEM 4 OUTPUT 


Ui«* vElOCJIy 

*. lb*5-00l 
*.16*6-001 
6,16*6-001 
*.16**-001 
*,l6*3-0Ql 
IA-69 VEtDCHV 
*, 16*8*001 
* « 1 6*6-0 0 1 
*.l(»*7-v0l 
*.16* 7-001 
*. 16*6-001 
*, 16*6-001 
lA>90 VELOCITY 

*,16*9-«o 1 
*.16*7-001 
*,16*4-001 
♦,16**-00l 
* , 1 6*6-0 0 1 
*,16*6-001 


angle iuegj 

-66.69 
. 60 . VO 
*6o,90 
-66,90 
•64.90 
-64,90 
AttuLE(OtQ) 
-60.49 
-64.90 
-6o,90 
-64,90 
-66,90 
-64,91 
ANGLE IDLS) 
.64,90 

-60.90 
-66.90 
-60, 9q 
.64,90 
-60.91 


VtLOClTr 
* * lo*6-rtol 
*.16*5-001 
*,l6*6-0ol 
*,16*6-001 
♦.16*4-001 

VLLOCJl* 

*. 16*7-001 
*.16*6-001 
♦,16*7-001 
*, l6*7-pn ) 
*, 16*6-001 

VELOCITY 
*,16*9-oo\ 
*• 16*7-00 1 
4,16*4-001 
*♦ 16*4-001 
*,16*4-001 


*NGLt IDE 0) 
-68. 9© 
-68.90 
-68.90 
-68.90 
-64.90 

ANGLE (PEG) 
-68.90 
-60.90 
-68.90 
-68.90 
-60.90 

ANGLE (DEO) 
-68,9o 
-68,90 

-68.90 
-68. 9q 
-68.90 


VELOCITY 

*.l***-ool 

*, l6*6-i>0l 
*. 16*6- ->0l 

*. l6*5-O0t 

*. 1 8 **- n 0 l 

VELOCITY 

*• 16*6-001 

*. l0*7-f|ftl 

♦ , U*7-O0l 

*, 1 b*7-O0 1 

* . 16*6*00 1 

VELOCITY 
*.16*7-001 
*. 16*7-001 
* . 1 fe*8-n0 1 
*. lb*8-O0l 

*. 1 b*7-nfil 


ANGLt IDFb) 
-64.90 
-60.90 

-60.90 
• 6». 90 
-60*90 

ANGLl'UEG! 
•60.90 
-fb, 60 
*6®. 9fl 
-60.90 
•60.90 

ANGLE < DEG) 
-64.90 

-60.90 
-60. YO 
•60.90 
•60,90 


VELOCITY 
*. UbS-nOl 
*.16*6-001 
*, 16*6-001 
*. 16*5-o01 
*.16**-001 

VELOCITY 

*.16*6-001 
*,16*7-001 
*,16*7-001 
*,16*7-001 
*. 1 6*6-001 

VELOClTT 

*.16*7-001 

*.16*7-001 

*.16*9-001 

*,16*»-0Q1 

*,16*7-o01 


-66*90 

-68*90 

-66*90 

-68.90 

-68.90 

ANGLE <DEG1 
-66*90 
•68.90 
-68.90 
•68.90 
-66.90 

ANRLE(OEG) 

-68,90 

•68.90 

-68.90 

-68.90 

-68,90 


VELOCITY 
*.16*5-001 
*.16*6-001 
4.16*6-001 
*,16*5-001 
*, 16**-001 

VELOCITY 

*.16*6-001 

*.16*7-001 

*,16*7-001 

*,16*7-001 

*.16*6-001 

VELOCITY 
*,16*7-001 
*.16*8-001 
*. 16*8-001 
*.16*0-001 
*,16*7-001 


ANGLE (DFG1 
-68.90 
.68.90 
-68,90 
•68,90 
.68.90 


ANGLE tDF 01 
-68.90 
.68.90 
-68,90 
-68.90 
-68.90 

ANGLE <DEG> 
.68.90 
-68.90 
-68,90 
-68,90 
-68,90 


Program 

Machine time for the blade calculation was 
approximately 2 minutes with the C DC 6400 machine. 
This is in line with a tolerance of 10“ 4 (TOLER), an 
assumed overrelaxation factor (w) of 1.6, and 2006 
mesh points. The tolerance Is with respect to the 
maximum change in stream function in successive 
iterations, specified by the Item 8 printout as 
ERROR, 


From the printout of ERROR it is evident 
that the number of iterations increases with decrease 
in tolerance (ERROR); e.g., 6, 30, 43 and 380 itera- 
tions for 1. x 10” 2 , 1. x 10- 3 , 6. x 10- , and 
1.x 10“ 4 tolerance. Here there is a very large 
Increase in the number of iterations between 6. and 
1, x 10"^, tolerance, but this is consistent with the 
(jjg of q factor (w) of 1.6 in the calculation. It is 
shown by the following comparison, with other 
calculations for the same data, that the choice of 
the factor has a noticeable effect on the number 
of iterations, particularly in the region of close 
tolerance. 


Factor 

Number of Iterations 



1. x tO" 2 

1. x 10" 3 

6. x 10' 4 

1. x 10' 4 

2. x 10' 5 

1. x to' 5 


Tolerance 

Tolerance 

Tolerance 

Toieranc e 

Tolerance 

Tolerance 

1.949 

45 

105 

106 

157 

199 

213 

1.90 

24 

75 

88 

— 

— 


1.80 

12 

40 

86 

— 

— 

— 1 - 

1.70 

7 

30 

46 

— 

— 

” 

1.60 

6 

30 

43 

380 

718 

— 

1.50 

6 

30 

43 

— 

— 


1.40 

5 

31 

44 

I 





Note that ^ ) = 1 .949, the optimum factor 
computed by subroutine SOR, requires less iterations 
at close tolerance, but generally requires a greater 
number of iterations at coarse tolerance. Thus the 
"optimum'* factor is oniy optimum for a large 
number of iterations, i.e., for close tolerance. 


It is probable that a tolerance of 5. to 1 . 
x 1(T 4 is sufficiently close for most calculations 
based on the following check. Here calculations 
were made with 10 , 10“ 3 , 10 , and 10 ^ 

tolerance and, while the velocity plot for 10 
tolerance was noticeably different in the region of 
the leading edge, there was very little change with 
respect to 10“ 3 and 10~5 and no visible change 
with respect to 1(T 4 and 1(T 5 tolerance. 

Actually, several features of the program 
are not clearly explained by Reference !• 

a) Solution of the Laplace Equation 


Referring to Figures 4 and 5 of Ref- 
erence 1: To solve the Laplace equation it is 
evident that the boundary conditions must be fully 
defined. Hence, as the boundary conditions are 
only defined, explicitly, along the upper and lower 
blade surface, it is probable that the stream function 
is specified along the other boundary surfaces by a 
process of interpolation based on: the stream func- 
tion at points B, G, C and F, Q; p and Q out / and 
the assumption (certainly in the first approximation) 
that the inlet and outlet stagnation streamline is 
straight. 
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TABLE 2. 4. 2-3 


SAMPLE OF ITEM 5 OUTPUT 


SURF ACt VELOCITIES *ASED ON AXIAL COMPONENTS 
UPPER SURFACE LOWE* SURFACE 


i 

VtLQLiTY 

ANGLE IUEG) 

*z 

VELOCITY 

ANGLE (OEG) 

*1 

*.6921-01 0 

n.oooo*ooo 

90.00 

1.7583-003 . 

0. 0000*000 

-90.00 

-1.2*21-002 

2.7900*001 

3.2218-001 

48,08 

2. 1526-001 

6.9851-002 

-49.75 

4,6670-002 

*.5800-001 

3. 4315-001 

37.34 

? • 7281-00 1 

1,3167-001 

-34.91 

1.0950-001 

• 3700-001 

3.6507-001 

27.42 

1.2405-001 

1,6791-001 

-27.91 

1.4965-001 

1. 1160*000 

3. 7321-001 

18.52 

1.5387-001 

1.8830-001 

-23,16 

1.7412-001 

1 • 3950*000 

3.6616-001 

11.93 

1.3822-001 

2.0514-001 

-21.29 

1.92o6-001 

I. 6/40*000 

3,6858-001 

7.29 

1,6559-001 

2.2354-001 

-19,50 

2.1156-001 

1.9*30*000 

3. 718J-001 

2.92 

1.7135-001 

2,3912-001 

-16.06 

2. 3040-001 

2.232 0*000 

3.7490-001 

-1.13 

1. 74H3-001 

2,3903-001 

-12,08 

2. 34o8-001 

2.51 1 0*000 

3.7796-001 

-4,81 

1.7665-001 

2.3421-001 

-10.25 

2.3072-001 

2.7900*000 

3,6206-001 

-8.18 

3.7817-001 

2.2&46-001 

-10,73 

2.2277-001 

3.0690*000 

3.8717-001 

-11.57 

3*7930-001 

2.208?-00l 

-12,88 

2.1 562-001 

3.348o*000 

3,9607-001 

-14,97 

<.8 C 63-001 

2.1754-001 

-15.59 

2,1006-001 

3.6270*000 

4. 0210-001 

-18.35 

1.8165-001 

2.1758-001 

-18, 7P 

2.0676-001 

3.9060*000 

4,0934-oOi 

-21.73 

1. 8025-001 

2.1974-001 

-22,3? 

2,0436.001 

4.1850*000 

4,2240-001 

-25.57 

3.6103-001 

2.2646-001 

-25.5o 

2.0*83-001 

4,4640*000 

4.307U-001 

-29.88 

1,7345-001 

2.3296-001 

-28,18 

2.0/14-001 

4.7430*000 

4,40*2-001 

-34.48 

i. 0314-001 

2.4144-001 

-30.4J 

2.1U39-001 

*.0220*000 

4 , 46 78-00 1 

-39.16 

i . 4 1 31-001 

2.4773-001 

-32,22 

2,12o6-001 

5.3010*000 

4,5058-001 

-43,84 

1,2499-001 

2.5375-001 

-33,96 

2.13?6-00l 

*.5800*000 

4, 6271-001 

-48.31 

1 • u 109-001 

2.5862-001 

- 35, 8 3 

2.1283-001 

5.8590*000 

4,540 7-001 

-32.50 

2.7643-001 

2,6161-001 

-37 , 8q 

2.1 023-00 1 

6. 13Bo*000 

4,3300-001 

-56.33 

2.511 8-001 

2.6363-001 

-40,01 

2.O5R0-OO1 

6.4170*000 

4 , 3360-0 0 1 

-59.62 

2.2947-001 

2.6534-001 

-43,05 

1.9844-001 

6.6960*000 

4.3361-001 

-62.40 

2.K1R-Q01 

2.6955-001 

-46.76 

1.8999-001 

6.9750*000 

4.5399-001 

-64.73 

1 .9365-001 

2.7787-001 

-*0,86 

1,8177-001 

7.2540*000 

4, 3320-001 

-66,86 

1,7813-001 

2 .9 1 44-001 

-54, 70 

1,7*98-001 

7.5330*000 

.4 . 3234-0 0 1 

-69.0* 

1.6173-001 

3 • 09 1 Q-00 1 

-57.85 

1.7333-001 

7.8120* uOO 

4.4295-001 

-71.17 

1 .4298-001 

3.17M0-001 

-60.47 

1.6639-001 

8.0910*000 

4 , 2696-n 0 1 

-72.44 

) .2883-001 

i. 4152-001 

-62.43 

1 ,69n7-00l 

8.3700*000 

o,ooou*oop 

- 90.00 

1 . 1 u23-uo 1 

u , 0000*000 

90.00 

6,4755-002 


SUHFACE VtL'JClTIEb « A *EU ON TANGENTIAL COMPONENTS 
UPPER SURFACE 


L 

VtLOLlTY 

ANGLE (LEG) 


2,6921-010 

1 .6396-001 

90,00 

\ .5396-001 

3,3200-002 

2,3652-001 

75.82 

2.2V32-001 

1.3965-001 

2,8990-001 

60.68 

2, 5a 8 3 -001 

3.4871-001 

3,2046-001 

*4.59 

?.2*9fl-00l 

6.7758-001 

3,5449-001 

33.06 

t. 9339-001 

1.3123*000 

3,0710-001 

13.60 

0. 1020-002 

3.0690*000 

4,0500-001 

-11.57 

-8.1419-002 

3.9447*000 

4,2174-001 

-22.23 

-1 .5954-001 

4.4880*000 

4.4052-001 

-30,27 

-2. 2203-001 

4.8891*000 

4,4555-001 

-36,94 

6770-001 

5.2107*000 

4 ,493 7 — 001 

-*2.34 

-i .0260-001 

5.4813*000 

*.5124-001 

-46.76 

-3.2670-001 

5.7163*000 

4,5161-001 

-50.60 

-3.4511-001 

5.9251*000 

4.5170-001 

-53.44 

-3.6288-001 

6.1130*000 

4, 5254-001 

-56.01 

-1.7522-001 

6.2862*000 

4,5146-001 

•58.15 

-3. *348-001 

6.4461*000 

4.5099*001 

-59.94 

-3.9032-001 

6.5958*000 

4.5165-001 

-61.45 

.1.9675-001 

6.7369*000 

4.5144-001 

-62,77 

-4.0139-001 

6.8708*000 

4,5200-001 

-63.92 

-a. 0603-001 

6,9984*000 

4,5180-001 

-64.93 

-a. 0931-001 

7.1206*000 

4.5231-001 

-65,84 

-4.U70-Q01 

7.2378*000 

4,5206-001 

-66.73 

-4.1603-001 

7,3502*000 

4,5209-001 

-67.60 

-a. 1799-001 

7,4577*000 

4.5U4-001 

-68.45 

-A. 1971-001 

7.5608*000 

4.4092-001 

-69.27 

-4*1986-001 

7.6598*000 

4,4687-001 

-70.05 

-4,2006-001 

7,7547*000 

4.4350-001 

-70*78 

-A.ibb5-001 

7.6460*000 

4.3044-001 

-71.38 

-4,1549-001 

7.9347*000 

4.3403-001 

-71.8* 

-4. 1242-001 

8,0213*000 

4,2943-001 

-72.21 

-4.0689-001 

8.1061*000 

4.2376-001 

-72,40 

—4 .0411 -001 

8.1898*000 

4.1067-001 

-72.68 

-1.9970-001 

0.2726*000 

4.1344-001 

-72,02 

-3.9499-001 

6.3549*000 

4,1539-001 

-72.89 

-1.9702-001 

8.3700*000 

3.8002-001 

-90.00 

-3.0502-001 


LOWER SUHFACE 


L 

VtLOClTY 

ANGLE (UEG) 

ftX 

3,3200-002 

8,2697-002 

- 75,02 

h , u a 78—o 02 

1.3965-001 

4.823 7-qo3 

-60.66 

*.2057-003 

3.5022-001 

8 ,5141-002 

-42.74 

-S. 7765-002 

7.3531-001 

1,5217-001 

-29.23 

-7.4307-002 

1 .3342*000 

1.9760-001 

-20.75 

-7*0033-002 

2.1824*000 

2.5271-001 

-12.22 

3483-002 

3.4578*000 

2.I58/-001 

-16.22 

-A. 0314-002 

4,1731*000 

2.2115-001 

-24.52 

-4.1704-002 

4.6981*000 

2.3675-001 

-29.06 

-1 . 1500-001 

5.1504*000 

2.4942-001 

-31.09 

-1.3176-001 

5,5507*000 

2.5649-001 

-34.40 

-1.4519-001 

5.9294*000 

2.6221-001 

-37.02 

-1 .5707-001 

6,2663*000 

2,640^-001 

-39,91 

-1.6942-001 

6.5664*000 

2,6684-001 

-43.45 

-1.6352-001 

6.8308*000 

2.7260-001 

-47,07 

-1 .9962-001 

7.0646*000 

2.8178-001 

-50.62 

-2.1717-001 

7.2746*000 

2. 9323-001 

•53.10 

-2.3450-001 

7,4671.000 

3.0J6/-001 

-55,23 

-2.4*46-001 

7.6461*000 

3.1523-001 

-56.98 

-2.6432-001 

7,8145*000 

3.3101-001 

-50.45 

-2.6C07-0Q1 

7,9745*000 

3.3509-001 

-59.62 

-3.6907-001 

8.1280*000 

3.4303-001 

-60. S3 

— 9664-001 

8.2764*000 

3.4?9/-001 

-61.24 

-1.0505-001 
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b) Inlet Stagnation Point 

Points B and G (Figure 2 of Reference 1) 
are at the inlet extremity with respect to the axial 
direction and, by the numerical treatment, the 
velocity is zero at both of these points. This does 
not consider that the location of the stagnation 
point depends on the angle of incidence and, with 
large incidence can deviate from point B by a 
notable amount. It appears that the effect of this 
approximation is to displace the upper and lower 
velocity curves in the region of the blade inlet, 
but without affecting the velocity curve down- 
stream of the leading edge region. 

The surface velocity plot. Figure 2. 4. 2-3, 
compares the calculation results for the G. E. blade 
with those by the G. E. report (Reference 2) and 
with those by the Westinghouse Electric analog. 
From the general agreement, it appears that the 
calculation is sufficiently accurate for its intended 
use in the boundary layer calculation. 


2.4.4 Conclusions 

The NASA computer program (Reference 1 ) 
specifies the blade surface velocity with sufficient 
accuracy for its intended use in the boundary layer 
calculation. This is shown by comparing the cal- 
culation results with those by two other methods of 
calculation (Figure 2, 4. 2. 3). 


2 5 COLLECTION OF CONDENSATE AND 
MOVEMENT OF CONDENSATE ON 
TURBINE SURFACES * 

2.5.1 Nomenclature for Section 2.5 

A Shear profile empirical constant 

A ,A Blade geometric constants 
1 3 

a Condensate fog particle deposition constant 

for blade concave surface 

B Shear profile empirical constant 

b Condensate fog particle deposition constant 

for blade nose 

C D Fog particle drag coefficient 

C Wall friction drag coefficient, stator blade 
^ surface drag coefficient 

d Drop diameter, feet or microns 

D Turbine housing inside diameter, inches 

E Condensate particle collection efficiency 

F Indicates relationship between variables 

F Centrifugal force on liquid film on rotor 

blades - lb 

q A function of K 

y n cn 

2 

G Mass velocity of vapor, Ib/hr-ft 


2.4.5 References 

1. A Computer Program for Calculating Velocities 
and Streamlines for Two-Dimensional, In- 
compressible Flow in Axial Blade Rows 
Theodore Katsanis - NASA TN D-3762 
January 1967. 

2. Three Stage Potassium Test Turbine, Final 
Design, Vol. 1, Third Design - R. J. Ross- 
bach, et al - NASA CR 72249. 
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nuclear Laboratory, Westinghouse Electric Corp. , 
Pittsburgh, Pa. 15236; W. D. Pouchot, Advisory 
Engineer, Systems & Technology Dept. , Astro- 
nuclear Laboratory, Westinghouse Electric Corp. , 
Pittsburgh, Pa. 15236. 
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h 


Blade height, ft. 

K Condensate fog particle Inertial impaction 
parameter for collection on concave sur- 
face of blades 

K Condensate fog particle inertial impaction 
parameter for collection on nose of blades 

K Knudsen No. based on condensate fog 
particle radius 

L Blade nose radius, ft 

L Mass velocity of collected condensate, 

lb/hr-fr 

4 Length of blade in radial direction, hub to 

Hp 

m [_ Mass flow rate per unit of casing periphery 

or per blade, slugs/sec-ft, or mass flow rate - 
slugs/sec 

m Total turbine mass flow rate, Ib/sec 
Number of blades 

N re v Vapor Reynolds No. 

P Portion of condensate fog particles collected 
on concave surface of blades in a given row 

P Portion of condensate fog particles collected 
on nose of blade in a given row 

q^ Liquid from condensate fog particles col- 
lected by a representative blade in a blade 
row per unit of blade height, Ib/sec/ft. 

,Q^Tofal liquid collected by a given blade row 
in the form of bulk flow condensate fog 
particles, Ib/sec. 

+ Dimensionless liquid film flow rate : 



v 


r Average condensate fog particle radius, 
microns or ft 


R Gas Constant, ft/lb-°R 

Re Condensate particle Reynolds Number 

R Pipe or channel equivalent radius, ft or 

inches 

S Pitch (spacing of blades around turbine 
periphery) of blades in a row, ft 

T Absolute temperature, °R 

Va Bulk flow axial flow velocity - ft/sec 

U. Mean longitudinal velocity of collected 

film, ft/sec 

U^i Bulk flow velocity relative to casing, ft/sec 

Uj Bulk flow tangential velocity - ft/sec 

U* Friction velocity, ft/sec = V 

U Liquid film velocity on stator or rotor blades 

V Condensate particle axial flow velocity, 

a ft/sec 

V Bulk flow velocity relative to blades at in- 
let of blade row, ft/sec 

V Condensate particle tangential velocity - 

ft/sec 

W Width of blade row in axial direction from 
inlet to exit, ft 

Liquid flow rate, Ib/sec, slugs/sec 

i Average quality of vapor in a blade row 

X Circumference of turbine casing or axial 
distance, or geometric coordinate - ft/in. 

V Geometric coordinate - ft 

Y g Average fraction of mixture flow as con- 

densate fog particles 
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Axial width of blade measured along blade 
surface - ft, in. 

Blade geometry parameter, ft 

Angle between normal to turbine axis and 
stator inlet velocity vector, degrees 

Condensate film thickness, inches, mils, 
or feet 

Film parameter = U*/V 


particles (as in steam or alkali metal vapor turbines), 
the mechanism of deposition of moisture on blade _ 
surfaces is considered to be that of inertial impact.on 
based on the macroscopic application of the laws 
of motion. In this we have followed Gyarmathy . 
While deposition by diffusion of particles (Brownian 
motion and/or eddy diffusion) is recognized as a 
possible factor, inertial impaction is thought to 
warrant first consideration. Even between inertial 
impaction calculations, as between Gyarmathy and 
Brun et al@), there is substantial difference in num- 
erical values which we have been unable to resolve. 


Inlet width of concave surface capture 
curve - ft 


x A density parameter, dimensionless 

2 

Viscosity of vapor, lb/ft-sec or (lb-sec)/ft 

Hv 2 
|j , p Viscosity of liquid, lb/ft-sec or Ib-sec/ft 

L 2 
u Kinematic viscosity, \i/p, ft /sec 

Mixture bulk flow density, Ib/ft or slugs/ 
ft 3 

3 

P ft Working fluid density as a liquid, Ib/ft or 

* L slugs/fP 

3 

P Working fluid density as a vapor, Ib/ft or 

v ° slugs/fP 

2 

t Wall friction drag per unit area, Ib/ft 
s 

a Surface tension, Ib/ft 

* Indicates relationship 

f Surface tension parameter 

u Rotor rotative speed - radius/sec 

2.5.2 Deposition of Moisture on the Surface of 

Blades 


• Single Row Collection 

When the moisture in the bulk flow is in the 
form of small spontaneously formed condensate 


The inertial deposition of moisture is con- 
sidered to be principally on the inlet ( n ° se ^ 
of the blades and on the concave face of the blades. 
Therefore by definition the inertial deposition on a 
single row of blades may be written as: 


Q e m Y f ( P cn + P cc} 


• Deposition on the Inlet Edge of the Blades 


The analysis considers the nose of the blade 
as a circular cylinder. Thus the impingement of 
moisture particles is specified by the path of the 
particles when acted upon by the potential flow 
about a circular cylinder. 


The path and impingement of particles with 
aspect to circular cylinders, based on two-dimen- 
ional trajectory calculations and suitable drag co- 
fficients, is given in a number of reports. In 
iddition to Gyarmathy' 'NACA Report 1215 by 
(run, et al®, for example. In the Brun report the 
lata are shown by a non-dimensional plot in terms 
>f the conventional inertia parameter (K), a Reynolds 
Mumber parameter, and the collection efficiency. 
Collection efficiency is the ratio of the width of 
fhe free stream capture stream tube, within which all 
sarticles strike the cylinder, to the diameter of the 
cylinder). 


2-148 


In symbolic terms the efficiency of collection 
may be written: 


TT"~ ” - *^(K, Re) 



By use of the relationship of equation 3, as 
established in numerical terms by Gyamnatby or 
Brun et a I, the collection efficiency for the nose 
sections of a turbine row can be calculated. 
Collection efficiencies have been calculated for 
the noses of the ninth stator blade row, 3/4 blade 
height position of the Yankee steam turbine, and 
are shown in Figure 2.5,2-2. As can be seen the 
data of Gyarmathy predicts higher collection 
efficiencies than that of Brun et a I, 


or in the Stokes Law region applicable to these 
miniature moisture drops: 



As the flow about the miniature moisture 
drops is often in the slip flow regime, it is necessary 
to correct this formulation for the reduction in drag 
due to slip flow. Correction is made by multiplying 
the continuum value of the inertia parameter by the 

raHo (C D,slfp flow/ C D ) where C D is rfle COnven " 
tionai drag coefficient for continuum flow. This 
correction is specified by an empirical expression in 
terms of Knudsen Number. As shown in Figure 2. 5.2-1, 

C 

Gyarmathy' s expression, D, slip flow _ 1 

1 + 2.53 K ' 

D n 

is a simple approximation to the more complicated 
Emmons™' expression. As shown also by this curve, 
the drag on 0,4 micron radius drops under Yankee 
turbine conditions is only 45% of the continuum drag. 

In fact, the drag on particles will only approach con- 
tinuum values at approximately 15 microns or 
greater radius. 


Making the slip flow correction to equation 
2 and observing that in the Stokes flow regime that 


C 



= 1 . yields: 



10 . 5 . 1. 1 . 0 5 0.7 

DROT RADIUS - p-fTH STATOO 1LAM IO* YANK ft n*lJNF *11151-511 

Hlf FLOW COiMCTtO* FOI TWf MAG COWKHNT OF SMIH 

Figure 2. 5,2-1 Knudsen Number Corrections 


This difference cannot be explained by the 
fact that the Brun, et a I, data account for the in- 
crease in Stokes law drag with Reynolds Number, 
as In this instance the fluid properties are nearly 
coincident with the Brun curve for zero Reynolds 
Number, Possibly, the difference could be ex- 
plained by differences in trajectory calculation, 
but this calculation is not qualified in Gyarmathy's 
report. 


The portion of the total number of conden- 
sate particles in the total flow which are collected 
by the noses of the blades of a given turbine row is 
given from simple geometric considerations, as in- 
dicated in Figure 2.S.2-3 as: 


P 


cn 


2 L 

$ sin a. 


2 L E 
S sin a. 


(4) 


E = + (1 + 2.53 K ) 
n 


( 2 'L r2 \ 

W, 2L 


( 3 ) 


Figure 2. 5. 2-3 also gives the calculated por- 
tion collected by the ninth stator noses of the 
Yankee turbine. It will be noted that the portion 
of the total drops collected by the noses of the 
blades of a row cannot exceed 2 L/S sin a 

i 
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Figure 2. 5. 2-2 Collection Efficiency Ninth Stage 
Stator Nose Yankee Turbine 

• Deposition of Moisture on the Concave Face of 
the Blade 

Generally, the analysis is performed along 
the lines of Gyarmathy's ' ’'approach. The contour 
of the blade surface is approximated by a polynomial 
expression. The path of the vapor corresponds to the 
blade contour and the path of the particles, acted 
upon by the drag of the vapor, is calculated by 
trajectory equations. The drag on the particles is 
by Stokes law with correction for slip flow. By 
simplifying assumptions of constant vapor velocity 
with respect to the distance between blades and 
equal and constant moisture-particle axial velocity, 
the particle acceleration is described by a linear 
differential equation. By further assumptions as to 
boundary conditions, the integrated equation gives 
the width of the band at the blade inlet, within 
which all moisture particles impinged on the blade 
surface. Finally, the ratio of band width to the 
space between blades gives the amount of the col- 
lection with respect to the total moisture approach- 
ing the blades. 

Thus, by the above assumptions, the collec- 
tion of moisture is specified by closed form calcula- 
tion. The detail derivation follows: 

The concave surface of the blade is approximated by 
the third degree polynomial (see Figure 2.5.2 -4) 


F (x) = A 1 X + A 3 X 3 (1) 



Figure 2. 5.2-3 Portion Collected Ninth Stage 
Stator Nose Yankee Turbine 



Figure 2.5. 2-4 Collection of Moisture on the Con- 
cave Side of the Blade 


The coefficients are specified by the inlet angle 
and the exit point as: 

F' (o) « A 1 = (S 0 - %) /W (2) 

F (W) = S g - % + A 3 W 3 = S g ; A 3 = £/W 3 (3) 

Assume that the path of the steam is the 
same as the blade surface shape; then, the path and 
direction of the steam flow is: 

F (X) s = Aj X + A 3 X 3 (4) 

F' (X) s = A, + 3 A 3 X 2 (5) 
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where constants and are as defined by 

equations 2 and 3, and the subscript s is for 
the vapor. 

The path of the moisture particles is related 
to that of the vapor by the conventional trajectory 
equations: 

C_ R C n 9 p 

V = g L J P — * — (U - V ) - tangential (6) 

' 1 2 r 


Integrating equation 12 gives the following general 
solution: 

= C. + C 9 e“ X ^V ♦ AX 3 - 3 A, WK X 2 
\ 2 J 3 c 

- (A, * 6A 3 W 2 K c 2 )X - WK c (A, + 6A 3 W 2 K c 2 ) (13) 

Constants Cj and are determined by the following 
boundary conditions; 


c d r . 
“5? — 


^D / slip flow ^ 


2 V 


(U - V ) - axial 


where U and V are the absolute vapor and particle 
velocity. 


Assume that the vapor and particle axial velocity 
are equal and constant: 


U — V — const 
a a 


1) the direction of flow of the vapor and 
moisture particles is the same at the blade inlet 
position; thus, by equation 5, F 1 (o)^ = F 1 (o) = A^. 

2) the end point position of the capture 
particle curve is coincident with the blade surface 
point at the trailing edge; thus by equation 3, F 
(W) L = F(W) = S g . 


By this assumption the particle acceleration is des- 
cribed in equation 6, and noting that: 


U = V F' 
t a 


(X) 


(7) 


Solving for C. and C ^ and substituting 
in equation 13 gives the following equation for 
the capture particle curve: 

F (x) L = 6 Aj W 3 K c 3 (1 - e' ,/K c) + A 3 (X 3 - W 3 ) - 3 Aj !< c W (X 2 - W 2 ) 


V 


t 


v F' (X). 


(8) 


V f = V a 2 F" (X) L 


(9) 


where subscripts v and L are for vapor and moisture 
particles. By substituting in equation 6: 


+ (A 1 + 6A 3 K c 2 W 2 ) (X - W) + S 8 (14) 

The inlet width of the capture band is specified by 
the value of equation 14 for the inlet of blade as: 

F (o), = 6A 0 K 3 W 3 (l - e" 1//K c) - A- W 3 + 3 A. K W 3 

L o C J O C 


W F" (X) L = (1/K e ) (F 1 (X) s - F 1 (X) L ) (10) 


where K cc , the inertia parameter, is as follows: 


K - 24 
c CTT 


C_ 2a. 

D La 

C“"i. ,, 9 p W 


D 'e ^D, si ip flow 
Substituting in equation 5 yields: 


( 11 ) 


W P 1 (X) + 0/K.) F* (X) L = (1/K c ) (A 1 + 3A 3 X Z ) (12) 


- (A 1 + 6A 3 K c 2 W 2 ) W + S q 05) 

Substituting for A- and A^ (equations 2 and 3) in 
equations 14 and 1 5 gives the final equations for the 
capture particle curve and for the referred inlet 
width of the band. 

F(x) l / $ = 6 K c 3 <« < ' ,/K c ) (X/W) -e' ,/K c) -KXAV) 3 - 3 K c (XAV) 2 

2 2 < ,4o) 
+ •• 6K. -I) (X/W) + 3 K c - 6 « c 

F (o),/ST = 6 K 3 (1 - e‘ 1/K c) - 6 K 2 + 3 K (’5a) 
L c c c 


This is the final differential equation of motion for 
the moisture particles. 


F (o), /% ks3 K : K <.03= 3K - 6K 2 : K<.10 

L c c x c c c v ( 15 b) 
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Inertia parameter: 


where the inertia parameter K cc is: 


24 


2' r ^V 
L a 


^ “ T R r 7 ri 9 LI W 

c e sf’P ^ ow s 

Note that the referred inlet width of the band is, in 
effect, the referred collection efficiency. 


The above equations consider the blade 
surface shape as by a third degree polynomial. A 
similar development assuming the surface as by 
a second degree polynomial gives the following 
equation for the inlet referred width of the capture 
band: 

F(o) l /2 = 2K c 2 (e' lA c - 1) + 2 K c (16) 


24 

K = C7TT — C 


2 f.r 2 ^ 

L a 


9 u W 

c ^0% ^D, slip flow s 

where: 

= 1, assuming Stokes’ law drag 

C _ R 
D e 


.00445 


"D, slip flow 


1/.44 = 2.275 (Figure 2. 5.2-1) 


The blade surface shape in this instance is 
closely approximated by the average between a 2 and 
3 degree polynomial. Hence, the referred efficiency 
is specified by the average curve value, or by the 
average of equations 15b and 16a: 


F(o) l /?* 2K c : K c < .05 

where K is as before, 
cc 


Equations 15a and 16 are plotted and 
shown in figure 2,4.2-5. 



Figure 2, 5. 2-5 Referred Collection Efficiency on 
the Concave Side of the Blade 

The calculation of collection drops on the concave 
side of the Yankee turbine ninth stator blade is 
illustrated by the following point calculation: 

Moisture drop size:0.4 micron radius = 

1.311 x 10"* ft radius 

3 

Fluid Properties: P L = 1*935 slugs/ft 

= 2.4 x 10 ^ lb-sec/ft^ V Q = 456 ft/sec 

Blade geometry: W =0.715 ft, % = 0.566 ft, 
S = 0.485 ft 


F(o) /% 2.5 K = ,0111 

L c 

The inlet width of the capture curve 

f= (F(o) L /« % = *00629 f 

The portion of drops collected with respect to the 
total number approaching the blade is the ratio of 
the band width to the blade pitch. 


Portion - f/S = .013 

Calculation results for the Yankee steam 
turbine are shown in figure 2.5. 2-6. This figure 
gives the portion of moisture collected as a function 
of drop size. As shown by the curve sketch, the 
portion collected is specified by the inlet width of 
the band (f), within which all particles impinge on 
the blade with respect to the blade pitch. The band 
width cannot exceed the space between blades 
(pitch minus inlet edge blockage) which accounts 
for the break in the curve at 93.5 percent. Collec- 
tion by Gyarmathy' s data is 20 percent less in the 
range < 0.4 micron drop radius. The difference is 
due to the fact that Gyarmathy specifies the blade 
shape by a quadratic expression compared to a 
higher order curve fit which, in this instance, 
better matches the blade. 
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Figure 2. 5. 2-6 Portion Col lected; Concave Side, 
Ninth Stator Yankee Turbine 


• Simplified Model of Single Row Collection 

The general collection analysis does not 
give a completely closed form result. 


From numerical examinations of concave 
surface collection it can be observed that for the 
range of condensate particle sizes likely to be en- 
countered in turbines (for concave surface collec- 
tion). 


V K ) 

l cc 


( 7 ) 


where a is the order of the polynomial expression 
needed to adequately describe the boundary of a 
tangential cross section of the concave surface of 
a particular blade in rectangular coordinates. 


It can also be observed from numerical 
examination of the blade nose collection that, 
if the particle radius is between 0.4 and 2 microns 
in large steam turbines, a good approximation for 
nose collection is 


(K )~ b K 
cn cn 


( 8 ) 


The foregoing analysis has been recast by approxi- 
mations to give a closed form result which may be 
more useful in making observations about turbine 
moisture collection. 


where b is a constant. 

Substitution of Eq. 8 in Bq. 2 and Eq. 7 in 
Eq. 3 with further substitution of these results in 
Eq . 6 and simplifying and rearranging gives 


Following Section 2.5.2, 1 the expression 

Cf r VO ♦ISy /2P y r V ^ 

/’- x v \r b+a 

for inertial deposition on a single row of turbine 

9 \ P v ) 

U )t ° 


blades is: 


%_ 

w 

r 


,ln 2 o.j 

m 


Q f = mY, (P 


P cc> 


( 1 ) 


where 

P = 5-7^ V, (K ) = -JU 

cn S sin a. 1 cn S sin a ^ 



P 

cc 


_ % 
“ T 


* 2 < K « 


c >4 



( 2 ) 

(3) 


Equation 1 maybe written, using continuity 
of flow, for collection of condensate fog particles 
on a single blade as 


Q , 


% 


N b* b 


= ?S V Y. (P + P ) 

a * cn cc 


( 4 ) 


and since 


then 


% 



(5) 

( 6 ) 


One of the more interesting observations 
which can be made from Eq, 9 is that the amount 
of moisture collected (q^) per unit of blade height 
is independent of blade size for geometrically 
similar blade tangential cross sections.* This says 
that between two turbine blade rows of equal 
height and geometrically similar tangential cross 
sections, the row with the smallest blade chords 
will collect the most total moisture when operating 
under the same working fluid conditions. If the 
smaller row has a chord one-half that of the larger, 
the moisture collected by the larger will be one- 
half that collected by the smaller, i.e., the same 
collection per blade but half as many blades in the 
larger row for geometrically similar tangential 
cross sections. 

*The cross section in a plane with one direction 
generally' in the turbine axial direction and the other 
direction normal tp corresponding diameters at the 
blade row inlet and exit stations. 
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( 14 ) 


The foregoing conclusion offers a definitive 
experimental way to check the basic premise that 
the dominant mechanism of collection is by inertial 
impaction rather than by eddy or molecular diffusion. 
Deposition by diffusion is proportional to the sur- 
face area, and the surface areas of the two hypo- 
thetical blade rows are equal. 

A corollary to the Eq. 9 observations is that, 
other things being equal, big turbines could collect 
proportionately less moisture than small turbines 
and the amount of damaging impact liquid per unit 
of exposed rotor blade surface will reduce with an 
increase in turbine size. 


by 


The Knudsen number K in Eq. 9 is defined 
n 


K 

n 


0.6275h v 


( 10 ) 


With n in Ib/ft-sec, r in microns, p v in 
lb/ft 3 , and T in °R, Eq. 2 becomes 

5. 35 x 1 0 p 

V 



Substituting Eq. 11 into Eq. 9, using the same set 
of units as for Eq. 11, yields 



where q b is in Ib/ft-sec and V f is in ft/sec. 

Let N, = number of blades per row, and h = 
blade height m feet; then, the total amount col- 
lected per row is given by 


q l = 2.36 x 10 


/ 1.35x10% 


(13) 


The constant a in Eq. 13 was taken to be 
2.5. The constant b was evaluated from Gyarmathy s 
calculations'^, from which it was determined that 


where b is approximately equal to unity.* For some 
Westinghouse-type turbine geometries, $/W. = 1.0 
for stators, and $/W f = 1 *25 for rotors. 


Substituting these values into Eq. 13 for 


stators t 

1 

' 1.354 X 10 4 H \ 


Q L - 2.36x 10" 12 r V r hN b e L | 

V \ 

1 + 

(15) 

/~v »\ /> - \\ 

V / V Xy / 

^1 + 2,5 sin 2 


and for rotors : 

/ 1.354 x10 4 h\ 


Q u = 2.36 X 10‘ ,2 TV r ltN b e L 

V ,T 

x V 

(16) 


1 + 3.125 sin 2 a J 



• Comparison of Experimental and Calculated 
Moisture Collectio"n 


A. Smith of Parsons Company has published 
the results of water extraction tests on a scale 
model of a Parsons steam turbine.' These tests 
were run on a four-stage machine with the water 
extraction between the third and fourth stages. The 
theoretical amount of moisture present at the exit 
of the third stage was varied by changing the amount 
of superheat in the vapor at the turbine inlet. Smith s 
data are shown as X 1 s in Figure 2. 5. 2-7, This is a 
plot of theoretical moisture against the portion of 
the theoretical moisture collected. Superimposed 
on this figure is a curve representing theoretical 
calculations of the portion of moisture which would 
be collected by the Yankee steam turbine ninth stage 
stator if the turbine were operated to provide the 
varying amounts of theoretical moisture. In addition, 
the conditions and geometry are also adjusted to 
make the Wilson Point (at some location ahead of 
the ninth stator) occur at a value of {l/P} dp/dt of 
pressure and dP/dt is the rate of change of this 
pressure with time at the Wilson Point. 


* The numerical value of b will be different from 
that for other turbines and operating conditions. 
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Figure 2, 5. 2-7 Calculated and Experimental Turbine 
Moisture Collection 

The only "real" point on the calculated 
curves is that marked at 13.5% theoretical moisture, 
' ' considering the actual operation conditions and 
geometry of the Yankee turbine. If a line is drawn 
from this point through Smith' s data, there is appa- 
rently excellent agreement. However, the calcula- 
tions are for collection on a single turbine row, 
whereas Smith' s data represent collection on a 
varying number of turbine rows and fractions thereof. 
That is, the Wilson Point in Smith' s turbine is moving 
toward the front end of the turbine as the amount of 
theoretical moisture available at the third stage exit 
rises. Therefore, the collecting surface area subject 
to the condensing region is increasing. The moisture 
collected at the drain port between third and fourth 
stages probably represents that collected on less 
than one row for 3% theoretical moisture and on up 
to two or more rows for 8% theoretical moisture. 

This explains why the slope of the data points is 
substantially greater than the slope of the calcula- 
ted lines. If the drain ports in Smith 1 s experimen- 
tal turbine are catching nearly all of the moisture 
collected on the blades and if the blade sections, 
spacing, and amount of turning of the experimental 
turbine rows are quite similar to that of the ninth 
stator of the Yankee turbine, then the theories of 
condensate spontaneous nucleation and deposition 
(taken together) somewhat over-estimate the 
actual amounts of moisture being collected in 
steam turbines. However, in the absence of definite 
knowledge on these points, no change in the pre- 
sent steam models of spontaneous nucleation and 
collection is indicated. 


2.5.3 Movement of Moisture on Bl ade Surfaces 
• Movement on Rotor and Stator Bl ad es 

The movement of collected moisture over 
the blade surfaces is not a critical part of the 

overall erosion model with respect to numerical pre- 
cision. The main value of the analysis is in point- 
ing out certain variables which may be neglected 
and in the added qualitative understanding of one 
of the sequences of events leading to turbine blade 
erosion. A most important conclusion which can 
be drawn from the analysis is that the carryover 
of collected moisture from stage to stage will be 
negligible in a well-drained turbine because the 
flow of liquid on the rotor blades is essentially 
radial. The liquid is therefore slung from the tip 
against the outer casing and can be efficiently 
collected by suitable drain slots. Another conclu- 
sion is that the liquid flow on the stators is essential- 
ly along the vapor streamlines. 

In this analysis, it is assumed that the col- 
lected moisture forms a continuous film controlled 
by the laws of viscous flow. Generally, the thick- 
ness and velocity of the moisture film are based on 
the force balance between the viscous shear of the 
film, vapor stream friction, and centrifugal force. 

The force on such a film from the radial pressure 
gradients in the turbines examined Es small com- 
pared to the other forces mentioned. It is also 
assumed that the moisture collects only on the con- 
cave side of the blades for purposes of numerical 
calculation. (Collection on the convex sides 
through the action of secondary flows is neglected.) 
This is a conservative assumption since it places a 
higher liquid load per unit of surface on the blade 
than is probably actually present. Since different 
procedures are involved for the stator and rotor 
blade calculations, the discussion is by separate 
topics, 

• Rotor Blade Moisture Transport Model & Results 

The main equation, based on the Navier- 
Stokes equations, relates the centrifugal force to 
the viscous shear of the film. This assumes that the 
flow is in the radial direction and is only acted 
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1/3 


upon by the centrifugal force. The error in this 
assumption is shown by calculating the axial force 
on the film (due to steam frict.on) and the axial film 
velocity for the ninth stator of the Yankee turbine. 


Assuming 2 percent moisture collection, the axia 
velocity is 0.88 fps compared to 6.5 fps velocity 
in the radial direction, corresponding to a 7.8 
degree angle of flow with respect to the radial 
direction. Assuming the flow is in the radio 
direction only and disregarding the low order 
terms, the Navier-Stokes equations reduce to: 


F 



y Z 



where the body force F is the centrifugal force. 

Integration with boundary conditions as^ 
specified by a parabolic velocity distribution gives: 

lJ— -FSy = -H u ^ 

The mass flow and velocity are specified by con- 
Hnuity as: 

dm^ = p ^ Zudy 

1 dm_, (2) 

u ' -T^IT dy 

Combining (1) and (2) and integrating force gives: 


Substituting for the centrifugal force: P L W r 
gives the final expression for Sat the 
tip of the blade: 


6 = 



( 3 ) 


k 1 7 3 


_ "1 
u = >.Z6 


I r w 


(4) 


This assumes that the flow is uniformly distributed 
over the surface of the blade. 


The calculation also assumes a parabolic 
/elocity distribution with film thickness. The 
latter assumption is for calculation purposes an 
could be improved upon by detailed investigation 
of the amount and distribution of moisture. As o 
the width of the film, the film thickness and mass 
average velocity at the tip of the blade are inversely 
proportional to the 1/3 power and 2/3 power of the 
film width respectively; thus, the film thickness 
and mass average velocity would be 1.26 and 1.5V 
times the calculated values, for full width, if the 
film extended over half the width of the blade. 

In the case of radial distributions, with a triangular 
distribution of film thickness along the height of 
the blade, the centrifugal force F would be roughly 
0 58, the film thickness 1.2, and the velocity 0.83 
times the calculated values for constant radial 
thickness. As to the moisture flow (m L ), the film 
thickness and velocity are directly proportional to 

, _ i /o « C 4-Ua P I 


TABLE 2. 5. 3-1 


YANKEE TURBINE, EIGHTH ROTOR LIQUID 
FLOW 



pVf 


0.005 0.215 

0.010 0.43 

0.020 0.86 

0.050 

0.100 4.30 


4 x 10-* 
f 


iEi_ 


1 .59 2.58 7.65 

2.02 4.11 15.3 

2 .52 6.49 30.6 

3.44 12-0 76 - 5 

4.31 18.9 153.0 


Using the expressions just developed, para- 
5t ric calculations for the eighth rotor of the 
ankee steam turbine were carried out. The resul 
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are shown in Table 2.5.3- 1. The parameter varied 
is the fraction (<) of equilibrium moisture collected 
since this quantity depends upon inputs from the 
rest of the model. Note that the film velocity (u) 
is the mass average at the tip of the blade. 


Combining (5) and (6) gives 



(7) 


• Stator Blade Moisture Transport Model & Results 


The main equation, based on the viscosity 
expression, relates the viscous shear to the axial 
force due to the steam friction drag and the im- 
pingement of the moisture particles. It is assumed 
that there is a linear velocity distribution with film 
thickness and that the flow per unit blade height 
(at the 3/4 section) is the average unit flow along 
the height of the blade. This assumption could be 
improved upon by detailed investigation of the 
radial distribution. The viscous shear in the liquid 
film is given by: 


The viscous shear on the film is due to the drag of 
the vapor and the force of the impinging drops, i.e.. 


- C f P S 




( 8 ) 


where the boundary layer friction coefficient (C^). 
in the region of the trailing edge is specified as: 

0.268 

(Sch I ichting) 

(9) 


C f = 2 x 0.123 x 10 


,-0.678 H^V9^~ 


where 0 and H are boundary layer parameters. 
Equations (7) and (8) may be combined to give: 


assuming a linear velocity distribution: 


u 

max 



2p L u 


(5) 


fr m L H L 


J/2 


X Z 


00 ) 


where 6 and u are the film thickness and mass 
average velocity. The flow of liquid is by con- 
tinuity: 

^ 75 u 


and 


u 


m 


L 

Z 6 


(6) 


at the blade exit position assuming that the flow is 
evenly distributed over the distance Z (see sketch 
that follows). 


z 



The film Reynolds Number is by definition: 


Re L = u Sp l /m l 


(ID 


Note that the axial force by the drag of 
the vapor is specified by the wall shearing stress 
of the boundary layer. The axial force due to the 
momentum of the impinging drops depends on the 
amount of the collection: for 1/2, 2, and 10 per- 
cent collection, the momentum force is roughly 
5, 20, and 100 percent of the vapor drag force (r). 

As the amount of moisture collected depends 
on inputs from the other parts of the program, calcu- 
lated film properties are, with respect to the amount 
of equilfbrium moisture collected, designated as 
t . Results for the Yankee steam turbine ninth stator 
are given In Table 2.4. 3-2, following. As shown, 
the film thickness and velocity are roughly pro- 
portional to the square root of «, when < is less 
than 0.05. The velocity (u) is the mass average 
value at the trailing edge of the blade. 
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TABLE 2. 5. 3-2 


YANKEE STEAM TURBINE, NINTH STATOR 



liquid flow 



to L * 10 4 

10 5 
i * 

- 






Re. 

* - 

p-*/f 

_r 

l£t— 

L 

0.005 

0.63 

2.58 

0.404 

T.55 

0.010 

1.26 

3.56 

0.585 

3.1 

0.020 

2.53 

4.81 

0.869 

6.23 

0.050 

6. XI 

6.75 

1.54 

15.5 

0.100 

12.6 

8.22 

2.54 

31.0 


From limited data (Gardner , Baker ) 
it appears that there are ripples on the surface of 
the film when the film Reynolds Number (Re^) is 
greater than 4, corresponding to e greater than 
roughly 1 percent. These ripples probably affect 
the size of the drops from the blades as discussed in 
Section 2.7 under atomization. 


2.5.4 Collection on Turbine Casing* 


• Background 

In conventional (steam) wet vapor turbine 
designs, the moisture leaving the turbine vanes and 
collecting on the turbine casing is removed by slots 
in the casing. The design of alkali metal vapor 
turbines might be considerably simplified if slots 
were unnecessary. However, if an appreciable 
amount of condensate collects on the turbine casing 
and is not removed, casing and rotor blade seal strip 
erosion may result. A rudimentary examination of 
casing flows for the cesium and potassium turbines 

design of NAS 5-250* is reported in the following 
paragraphs. 

• Condensate Collection on the Turbine Casing 

It is expected that essentially all of the 
liquid collected on the turbine blades ends up on 
the turbine casing because of the centrifugal action 
of the turbine rotors. The drops formed departing 
the rotor blade tips impinge on the turbine casing. 
Along the turbine stages, a liquid film builds up on 
the turbine casing. The impingement of liquid drops 


on the condensate film probably causes splashing 
and some removal of the liquid from the film. How- 
ever, the net amount of condensate collected on 
the casing cannot be easily estimated; therefore, it 
is assumed that all of the condensate impinging on 
the turbine casing is collected. The amount of fog 
particles collected per turbine blade per unit blade 
height can be estimated by use of equations 15 and 
16 of Section 2.5,2, and it is assumed that this 
same amount impinges and collects on the turbine 
housing. 

The calculation of the amount of moisture 
collected per stage required an iteration procedure. 
The total condensed moisture was used to initiate 
the calculations. From these values, the average 
moisture content was calculated, from which the 
term (1 - x )/x was calculated. The condensate 
collected was tfien calculated from equation 15 or 
16. The amount collected was then subtracted from 
the total condensate to yield the moisture content 
of the vapor. The calculations converged rapidly, 
however. The results of the calculations for the six- 
stage potassium turbine and the two-stage cesium 
turbine are presented in Tables 2.5,4- 1 and 2.5. 4-2 
respectively. 


TABLE 2.5. 4-1 

MOISTURE COLLECTION ON TURBINE HOUSING 
SIX-STAGE POTASSIUM TURBINE 


Row Slumber 

Net Collection 
Efficiency {%) 

Effective 

Moliture 

Q, r Net 
Op/tec) 

Cumulative Condensate 
Collected (Ib/tec) 

3R 

0.12 

0.0005 

3.6 * 10‘ 4 

3.6 k 10' 6 

4S 

0.B3 

0,040 

0.0019 

0.0019 

4R 

1.55 

0.088 

0.0078 

0.0097 

5$ 

1.60 

0.107 

0.0098 

0.0195 

5R 

1.76 

0.119 

0.0121 

0,0316 

6$ 1 

1.90 

0.127 

0.0139 

0. 0555 

6R 

0,78 

0.136 

0.0061 

0.0616 


Pinal percentage of total moitture collected it 7.8% 


TABLE 2. 5-4-2 

MOISTURE COLLECTION ON TURBINE HOUSING 
TWO-STAGE CESIUM TURBINE 


Raw Number 

Net Collection 
Efficiency {%) 

Effective 

Moitture 

Q„ Net 
(lb/*ec) 

Cumulative Conderwate 
Collected (lb/*ec) 

15 

0.04 

o.on 

9. 1 x 10’^ 

9.1 x 10^ 

1 R 

0. 55 

0.059 

3.3 x 10' 4 

4.2 x 10 

2S 

0.62 

0.122 

0.0011 

0.0015 

2R 

0.34 

0.153 

0. 0016 

0.0031 


♦See Section 1.2.3 for additional detail on the 
turbines. 
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Pinal percentage of total moitture collected 1* 0. 106% 





The last two columns of the tables give, 
respectively, the total condensate collected on each 
row and the cumulative condensate collected on the 
turbine housing. It is seen that, for the six-stage 
potassium turbine, 7.8 percent of the total moisture 
content eventually collected on the turbine housing. 
In comparison, the percentage of the total moisture 
collected on the cesium turbine housing is 0.106 
percent. The significantly smaller amount of mois- 
ture collected on the cesium turbine housing is 
due to the fact that fewer stages are required for 
the cesium turbine. 



Figure 2. 5. 4-1 Bakers Map of Two-Phase Flow 


The estimated moisture collection may be 
conservative since it was assumed that impingement 
of liquid droplets on the condensate film and the 
resulting splashing does not cause a net removal of 
the condensate; consequently, the actual collection 
may be less than that indicated by fhe calculated 
results. 

• Stability of Condensate Collected on the Turbine 
Casing 

In addition to the possibility of condensate 
removal by splashing, there is also the possibility 
that under the given hydrodynamic conditions the 
liquid film may be unstable and the condensate may 
be removed by shear forces at the vapor-liquid 
Interface. In an attempt to resolve this question, 
the mode(s) of two -phase flow expected under the 
given conditions are related to the two-phase 
flow map of Baker,' 00 ', Baker presents a map 
showing regions of various modes of two-phase flow 
as functions of two-phase flow parameters. Baker's 
map is reproduced in Figure 2.5, 4-1. The map con- 
sists of a plot of the logarithm of G/x versus the 
logarithm of LX'/'/G, where G and L are the vapor 
and liquid mass velocities, respectively. Here, X 
is a density parameter defined as 


Calculations for the various stages of the tv^p tur- 
bines give values of G/x on the order of 10° and 
values of LXV/G less than 10”^. As can be seen, 
these values are out of the range from Baker* s map. 

An "eyeball" extrapolation of the map would place 
the flow in the wave flow regime. Such an extra- 
polation is, of course, not trustworthy. In wave flow, 
it is expected that some of the wave crests would be 
carried away into the vapor. If annular flow pre- 
vails, substantial removal of liquid from the casing 
film Is expected. If fog flow Is present, then all of 
the liquid film would be entrained in the vapor as 
fog. About the best that can be concluded at this 
time is that some dispersion of the casing liquid is 
indicated. 

• Condensate Film Thicknesses on the Turbine 
Housings ~ ~~ 

The condensate film thicknesses on the tur- 
bine housings were estimated by the theory of 
Wrobel and McManus. (?) These investigators analyzed 
the film depth and wave height in annular two- 
phase flow and derived an equation relating the film 
depth to the film flow rate and the gas Reynold's 
number. The results checked reasonably well with 
the limited available data. The complete equation 
of Wrobel and McManus is 


\( * G \ 

(*i \ 

■ (.i.. 

' I (R/5)-iY 

Inf 2 95 ° 1 

\0.075 J 

\ 62.3 ) 

T l R v N J 

o \ o v re, v f 

\ 1-10/5 y 


and ^is a surface tension parameter defined by 


t = 


73 


/ 62.3 \ 

Wl 


1/3 


where Q| + is the dimensionless liquid flow rate 
given by 6U. 


( 12 ) 


and 6 
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where Q^ + is the dimensionless liquid flow rote given by 
with U* the friction velocityj^/^ . 

The constants A and B in Eq. (12) depend on 
the shear profile assumed. For a constant shear 
profile, A = 265 and B = 17.9, 

From continuity, 

W L - 0-e L *U L (13) 


where U, is the mean film velocity, and D is the 
local turbine casing inside diameter. From Eq. (13) 


6 U = 
L 

L 

irDe L 


(14) 

whence 

_ + 

« U L 

W L 

(15) 


+ _ ° L = 3 

L v T D Hj_ 


with 

s * ■ 10 4 28 (tt) (^t) 

The condensate flow rates are based on the 
turbine casing inside diameter. Parametric curves 
for the film height are presented in Figures 2. 5.4-2 
and 3. Estimates on the depth of liquid film on the 
potassium and cesium turbines of NAS 5-250 are 
given in Tables 2. 5. 4-3 and 4. 




Figure 2. 5. 4-3 Effect of Vapor Reynold's Number 
on Film Thickness 


TABLE 2.5. 4-3 

ESTIMATED CONDENSATE FILM DEPTH ON 
TURBINE HOUSING SIX-STAGE 
POTASSIUM TURBINE 


Blod. Row 

Exit 

Cumulative Condanwt. 
Flaw fat. (pf») 

Q + 

N * 10' 5 

*/» x 10* 

(Jh) 


3.A x t(f 4 . 

0.038 

5.12 

0,071 

0.00 6 

45 

1.89* lO’f 

14, 3 

5.04 

1.2B 

0.122 

4R 

9. 71 * 10 

71.5 

4.94 

2. 84 

0.317 

5S 

0.0195 

133. 

4,95 

3.A9 

0.496 

5* 

0. 0316 

197. 

4.89 

4.38 

0.712 

AS 

0.0555 

324. 

4, 84 

5.70 

1.07 

6R 

0.061A 

338. 

4,83 

5,64 

1.28 


TABLE 2. 5. 4-4 

ESTIMATED CONDENSATE FILM DEPTH ON 
TURBINE HOUSING TWO-STAGE CESIUM 
TURBINE 


Mad. Row 

Exit 

Cumulattv* Conderwat* 
Flaw (kite (pf») 

Q + 

N re v* ] ° 6 

‘/V° 5 

(•il*) 

15 

1 R 

9. 1 x 10' 4 

0.981 

1.17 

3.22 

0.0124 

4.2 x 10“ 4 

3.77 

1.26 

4.19 

0.0259 

2S 

0.0015 

11.6 

1.31 

5.77 

0.0649 

2* 

0.0031 

20.2 

1.35 

6. 48 

0. 129 


Figure 2. 5.4-2 Effect of Condensate Film Reynold's 
Number on Film Thickness 
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TABLE 2. 5. 4-5 


• Average Drop Size Sheared From Casing Liquid 

It Is anticipated that the condensate film 
flowing over the casing will at least in part be 
atomized. Since this is presumably a random pro- 
cess, some of the drops will have relatively short 
time-of-flight available before Impinging on the 
rotor blades. These drops can be relatively large 
and the resulting erosion on the rotor blades might 
be severe. 

The average droplet size was estimated on 
the basis of the sheet atomization mechanism as 
given in Section 2.7. The equation derived for the 
average droplet size is 


MEAN DROPLET SIZES FROM SHEET ATOM 
IZATION OF CONDENSATE ON THE 
POTASSIUM AND CESIUM TURBINE 
HOUSINGS 


Turbin* Hovclng at 
Bla* Row Exit 

(micron*) 

6K - 38 

4.40 

4K -45 

75.3 

6K - 48 

149. 

6K - 55 

235. 

6K -58 

331. 

6K -6S 

455. 

6K >48 

467. 

20 - IS 

5.38 

20 -18 

5.06 

20 - 2$ 

17.4 

20 -2* 

40.7 



For the turbine casing, the momentum term 
Is negligible compared to the wall friction term, and 
the equation reduces to 
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2 6 TRANSPORT OF ATOMIZED DROPS BE- 
TWEEN STATORS AND ROTORS (ADROP 
CODE)* 


2.6.1 Background 

This section describes the detailed aspects 
of the tubular blade erosion model which deals with 
the transport of potentially damaging liquid in the 
axial space between stator exit planes and rotor 
inlet planes. 

The source of most of the potentially damag- 
ing moisture in steam and alkali metal turbines is the 
process of condensation in the bulk vapor by spon- 
taneous nucleation. The condensate particles are^ 
generally less than a micron in diameter, so that if 
the turbine is well designed and orderly flow pre- 
vails, most of the moisture will follow the vapor 
streamlines and will exit from the turbine without 
interacting with the blades. A small fraction of the 
condensate fog will, however, tend to collect on 
blade surfaces because of the curvature of the flow 
passages and the rotation of the moving blades. 


'* T. C. Varljen, Supervisor, Systems & Technology, 
Astronuclear Laboratory, Westinghouse Electric 
Corporation, Pittsburgh, Pa, 15236 


These impacts by themselves cause negligible damage 
because of the small size of the particles involved. 

The moisture collected in this fashion on stator pas- 
sage walls is carried along axially by the drag forces 
of the vapor stream toward the downstream end of 
the stator. The liquid is then torn away from the 
stator trailing edge in a primary atomization process. 

A wide spectrum of drop sizes is produced, with some 
diameters approaching the stator trai ling-edge thick- 
ness. Most of the observed impact erosion damage is 
caused by drops formed in this manner. 

Condensation directly on blade surfaces and 
boiler carry-over are other sources of moisture which 
may be considered. These would tend to dominate in 
mercury vapor machines, for instance, where con- 
densation in the bulk vapor is theoretically negligible.. 

The work presented here is concerned with 
the motion of the moisture, regardless of its origin, 
after the conclusion of primary atomization. The 
analytical basis of the transport model will be dis- 
cussed and a digital computer code package called 
ADROP will be described. This code is written in 
FORTRAN IV and was developed to unify the various 
numerical procedures involved in this phase of the 
overall turbine blade erosion model. 


2.6.2 Analytical Model of Atomized Drop Trans- 
port 

The central problem is the solution of the 
equation of motion of a drop of liquid in the space 
between the stator from which it was discharged and 
the rotor inlet plane. Mechanical erosion rates tend 
to be drop-size and velocity dependent. The upper 
limit of drop sizes which will impact the rotor blades 
is largely determined by the vapor wake characteris- 
tics immediately downstream of the stators. 


The primary drops are caught up in the de- 
caying wake. Some of these will simply be accelera- 
ted to some fraction of the local vapor velocity and 
will ultimately impact upon the rotors. Drops at the 
upper end of the size spectrum produced by primary 
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atomization will be unstable with respect to the 
applied aerodynamic forces and will fragment prior 
to impact. The latter process will be termed 
"secondary atomization." Drops traveling along 
streamlines near the edge of the stator wakes are sub- 
ject to the greatest aerodynamic forces, while drops 
moving along the wake axis, essentially in the trough 
of the velocity defect, will experience the least 
amount of disruption. The largest, and hence po- 
tentially the most damaging, drops which reach the 
rotors will be those which move on streamlines near 
the wake centerline. 

The study of the motion of atomized con- 
densate has been undertaken on several levels. First, 
relatively simple closed form solutions of the equation 
of motion were obtained for certain special cases. 

A completely general dimensionless formulation of 
the equation of motion was also obtained and solved 
numerically. Finally, a detailed calculational pro- 
cedure was developed to provide special solutions. 


• The Bulk Flow Impact Ve locity 


A closed form solution to the drop motion 
problem has been derived for the special case of a 
drop moving along the wake-edge under bulk flow 
conditions. The aerodynamic force on a detached 
drop is given by: 


1/2 C D p, 


vV 

r d 


0 ) 


Two assumptions were made to get a closed-form 
solution to the above. First, the local vapor velocity 
was assumed to be constant and equal to the bulk 
flow velocity at the stator exit plane (U = U Q ), and 
second, the following form of the drag coefficient 
was assumed: 


C = 
D 


oRe^ 


-i b 


(U - V ) p D 
o a v a 


(3) 


Unfortunately the drag coefficient cannot (as far as 
we know) be represented by a single general re- 
lationship aRe^ over the Reynolds Number range of 
interest. According to Lambiris and Combs^U, f or 
the distorted drops: 


-84 

C D - 27 Re 0< Re <80 (4a) 

C D = .271 Re 217 80<Re <10 4 ( 4b > 


C D - 2 10 4 < Re (4 C ) 

The data which the above relations fit is shown 
graphically in Figure 2.6-1. Experimental data from 
References (1) and (2) are shown. The solution to 
the equation of motion, relating distance traveled 
and drop terminal velocity, covering cases (4a) and 
(4b), was found to be 




(b ♦ 1) 


( 5 ) 


For the case of a constant drag coefficient (case 4c 
for instance) the following solution was obtained: 


where A^ is the drop cross-sectional area and V is 
the relative velocity of the drop with respect to r the 
local vapor stream velocity. That is V - U - Vd. 

If the drop remains intact,its equation of motion will 
be; 


7T 

6 



or: 



d f 4 




(U-v/ 


( 2 ) 





( 6 ) 



Figure 2.6-1 Drag of Spheres and Liquid Drops 
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The basic equation of motion, now 
wake axis streamline Is then: 


written for the 


Note that Cj^ is associated with Re^ the bulk flow 
Reynolds Number. Three distinct closed form solu- 
tions have therefore been obtained corresponding 
to the three Reynolds Number ranges used to repre- 
sent the drag coefficient. A convenient dimensionless 
representation of these solutions is shown in Figure 
2 6-2 The drop terminal -to-free-stream velocity 
ratio is plotted as a function of the parameter group 

L*S . If the local Reynolds Number of a 

V Dd / rw Do 

drop stays completely within one of the Reynolds 
Number ranges throughout its trajectory, the approp- 
riate general trajectory curve will be followed. 
Otherwise, the curves form an envelope covering the 
behavior of cases where the Reynolds Number drops 


from one range to the next. 



# rungral Dimensionless Formulation 


For the general case of motion with a vari- 
able field (te., within a stator wake for instance) a 
closed form solution does not seem possible because 
of the complexity of the resulting equation of motion. 
It has been noted that from the point of view of the 
erosion model the most important path of drop motion 
is near the axis of the stator wake. 

Leiblein and Roudebush® have correlated 
the variation of wake trough velocity with down- 
stream distance with the following expression: 

u . = U (1 - .13/7— + .025) (7) 

mm o c 

The above is based on a limited amount of data for 
blade cascades with essentially zero trailing-edge 
thicknesses. 




when the drag coefficient is represented functionally 
by: 


c „ - f 


f(U. - 


V , 


P D , 
v a 

H v 


Now abbreviating eq (8) so that )/ 

where * = x/c, leads to 

with K d as the inertial parameter: 


( 9 ) 


The above has been solved numerically for 
the velocity ratio as a function of referred distance 
along the wake axis (x/c) with Kj and Re Q as para- 
meters. Figure 2.6-3 shows a few of the solutions 
which have been obtained. 



These solutions by themselves are instructive 
guides to the overall relations between the parameters 
It is conceivable that a least squares analysis of the 
various relations could be used to produce a "univer- 
sal solution" curve of the form: 
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( 12 ) 



From the point of view of turbine erosion, however, 
knowledge of the ultimate Impact velocity is not 
sufficient and must be complemented by a secondary 
atomization study. It is for this reason that the de- 
tailed computer model was developed. 

2.6.3 Computer Model of Atomized Drop Trans- 
port ~~ ~™ " ~ - 


The scope of the ADROP code package is 
as follows: 

a) Estimation of stator blade boundary- 
layer characteristics 

b) Generation of the local velocity field 
within the vapor wake downstream of stator blades 

c) Numerical integration of the equation 
of motion of drops traveling along various wake 
streamlines and the estimation of secondary atomiza- 
tion effects. 


d) Solution of drop impact velocity tri- 
angles to provide information on the magnitude of 
the normal component of impact velocity and the 
physical location of erosion. 

• Stator Blade Boundary Layer Characteristics 

The vapor wake downstream of stator blades 
is assumed to be controlled primarily by the viscous 
dissipation of the boundary layer at the trailing-edge 
of the blades. The boundary layer properties required 
include the momentum thickness, displacement thick- 
ness, full thickness, and the form factor. The 
local momentum thickness of the boundary layer,.* 
is found by integrating a form of Truckenbrodt' s' ' 
equation: 


i 

T" " 


o 


*i n + 1 S/s „ , 

, . -J tr . v r o . i 3 + 2/n n 

ft) M ' / ft) 


rV^n + 1) 


(ID 


0 7 

C f = .074/Re 

In this statement of the Truckenbrodt 
equation it was assumed that the boundary layer 
Is turbulent along the entire blade length. This is a 
useful approximation and does not have an appreciable 
effect on the results at the trailing edge. The shape 
factor may be obtained as shown in 

;rrr) + - 0304 in Re + in 



L = - .23 + .0076 | 


where: 



As before laminar terms do not appear in the 
equations and the Integrations are performed to the 
inlet edge of the blade, rather than to the laminar- 
turbulent transition point. The form factor H is 
related to the shape factor by: 


L =/ TTTT IT 04) 

J E 

o 

where E and H are related empirically by: 

e _ 1.269 H 

H - .379 (15) 

The lower limit of integration, E q , is taken 
as 1,74 to make L = zero correspond to the case of 
the flat plate with zero pressure gradient, i.e., H = 
1.4. The empirical form (eq. 15) is In good agreement 
with experimental data below H = 1.7 (Ref. 6). For 
larger values of H the correlation breaks down so that 
the equation is supplemented by a table of experi- 
mental data for use when 1 .6 < H < 2.6. 


The remaining local boundary layer characteristics 
may be found after Schlichting^ by applying the 
general power-law velocity-distribution where: 

U !/ n 

77 = ~h 0*> 

so fhah 


where the exponent n is taken to be six, correspond- 
ing to large Reynolds numbers, and the friction factor and 

is specified by the empirical expression for flat 
plate, turbulent flow: 


n 


2 

T TT 


( 17 ) 


A* 

6 



(18) 
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The Generation of Stator Woke Velocity Profiles 


The objective is to obtain a two-dimension- 
al representation of the vapor velocity field between 
a stator exit plane and the inlet plane of the follow- 
ing rotor. Most of the work which has been done in 
this area has been oriented toward evaluating overall 
loss coefficients. There has apparently been very 
little interest in the fine structure of wakes per se. 
The work of Lieblein and Roudebush^ comes closest 
to satisfying the requirements of the transport model 
In this respect. The analysis just cited deals with the 
low-speed wake characteristics of two-dimensional 
cascade and isolated airfoil sections. Strictly speak- 
ing, the conditions present in axial flow turbines are 
not quite the same as those assumed in the analysis. 


The approach taken by Lieblein and Roude- 
bush is to assume that the wake is formed by the 
merging of the boundary layers on the upper and 
lower blade surfaces at the trailing edge. The wake 
is eventually re-energized by a mixing process be- 
tween the wake and the free-stream flow. The varia 
tion of certain wake properties with downstream 
distance is then predicted from both empirical and 
theoretical considerations. 


A qualitative picture of the velocity pro- 
files normal to the wake trough is shown in Figure 
2 6-4. Note that the inclination of the wake center- 
line to the turbine axis is a slowly varying function 
of axial distance. Similarly, the wake minimum 
velocity increases and the wake-edge velocity or 
free-stream velocity decreases slightly with distance 
as a result of momentum transfer as the wake re- 
energizes. 

The wake model appears to be particularly 
good where the ratio of blade trai ling-edge thickness 
to chord length approaches zero and at a nomina 
distance downstream of the trailing edge. It is clear 
that very complex flow patterns will exist immediately 
downstream of blades of finite trailing-edge thick- 
ness. In fact,separate vortex flow may exist in many 
cases. The characteristics of the wake near the 
trailing edge are very important from the erosion 
point of view and directly affect the question of the 
upper size limit of drops reaching the rotor plane. 


The atomized drops from the stator are shed 
into this region of complex flow. There is probably 
a sheltered region immediately downstream of the 
blade with components of flow both transverse an 
axial. Steam turbine observations indicate that the 
drops will migrate rather slowly deep in the wake 
and at some point downstream are suddenly caught 
up and accelerated. Because of the uncertainty in 
this process a "dead-space" correction of about four 
trailing edge thicknesses has been arbitrarily intro- 
duced. The integration of the drop equation of mo- 
tion is therefore begun at the edge of the dead space 
rather than at the blade trailing-edge. 

The variation of wake trough velocity has 
previously been given (eq. 7 above). No consistent 
quantitative model for the actual shape of the trans- 
verse profile has been advanced. Provided the mini- 
mum and wake-edge velocities are reasonably correct, 
a half-sine curve fit to the two known points should 
yield consistent results for the transverse velocity 
profile. Ibis method does not, however, account for 
the observed asymmetry in the wake. At . e trai ing 
edge the effective total boundary layer thickness 

Is the sum: 5 te = 8 p, te + Ss ' te ^ 20) 


The remaining trailing edge properties may be obtain- 



Figure 2.6-4 Qualitative Representation of Vapor 
Wake Development Downstream of a 
Stator Blade Section 
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The variation of the wake form factor was fitted in 
(6) by: 

x / H -1 v ^ 

' !r757: -bC~)^ 

The wake momentum thickness parameters, 9 , and 
the flow angle simultaneously satisfy: 


4 


1 - 40 x c 


i - (i + h ) L — 

X ' x' o 2 n 
2 cos 0 


o - $ Hr 

X X 

1 - £ (1 - H ) 


constant = (25) 


0 - 9 H ) 

x x 


— — tan 0^ = constant = yj K_ 


where: 




x COS ^ x 


2 
(26) 

(27) 


Equations (25) and (26) may be solved by 
simultaneous iteration for 9 x and f3 The constants 
are evaluated in terms of the trailing edge condition, 
H. , 9 and & . The wake-edge velocity may 

then be found fr'oV 


V (6/2, x) cos 0^ (I - £ H^) = constant = k 3 (28) 


The ratio V m j n , x/V (6, x) is specified by the trough 
velocity equation(7) so that by applying (28) the 
trough velocity is obtained. Using a half-sine fit 
the transverse velocity profile is then: 


V(y,x) 

“vTs/2, x ) 



V 

min, x 

VTsfr, 





Transverse wake position Is specified by the ratio 
y/(6/2), which is unity at the wake edge and zero 
at the centerline. 


The latter positions are generally the most interest- 
ing. It is assumed that if a drop starts out on a par- 
ticular streamline y/(6/2), it continues in this 
relative position until it impacts. 

• Drop Acceleration and Secondary Atomizatio n* 

The drop size spectrum from primary atomi- 
zation may be estimated using the method given in 
Section 2,7. The empirical Nukiyama-Tanasawa 
distribution function is applied and from these re- 


sults a suitable group of drop sizes may be chosen 
for the drop transport analysis. The general drop 
equation of motion (eq. 2) may be solved for the 
drop terminal velocity as a function of drop size and 
wake position, with the local vapor velocity within 
the wake obtained following the procedure outlined 
above. 


The conditions for subsequent drop frag- 
mentation or secondary atomization may be correla- 
ted in terms of a critical Weber Number. This sub- 
ject has been given much attention in the atomization 
literature in recent years; however, a consistent 
guide to its formulation remains to be found.** 

Much of the empirical work has been done with 
steam or air streams and correlations suitable for use 
with liquid metal systems remain to be substantiated, 
Gardner* 7 ', for instance, recognized two regimes 
for the critical Weber Number In steam systems. For 
cases where drops were Introduced into a relatively 
slow-moving stream, which was gradually accelerated, 
he recommends a "steady-flow" critical Weber Num- 
ber of 22. For the case of abrupt acceleration he 
recommends a "shock" critical Weber Number of 13. 
Other authors (Nicholson(S) for Instance) have re- 
ported an even wider range of critical Weber num- 
bers. In lieu of more definitive data we have ten- 
tatively adopted Gardners' results with the following 
rationale. The Weber Number is defined by: 



° L 


and is essentially the ratio of the local dynamic 
force to the surface tension. In the low pressure end 
of steam turbines the drop relative velocity, hence 
drop Weber Number, increases gradually to a maxi- 
mum and then decreases with downstream travel. 

The conditions fit the "steady-flow" Weber Number 


* A comparison of calculated values of drop velocity 
for the Yankee turbine and experimental values from 
a CERL steam cascade is given in Appendix 2.6 to 
this section. 

** A more detailed discussion of this subject is 
undertaken in Section 2.7. 
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criterion of 22. In small alkali metal turbines the on 
set of acceleration is quite abrupt, with the peak 
Weber Number occurring initially. This situation 
suggests use of the "shock" critical Weber Number 
for these systems. 


As far as the trajectory model is concerned, 
therefore, secondary atomization is assumed to begin 
when a certain fixed Weber Number is exceeded 
anywhere along the trajectory of a drop. _ The dis- 
ruption process takes a finite amount of time and it 
is usually important to know whether the distance 
between blade rows is sufficient to insure complete 
atomization of all unstable drops. From basic con- 
siderations it can be shown (9) that the disruption time 
shows the following dependence: 

. - 

r N v 

From the data of Wolfe and Anderson the time to 
the start of disruption was estimated to be: 


1.1 


(32) 


and the elapsed time to complete breakup was: 



In the trajectory model reported here, when 
the local drop Weber Number exceeds the critical 
value at some time t, the disruption time t' ' is 
computed. Disruption is assumed to be completed at 
that point on the trajectory where time t + t 1 
has elopsed. Presumably for drops with maximum 
Weber Numbers close to critical the drop may revert 
to a more stable condition prior to time t + t ' . How- 
ever, the uncertainty in the magnitude of the critical 
Weber Number precludes the use of such a refine- 
ment at this time. 


When a primary drop disintegrates, a spec- 
trum of secondary drop sizes may be expected, just 
as in the case of primary atomization. The mass 
mean diameter D‘ d of the secondary drops Is 
evaluated from the Wolfe-Anderson expression: 


D 


d 


136 Ml 


3 / 2 d 1/2 

„ l> d 



1/3 


(34) 


where all the quantities are evaluated for conditions 
at time t, that is, at the point where the critical 
Weber Number is first exceeded. 


When the above analysis is concluded for a 
given turbine stage, an upper limit for the size of 
impacting drops will be obtained. The original pri- 
mary drop distribution will be modified such that the 
"tail" extending beyond the maximum stable drop 
size will be removed. The fraction of the total spray 
volume represented by the tail represents the new 
secondary drop distribution which is now added to 
the original distribution. The mechanics of these 
calculations are discussed in Section 2.7. Compari- 
son of calculated secondary drop distributions ob- 
tained using equation 34 with actual measurements in 


. Impact Velocity and the Geometry of Impact^ 

The geometry conventions employed in this 
discussion are shown in Figure 2.6-5. Consider the 
inlet region of a rotor section at some fixed b ade 
height. The pitch, S, tangential blade speed u i» 
and the rotor inlet blade angle are thus fixed. The 
velocity V . is the terminal drop velocity which is 
obtained from the solution of the equation of motion 
discussed previously. The direction of V d is essen- 
tially that of the stator jet velocity; however, its 
magnitude depends on drop size. The drop velocity 
relative to the rotor is given by: 

(35) 


W , 


- 


■+ V , 


- 2U j V^sin Of 


The "shadow angle" satisfies: 

U, - V .sin a 

I a 


COS Oj 


W, 


(36) 


Depending on the angle of the blades and the angle 
of incidence of the drops, there will be generally 
a blade region which will be shadowed and free of 
damaging impacts. To estimate the extent of un- 
shadowed blade surface, a first approximation is to 
consider the "impaction length" AL defined along 
the tangent to the blade centerline at its nose. The 
actual impaction zone is the convex surface cut by 
the tangent line. A relation for AL in terms of the 
blade spacing S and angles o. and Oj is: 


AL 


sin(aT +<*j) 


(37) 
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Figure 2.6-5 Drop Impingement Geometry 


If the angles and a. are acute,the approximation 
is relatively good. Otherwise, scale drawings of 
the blades must be used. 

The treatment employed by the overall 
erosion model to estimate material removal holds 
that it is the normal component of the component of 
the impacting drop velocity which is most directly re- 
lated to the extent of damage. This component is 
obtained by noting that the angle 0 included between 
and W n is */2- - a.. Therefore: 


Wr = cos /3 = W cJ sin( a ^ + a.) (38) 


At the other extreme some of the smallest 
drops will amve at essentially free stream velocity 
so that |Wl~o. The normal velocity W n will be lar- 
gest when = o and will decrease linearly to zero 
when Vj reaches the free stream value. For some 
value of drop terminal velocity the vectors W and 
will coincide. Beyond this point, in the ejec- 
tion of higher terminal velocities and smaller drop 
diameters, the impact length concept breaks down. 
The significant impact area is the nose since is 
normal to the nose at some point. The cross-over 
point is represented analytically by the condition 
0= o. It follows then that: 


II 

o 

T 

~ 2 - a i 

(39) 

II 

>■* 

U , 

sin (cota, -1) 
do 

(40) 

II 

o 

y sin a 

do S4n a , 
do 

(41) 


Therefore, when V^V . the relative 
velocity will exceed W n anashould be considered 
as far as potential damage is concerned. Note that 
increasing the blade speed has the effect of increas- 
ing V do/ fhus decreasing the tendency of the damage 
to be confined to the nose area. 

2.6.4 Description of the A DROP Code Package 

The ADROP code is designed to examine 
in detail the transport of atomized condensate from 
the stator exit plane to the rotor inlet plane In wet 
vapor axial flow turbines. The code facilitates 
parameter surveys and can be used to systematically 
test the implications of various assumptions made in 
the model. The computational model as outlined in 
the previous section is far from definitive, in fact 
it represents a first cut at a comprehensive explana- 
tion of observed phenomena. 


Drops at the upper end of the size spectrun 
will have the smallest arrival velocity. In the limit 
for very small V^, (W.Wu I and the Impact region 
is essentially confined to the blade nose. Such a 
situation is very unlikely since the unbroken drops 
below the secondary atomization limit are accelera- 
ted to an appreciable fraction of the free stream 
velocity. 


A single stage and blade height position is 
examined at one time, however, as many problems as 
necessary may be run consecutively. Temperature- 
dependent working fluid properties are computed by 
an auxiliary subroutine, with a present capacity of 
eight materials: lithium, sodium, potassium, rubid- 
ium, cesium, mercury, NaK-78, and water. For a 
given stage, geometry, and bulk flow condition, a 
range of drop sizes are introduced into the vapor 
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stream at various wake positions. Terminal velocities 
are obtained for all drops. If the flow conditions are 
such that a drop satisfies the condition of aerodynam- 
ic instability, the approximate location of disruption 
is noted and the mass mean diameter of secondary 
drops is estimated. 

The program source language is FORTRAN 
IV. The code is oriented toward the CDC machines 
3600, 6400, and 6600; however, compatibility with 
equivalent IBM equipment can be achieved with a 
minimum of effort. On the CDC 6600 system opera- 
ted by the Westinghouse Tele -Computer Center the 
field length required by the code, associated system 
routines, and storage areas is 18,000 words decimal. 
Calculations and output are in cgs units, with inputs 
in common engineering units. Options are available 
to control the quantity of printed output and the se- 
quence of calculations. A source language listing of 
each item in the code package may be found in 
Appendix B to this section. 

• The Main Program 

Input functions, initialization, and option 
selection are handled by the main program. Data is 
input using the format-free NAMELIST feature. For 
each individual problem the input consists of a title 
card, and a sequence of cards defining quantities in 
the NAMELIST DRP. The 80-column card image of 
the title card is used to identify the output listing. 
Variables in the DRP list are /DRP/KOP, TR, VFREE, 
GDAT, XS, VS, XP, VP, PD, SD, PDS, SDS, PTH, 
STH, XQ, D1AM. 


It should be emphasized that only those 
numbers required to do a particular problem config- 
uration need to be input. Data is transferred from 
one problem to the next. Thus, the first problem in 
a series might have a complete input set f while sub- 
sequent problems might only require one or two in- 
put numbers. The input list variables involved are 
defined in Table 2.6-1. Blade surface velocity plots 
may be obtained in several ways. Our usual practice 
has been to employ the code of Reference 14 to 
generate this data. 

Material properties required for the working 
fluid in question are the density of vapor and liquid, 
the viscosity of vapor and liquid and the surface ten- 
sion of the liquid. These are obtained by calling 
subroutine PROPM. The data is then stored in com- 
mon block/PRP/ for later use. Table 2.6-2 lists the 
important common blocks used for intersubroutine 
communication. A specific sample problem will be 
discussed in Section 2.6 to illustrate the input and 
output formats. 

• Subroutine TRUCK 

The calculation of the boundary layer pro- 
perties along blade surface is handled in a code de- 
vised by W. K. Fentress. The code has been recast 
into subroutine form and incorporated into the ADROP 
system. The input surface velocity tables, which may 
contain as few as four points each is expanded into 
a 40-point table using parabolic spline interpolation 
(subroutine SPLINT). The Truckenbrodt boundary 
layer equation and the shape factor equation are 
then integrated by the trapezoidal method. 
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TABLE 2.6-1 


ADROP INPUT NAMELIST DEFINITIONS 


Name 

Definition 

Name 

Definition 

KOP(l) 

Working fluid sentinel (see definition 
of JFLUID on page 42) 

XQ 

Bulk vapor quality at stator exit. 


GDAT(l) 

Stator exit flow angle (angle a in 

KOP(2) 

Number of stator blades 


Figure 5) 

KOP(3) 

Number of rotor blades 

GDAT(2) 

Inlet rotor bfade angle (angle a. in 
Figure 5) 1 

KOP(4) 

Shaft RPM 

GDAT(3) 

Trailing-edge multiplier used to 

KOP(5) 

Boundary- layer calculation option 


define the dead-space. 


(subroutine TRUCK) <3 calculation 
is deleted. Otherwise KOP (5) 
specifies the number of referred 

GDAT(4) 

Critical Weber Number 


position-velocity pairs to be input. 

GDAT(5) 

Stator exit section diameter (inches) 

KOP(6) 

TRUCK IO sentinel. If KOP(6) > 0 
detailed boundary layer results will 

GDAT(6) 

Rotor inlet section diameter (inches) 


be printed. 

GDAT(7) 

Axial space between stator exit and 
rotor inlet planes (inches) 

KOP(7) 

TRAX option sentinel. ffKOP(7)<0 
trajectory calculations will be deleted. 
A value greater than zero sets the 

GDAT(8) 

Stator trailing-edge thickness (inches) 

GDAT(9) 


trajectory print interval. 

Stator chord length (inches) 

KOP(8) 

IMPAX option. If KOP(8) > 0 the 
drop impact geometry will be examined. 

GDAT(10) 

GDAT(ll) 

Pressure surface length (inches) 


Suction surface length (inches) 

KOP(9) 

Wake option. If KOP(9) > 0 full 
wake treatment will be used. Other- 

DIAM 

Array of nine drop diameters (microns) 


wise the approximate treatment is 
specified. 

XS, XP 

Arrays of referred positions in suction 
and pressure sides 

KOP(lO) 

Debug option 
= 0 option ignored 

VS, VP 

Arrays of referred surface velocities 


>0 data will be printed out during 


on suction and pressure sides. 


each wake iteration 
= 2 trajectory data will be printed 

PD, SD 

Pressure and suction side boundary 


for each trial integration step. 


layer thicknesses (cm) 

TR 

Bulk vapor temperature at stator exit 

PDS, SDS 

Pressure and suction side displacement 


(°R) 


thicknesses (cm) 

V FREE 

Stator exit jet velocity (feet/sec. ) 

PTH, STH 

Pressure and suction side momentum 
thicknesses (cm) 


2-171 



TABLE 2.6-2 


COMMON BLOCK LAYOUT IN PROGRAM 
ADROP 

BLOCK DEFINITIONS 

/PRP/MATJEMP, RHOV, RHOL, SIGL, VISL, VISV 
/TBG/CHORD, PITCH, BTE, PD , SD, PDS, SDS, PTH, STH, VZERO 
/3EO/NSTAT, NROTR, RPM, ALPHA, ALPHI, F DEAD, WDC, DSTAT, DROTR, AXSP, STE, 
SC HD, SPARC, SSARC 

/CST/JOB{10), J MAT (1 0), PI, RD, NYD, DIAM(10) 

/BUG/IBUG 


/tCON/H, 

HMAX, HMIN, 

RELB, ABS B 




arx/ • • • 










BLOCK REFERENCES 




MAIN 

TRUCK 

J RAX 

DERIV IMPAX 

WAKE 

ICEAD 

PRP 

X 

X 

X 

X 



TBG 

X 

X 

X 

X 

X 


GEO 

X 


X 

X 



CST 

X 

X 

X 

X X 



BUG 

X 



X 

X 


ICON 



X 

X 


X 

TRX 



X 

X 
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Calling Sequence 


Output listings which may be obtained are: 


Call TRUCK (M, $$, SP, XXS, XVS, XXP, 

XVP, 10) where: 

M is the number of surface velocity points to 

be input for each surface. 

SS is the length of the suction surface. 

SP Is the length of the pressure surface. 

XXS is the array of M suction surface referred 
position points. 

XVS is the array of referred surface velocities 
corresponding to each value of XXS. 

XXP,XVP are the position and velocity arrays for 
the pressure side 

10 ?s the output listing control sentinel. If 

I0> 0 a listing of boundary layer prop- 
erties along the blade will be obtained. 


Output quantities required for subsequent 
calculations in other subroutines are placed In com- 
mon block/TBG/. These are PD, SD, PDS, SDS, PTH, 
STH, which are the pressure and suction side trailing 
edge values of boundary layer, displacement and 
momentum thicknesses. No assumptions are made 
internally concerning units. The unit of length used 
for the surface lengths SS and SP, however, should 
be the same as that used in the thermophysical prop- 
erties. In the context of the A DROP code the units 
are cgs. 


Probable flow separation is indicated if the 
shape factor (Eq, 13 above) L ({) < -0.18 at any 
point. This condition is identified by a diagnostic 
message. If this situation occurs ,the integer 10 
is set to -10 before control returns to the main pro- 
gram. This is used to prevent the subsequent tra- 
jectory calculations from starting. Data for the 
next problem is then read in so that the failure of 
one problem will not interrupt the entire sequence. 


a) The input surface velocity tables 

b) Boundary layer properties at each sur- 
face position (optional) 

c) Summary of the trai ling -edge boundary 
layer values. 

A listing of the subroutine is given in 
Appendix B to this section. Note that common 
blocks PRP/, TBG/ and EST/ are required by the 
subroutine. 


• Subroutine WAKE 

The function of this subroutine is to provide 
the local vapor velocity at a specified position with- 
in a stator blade wake. Common block/TBG/is used 
to transmit the numerical values of the stator chord, 
exit pitch, jet velocity, and the boundary layer 
displacement and momentum thicknesses at the stator 
trail ing-edge. The calling sequence for the sub- 
routine is; 

CALL WAKE (NS, XX, YD, VXY, BX) 


where: 


XX 

is the distance from the trailing edge along 
the wake centerline where the vapor velo- 
city is required 

YD 

is the transverse position y/($/2) within 
the wake. It is necessary that (X YD < 1 

VXY 

is the output local vapor velocity 

BX 

is the local wake angle in radians, i.e., 
the inclination of the wake centerline to 
the turbine axis. 
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NS is used as a control sentinel which is set 
prior to the first WAKE CALL. If NS = 0 
when WAKE is called, the constants de- 
fined by Equations 25, 26 and 28 are eval- 
uated using trailing edge boundary layer 
data. WAKE changes NS to unity so that 
on subsequent calls the initialization section 
of the subroutine is skipped. If boundary 
layer data is not available, useful approxi- 
mate solutions may be obtained assuming a 
constant free stream velocity and flow angle 
downstream of the stator. In this case the 
user must preset NS = 1 . Only two values 
of YD may be used; YD = 0 or YD = 1 in 
this situation. 

The simultaneous iterative solution of 
equations 25, 26 and 28 is accomplished with the 
assistance of the auxiliary subroutine VERGE. If 
convergence of the iterative process has not been 
accomplished after 20 attempts, there is usually some- 
thing wrong with the input data. The process is sus- 
pended and a diagnostic printed out. The sentinel 
NS is set to 10 and control returned to the calling 
routine. It is recommended that NS be tested after 
each return so that appropriate action may be taken 
in the event of an Iteration failure. 

It is required that the unit of length used 
in the data in common block/TBG/be consistent with 
those employed in the Input arguments XX and VXY. 


• Subroutine TRAX 

TRAX is the control subroutine for the in- 
tegration of the drop equation of motion. A fourth- 
order Adams predictor-corrector method is used in 
auxi liary subroutine ICEAD to perform the actual 
numerical integration, TRAX initializes ICEAD for 
each trajectory and stores final results. These re- 
sults are eventually listed in a problem summary. 
Normally thirty trajectories are computed for each 
problem, i.e, one for each combination of the three 
wake positions (Y/(5/2) - 0,0.35, and 1) and the ten 
input drop diameters. If the approximate wake treat- 
ment is used, the two limiting wake positions (Y/ 
(15/2)= 0., 1) are used so that twenty trajectories are 
computed. 


The summary printout lists, for each drop 
diameter and wake positions, the tlme-of-f light, 
terminal drop velocity, initial and final relative 
velocities, the maximum Weber Number, and the fi- 
nal flow angle. A secondary atomization summary is 
also given. For each $rop that satisfies the disrup- 
tion criteria the summary lists the time-to-complete 
disruption, mass-mean diameter of secondary drops 
produced, drop velocity when the critical Weber 
Number is reached, and the referred distances to 
disruption. The absolute disruption distance is the 
total path length from the stator trailing edge to the 
estimated point of complete disruption. The first 
referred quantity gives the distance in drop diameters. 
The second gives the ratio of the absolute disruption 
distance to the total path length available between 
the stator and rotor planes. The distances are used 
to indicate whether there is sufficient space for the 
unstable primary drops to completely disintegrate 
before Impact. 

The Input argument 10 controls the print 
interval for the printout of values along the trajec- 
tory. If 10 < 0 the printout is deleted. The print 
interval is computed by: 

ZP = <AXSP-XDEAD)/(10-1) 

The effective total axial distance is the 
axial blade space minus the dead space. An input 
value of II, for instance, will yield 11 sets of values 
spaced at intervals of one-tenth the total distance. 

The actual printing is done by subroutine DERIV, 

• Subroutine DERIV 

This subroutine is used in c onjunction with 
the integration scheme ICEAD to provide derivatives, 
Intermediate printouts, and secondary atomization cal- 
culations. Three entry points DERIV, STEP and FAIL 
are employed. These satisfy the requirements of 
ICEAD. For each trail integration step ICEAD will 
call DERIV to obtain the derivatives associated with 
the simultaneous differential equations at that point. 
Certain error criteria are checked and if a given 
time step produces satisfactory results ENTRY STEP 
is called (the logic employed by ICEAD will be dis- 
cussed below). When a trial integration fails, the 
step size (in the time variable) is halved. The pro- 
cess continues until an integration step yields satis- 
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factory results or a fixed lower step size limit is 
reached. In the latter event ICEAD calls FAIL 
which takes appropriate action. 

Common blocks used in the subroutine are 
listed in Table 2.6-2. The calling sequence is as 
follows: 

CALL DERIV (T, Y, DY, IRET) 
where: 

T is the present value of the time variable 

Y is a two-word array containing the present 

values of drop velocity, Y (1), and dis- 
tance along the wake axis, Y (2). 

DY is a two word array containing the deriva- 
tives of Y (1) and Y (2) a 


and the stator exit fet velocity. Actually, the 
secondary atomization limit prevents the larger and 
slower moving drops from reaching the rotor. In any 
case the subroutine runs through all possible impact 
velocities and computes the drop velocity relative 
to the rotor, the normal component of impact velo- 
city, and the impact length (these are defined as Wd, 
Wn,and AL in Figure 2.6-5), 

Calling Sequence 

Call IMPAX (NB, BDIA, RPM, AL, A I, 

VZERO) 

where: 

NB is the number of rotor blades 

BDIA is the inlet diameter at the blade height 
in question 


IRET is a return sentinel. During the integra- 
tion process IRET remains zero. When the 
integration is completed IRET is set to unity. 

A debug option (see main program for de- 
finition of KOP (10) is provided so that present 
values of distance, time and velocity are listed for 
each trial time step. After each successful integra- 
tion STEP is entered and if a print interval has elapsed, 
the present values of time, distance along the wake 
axis, distance along the turbine axis, absolute and 
relative drop velocity, local Weber and Reynolds 
Numbers, and the time step used are printed. 

Subroutine WAKE is called after each time 
step to get the local vapor velocity. If the wake 
Iteration fails, diagnostics are printed and IRET is 
set to unity. This eventually returns control to sub- 
routine TRAX so that the next trajectory may be 
started. The terminal flow angle is set to -1 if the 
wake calculation fails. Failure of the integration is 
indicated by inserting a value of -1 in the final 
velocity array. 

• Subroutine IMPAX 

The geometry of drop impingement is eval- 
uated with subroutine IMPAX. The range of possible 
absolute drop impact velocities is bounded by zero 


RPM is the rotor RPM 

AL is the stator exit flow angle with respect 
to the turbine axis. 

Al is the actual rotor inlet blade angle (see 

a. in Figure 2.6-5) with respect to the 
roJor inlet plane. 

VZERO is the stator jet velocity. 

It was pointed out previously that the im- 
pact length approximation is only useful when im- 
pacts on the convex blade surface occur. When 
the conditions expressed by equations (39), (40) and 
(41) occur, nose impacts are important and the 
listed values of AL will be set to: 


AL = Scos or, 
max i 


• Auxiliary Subroutines 


Four general purpose subroutines are in- 
cluded in the code package. These were developed 
in the context of the overall turbine erosion model; 
however, they represent valuable tools which can be 
used in many other circumstances. Each is described 
fully in a separate report so that an abbreviated dis- 
cussion is presented here. 
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• Subroutine SPLINT 

This subroutine Is designed to perforin in- 
terpolation and differentiation using the parabolic 
spline. The spline is generated by a closed form 
expression, and an important characteristic of the 
method is that the first derivatives of the array of 
interpolated results are continuous. Unequal tabular 
intervals may be employed and a special search 
scheme has been devised to permit the independent 
variable to be either monotonically increasing or 
decreasing. A useful by-product of this method of 
interpolation is that an estimate of the local deriva- 
tive (of the interpolated curve) may be readily ob- 
tained. The closed-form solutions used are due to 
Mintz and Jordan. 

The subroutine has two entry points called 
SPLINT and DYDX, the former for interpolation and 
the latter for differentiation. The calling sequences 
are: 

CALL SPLINT (XT, YT, NT, XI, Yl, Nl, JX, JY) 
CALL DYDX (XT, YT, HT, XI, DY, Nl, JX, JY) 
where: 

XT is the name of the independent variable 

array 

YT is the name of the dependent variable array 

NT is the number of input (XT, YT) pairs. It is 
required that NT >4, 

XI is the name of the array of input Interpola- 

tion arguments 

YI is the name of the output array of interpola- 

ted values 

DY is the nameof the output array of first 
derivatives 

JX,JY are integers representing the storage incre- 
ments in arrays XT and YT (standard 
values: JX = JY = 1 ). 


The set (XT, YT) is the table in which the 
interpolation is to be done. Dummy dimensions are 
used for all arrays so that the storage space required 
is set by the calling program. XI, YI and DY are 
listed as arrays; however, they may represent single 
values. 

• Subroutine VERGE 

VERGE is designed to accelerate the con- 
vergence of iterative processes. Many equations en- 
countered in the numerical solution of engineering 
problems do not permit explicit solution for certain 
variables; these must be solved by iterative tech- 
niques. A good example is the simultaneous set of 
equations (25), (26),and (28) employed in the stator 
wake treatment discussed above. The scheme utilized 
by VERGE accelerates the rate of convergence if the 
iteration converges and induces convergence if the 
basic iteration process tends to diverge. The sub- 
routine Is bqsed on the convergence algorithm of 
Wegstein^ 12 '. The general class of problems which 
Is of Interest is that which may be written in the 
form: x = f (x). The right-hand side is typically a 
complicated transcendental relation or perhaps the 
result of a lengthy numerical operation. 


• Calling Sequence 

Call VERGE (XI, F0X, IK) 

where; 

XI is the present value of the interated vari- 

able, User must supply an initial guess, 
and at each pass through VERGE XI will be 
modified to induce convergence. 

F0X Is the value of the function F(XI) for the 
present XI 

IK is an iteration counter. User must preset 

IK for the first iteration. It is updated by 
VERGE and set negative when the con- 
vergence test is met. Normally IK is pre- 
set to zero. The user should test present 
values of IK as they are returned from 
VERGE to detect convergence. 
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• Convergence Criteria 


It is necessary to insure that machine under- 
flows will not result. If one is searching for a root 
near the origin, very small numbers (in absolute 
value) will be encountered during the iteration. 
Convergence is assumed if either of the following 
conditions is satisfied. 

K> 

hl <ETA 

where EPS and ETA are quantities defined in a DATA 
statement and may be modified by the user to fit 
special situations. In the subroutine version des- 
cribed here they have been given the values 1 x 
anc j ] x |q- 30^ respectively. Non-conver- 
gence is not detected explicitly. The user should 
check the present value of the iteration counter IK 
against some upper limit appropriate for the particu- 
lar problem at hand. For the wake parameter iteration 
in subroutine WAKE it has been found that if con- 
vergence is not reached after 20 iterations, the input 
data is usually at fault. 


• Subroutine ICEAD 

This subroutine is a general purpose scheme 
for solving systems of ordinary differential equations. 
A fourth -order Adams predictor-corrector method is 
used with automatic error control. It is based on 
ICEADAMS, an ALGOL-5000 procedure by Geil 
and WeiO^) w hich was translated into FORTRAN 
by the author and modified for this application. 

• Calling Sequence and Required Common Bloc k 

CALL ICEAD (N, T, XI, IRET) 

COMMON/ICO tS/H, HMAX, HMIN, 

RELB, ASBS 

where: 

N is the number of dependent variables 

(simultaneous differential equations) 


T is input as the initial value of the inde- 

pendent variable 

XI input as the vector (one-dimensional array) 

of initial values of each of the N dependent 
variables. 

IRET output integer return sentinel which must be 
zero initially: When the subroutine detects 
a non-zero value of IRET, control is return- 
ed to the calling program. May be used to 
indicate that the integration is completed - 
either successfully or otherwise. 

H is input as the suggested initial step-size. 

Will thereafter contain the present step size 
selected by ICEAD, 

HMAX is the maximum acceptable step size. 

HMIN is the minimum acceptable step size. 

RELB is the maximum acceptable relative error 
(the ratio of the absolute difference be- 
tween the predictor and corrector for each 
independent variable). 


ABSB is the maximum acceptable absolute error, 
(If RELB is exceeded but the absolute dif- 
ference between the predictor and correc- 
tor values is smaller than ABSB, ICEAD 
will accept the integration step as success- 
ful. ABSB is used to guard against exceed- 
ing the machine accuracy limits. 


• General Use of the Subroutine 

The analytical basis of the subroutine is 
given in Reference 13 which describes the ALGOL 
version. Certain mechanical aspects have been 
changed due to language imcompatibilities/however, 
the basiq numerical steps are identical in the two 
versions. 
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The common block ICON was incorporated 
to permit optional user control of the error bounds in 
the auxiliary subroutines. The FORTRAN version 
described here has been dimensioned to permit the 
solution of up to ten simultaneous differential 
equations. The user is required to provide three 
auxiliary subroutines with the names DERIV, STEP, 
and FAIL. It is usually convenient to use one sub- 
routine with three entry points to perform the approp- 
riate functions, 

• Subroutine PER IV (T, X, DX, I RET) 

The argument list consists of: 

T the present value of the independent varia- 

ble (input) 

X vector of values of the dependent variables 

(input) 

DX vector of derivatives of array x (output) 

IRET return sentinel 

The calling program provides ICEAD with a 
set of initial values for the independent and depen- 
dent variables, ICEAD will then determine trial step 
sizes and will call DERIV to calculate required deri- 
vatives based on present values of each dependent 
variable and associated derivatives. Note the initial 
values for the derivatives can be defined if necessary 
in DERIV, IRET is normally not used in DERIV. It 
may be set non-zero if an anomalous condition is 
encountered. If ICEAD detects a non-zero value at 
any time, control is returned to the calling program. 


• Subroutine STEP (T, X, DX, IRET) 

STEP is called by ICEAD after each suc- 
cessful integration step. The argument list is the 
same cs for DERIV so that STEP may be defined 
alternately as an entry point in DERIV. A printout 
section may be provided here to list results at pre- 
determined increments of any of the variables. A 
test for the termination of integration must be in- 
cluded in STEP. The user may simply call EXIT or 
STEP, or set |RET> 0. Control will then pass to the 
routine which originally called ICEAD. Normally, 


the last integration step will over-run the integration 
limit. This can be avoided by adjusting the step size 
limit HMAX just before the integration limit is 
reached to force termination at the desired point. 

• Subroutine FAIL (T, X, DX, IRET) 

FAIL is called by ICEAD when the integra- 
tion step size has been reduced below HMIN. ICEAD 
will strive to select the largest step size available. 
Trial steps are taken at one-half and twice the pre- 
sent step size and the error criteria checked. If the 
criteria cannot be satisfied for any H such that 
HMAX > H > HMIN,FAIL is called. In FAIL the user 
may wisFt to print some diagnostic comments. It is 
necessary then to call EXIT, STOP, or set IRET^ 0 
and RETURN. 

• Subroutine PRQPM 

This subroutine was designed to generate 
comprehensive thermophysical properties of 
various power system working fluids. It provides a 
centra! data source, with a consistent set of units, 
to support computerized design and analysis efforts. 
The basic system of units is metric; however, a con- 
version subroutine is supplied to communicate in 
engineering units. The user supplies a temperature 
and specifies a material and a property, and gets the 
required property value back. 

All properties are taken along a saturation 
line and are assumed to be functions of temperature 
only. Most of the properties are described by 
equations obtained from least square fits. In a few 
cases this was not feasible and spline interpolation 
(subroutine SPLINT) is used on tabular data. In 
general the empirical fits are more desirable. They 

offer a speed advantage and require far less storage 
space than tabular data. 

Eight working fluids are represented in the 
data compilation. Four of these, potassium, cesium, 
water,and mercury / have received the most attention 
since they have been required in various phases 
of turbine erosion analysis under the subject contract. 
The remaining fluids, lithium, sodium, rubidium,and 
NaK-78^have been given a cursory treatment and 
were included for the sake of completeness. No 
attempt at evaluation was made at this time The 
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primary source of the potassium and cesium data 1$ 
the work of Ewing, ef. al. 0^, 15) anc j Achener^). 
Water data was obtained from the recently completed 
ASME steam tables^ The mercury data was re- 
quired for an erosion -oriented analysis of the Sun- 
flower turbine series so that for the sake of compati- 
bility at TRW data compilation^ 8 ' was used. 

Calling Sequence 

Call PROPM (XM, TK, JPROP, JFLUID) 

Call PROPE (XE, TR, JPROP, JFLUID) 

where 

XM is the output property value in metric units. 

XE is the output property value in enginee r ing 

units. 

TK is the input temperature in degrees Kelvin. 

TR is the input temperature in degrees Rankine. 

JPROP specifies a particular property according 
to the following table: 


JPROP 

Property 

PROPM Units 

PROPE Units 

T 

Liquid density 

g/cm 3 

lbm/ft 3 

2 

Vapor density 

g/cm 3 

Ibrr/ft 3 

3 

Liquid viscosity 

g/sec-cm (poise) 

Ibm/ff-sec 

4 

Vapor viscosity 

g/sec-cm 

Ibm/ft-sec 

5 

Liquid thermal conductivity 

W/cm-°K 

Bhj/$ec-ft°R 

6 

Vapor thermal conductivity 

W/cm-°K 

Btu/sec-ft°R 

7 

Liquid specific heat 

joule/ g-°K 

Bfu/lbm-°R 

B 

Vapor specific heat 

joule/ g-°K 

Btu/lbm-°R 

9 

Surface tension 

dyn/cm 

Ib/ft 

10 

Not Used 

— 

... 

11 

Liquid sonic velocity 

cm/sec 

ft/sec 

12 

Vapor sonic velocity 

cm/sec 

ft/sec 

13 

Vapor pressure 

bars 

psla 

14 

Latent heat of vaporization 

joule/g 

Bfu/lbm 

15 

Liquid electrical resistivity 

ohm -cm 

ohm -In. 


The rationale of the metric system chosen is 
that it almost completely eliminates the use of con- 
version factors. The unnecessary distinction between 
heat and energy units has not been made. JFLUID 


specifies a particular working fluid according to 
the following convention: 

JFLUID MATERIAL 

1 Lithium 

2 Sodium 

3 Potassium 

4 Rubidium 

5 Cesium 

6 Mercury 

7 NaK-78 

8 Wafer 

The Solution of an Illustrative Problem 


The sample problem chosen is an analysis of 
drop transport in a steam test rig used by Rocketdyne 
in a NASA-sponsored experimental program under 
Contract NAS 7-391, This program involves the 
examination of drop formation in a system using six 
stator blade shapes and a variety of flow conditions. 
Blade shape 1-A and the conditions designated as 
test 114A were chosen for the illustrative problem. 

The series of input cards required for this 
problem are shown in Table 2.6-3. Input for a sub- 
sequent problem test 114B, is also given to show how 
the code makes use of data carried from one problem 
to the next. Only those values which are different 
from the previous case need to be specified. 

The code-produced summary of input data 
' s 9* ven 1 J n .Table 2.6-4. Working fluid properties 
evaluated at the input temperature and quality are 
also tabulated. If a boundary layer calculation is 
required the listing shown in Table 2.6-5 will appear. 
This is a tabulation of the input blade surface velo- 
city arrays and the blade Reynolds numbers, based on 
exit conditions and the surface lengths, for both 
pressure and suction sides. A sample of the detailed 
boundary layer result listing is given in Table 2.6-6. 
Since this output is optional, a summary of the boun- 
dary layer results evaluated at the blade trailing 
edge will always appear and is shown in Table 
2.6-7. 

A sample of the detailed results obtained 
from the drop trajectory calculations is shown in 
Table 2.6-8. Such a listing will appear for each 
possible combination of drop size and wake position. 
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rockftdyne 


TABLE 2.6-3 

ADROP INPUT DATA CARDS FOR THE 5AMPLE PROBLEM 

BLADE 1-A TIP SECTION TEST U« 


tOrt P KUP( II *8, 29, 2D, 0,11, 1.12. -8, 0,0 

GOAT ( 1 1* ft 8. 8,0., A., 22., 5. 93 18, 0. ,1 


, TR=60l • 5»V FREE* 1 170. , XQ* • 986 , 
.0075, 1.2, 1.912,1.192, 


xsm 

VSI1I 
xp< n 
VPdl 


.408,. 89, .098, .969,1 .06,1.092 , 1 .1,1.099 ,1.09,1.076,1* , 

0. ,.l,.2,.3,.9,.5, .6,. 7,. 8,. 9,1., 

.180, .92, .55, .567, .565, .61, .63, .662, .728, .819,1. * TEST l 19A 


ROCKETDYNE BLADE l-A TIP SECTION 


TEST U9B 


tDRP 


TR=636 . 85 ,VFREE®590. , XQ*.963 , * TEST U9B 


TABLE 2.6-4 

ADROP INPUT DAI A SUMMARY 


Input o*ta 


ftOCKETDYNfc RlAOE 1-A TtP SECT!"* 


options k np * 


r 


W 


T t 5T 1 1 9 A 

1 I? 


BUiK FLUID TE«PC«ATU»F (OFG B1 
BULK FLUID QUfclin 

Inlet rotor bi.adE anGl^ <dfg) 

CRITICAL wF.RER number 

inlet RnToP OtAMETtR d N ) 

STftTOM TE THlC^NtbS 11*0 
PRr 5SURF SURF. LENGTH IINI 


601 ,sn 

o.oo 
??. 00 
0.0000 
.onT'- 

I.M?" 


FREfc-SlMFA * 4 VtUOCIfY IFPM 
Exit FLOW AnGI.E t'lEGj 
ncAn-SPACF *ut TiPLiru 

Exit stator oia«ete« (*••) 

AXIAL I NT F R-R f, w SRACF 11*0 
STATOR CHORD I IN* 

SUCTION SURF « LFNGTm (IN) 


0 


0 


u 70 ,09 

9 • ’in 

t.,9 M 

1 , fidon 
l . ?nnn 

1.1970 


• ATFR 


WORDING FLuIO *T 
Rhov IG/CC) • 
RhOl (6/CC* * 

V I Sv t P> * 
VISL t p > * 
Sir»L dyn/ch ■ 


T <M = 33*. ? 

1 •37o?t-o* 

1 * 0S?3F-o* 

9 ,bfrC» 0 t- o 3 
fe.23?OF*o 1 
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TABLE 2. 6-5 


BOUNDARY LAYER INPUT DATA SUMMARY 


TWO-0 BOUNDARY L A Y f H 

CALCULATION 

RoCKETHYNt 

BLADE J-A 

tip sec 

flUTD ■ WATER 

RES ■ 1 . 35 * t *06 RE p ■ 

1 . 676 r *( l 5 


input position and surface veiocity 

AWPAYS 



SUCTION x 

V 

PRESSURE 

X 

V 

0,0000 

.AflBO 


o.ocoo 

,1 woo 

.1000 

.8400 


• 1000 

,A?nn 

.?OOo 

. 89«0 


. 2^00 

• ssnn 

.3000 

. 9^40 


• 3 P 0 0 

. 54/0 

. A 000 

1,0600 


,*oon 

,6650 

,5000 

1.0920 


• Spoo 

,61 00 

.6000 

1.1000 


.6000 

,6300 

.7000 

1.Q990 


.7000 

, 66?0 

• 000(1 

1,0900 


. H 000 

• ??flp 

.9000 

1.0/60 


• 9000 

.A1A0 

1.0000 

1.0000 


1.0000 

1 .0000 


TFST U*A 


TABLE 2. 6-6 

DETAILED BOUNDARY LAYER RESULT PRINTOUT 


T*f)-0 B0UNP4PY L*YC« CALCULATION B(3C*EThYNC PliOF 

suction Surface 


PtFtRPEO 

RfFCPoEO 

«eU»ofo 

5MAPF 

EOPM 

DISTANCE 

VELOCITY 

NO« TmJC 

r ACToP 

r*c Tun 

.025006 

.561 no? 

.000049 

0, OOOOOO 

1 , *00000 

.05000(1 

.670750 

.000159 

-.0*968* 

1 ,485689 

.0/50nn 

, ?*7n6? 

.00071* 

-. 0 ** 01 * 

) ,52044? 

. moonn 

. 5*0nOO 

.000270 

-.072000 

1,4*007* 

, l?S0f)0 

.040*09 

.00034? 

-, 0*396* 

1,578124 

. 150000 

.891475 

,000*37 

-.096*79 

1 .62*9*2 

. 1 75000 

.491703 

. 000643 

-,102353 

1.6*7349 

.200000 

, *98*00 

,000*3* 

• , 095 a 7l 

1 , *»2 1 86* 

.225006 

, 9 )3?3* 

,000700 

-, 0*3^1? 

1.575511 

.250000 

.978*25 

. 00074? 

-,07*713 

1 ,6*773* 

.275000 

.9*5703 

,UOO*1 7 


1 ,5?8?99 

.iooooo 

, 964ft 00 

.00OB43 

-.0*991? 

1,511 31? 

. 325000 

,94?i9 J 

,000496 

- , 060*** 

I.* fl 09b7 

.350000 

1 , 0 1 * 1 25 

.000914 

- ,0*1*** 

1 .*72337 

. 375000 

1,639797 

.000939 

-.0 16387 

) .**?r ( J9 

,400000 

1 ,0*0600 

.0009/4 

-.03462* 

1 .**230* 

.425000 

1 , 0 73n6? 

,oom3i 

-,0*0*96 

1.4708** 

.450000 

1.081600 

.00) n9* 

- , 0*5964 

1 , *A 1 p 89 

.475QO0 

| . n8 7 1 8 7 

.00)167 

04026/ 

1.490127 

.500000 

1 .09?i)00 

.001239 

-,06?479 

I ,*9681 1 

.625000 

l.n95«98 

.0013)3 

- . 05**0? 

1 , *9962* 

.650000 

1.098n6? 

.00139) 

- , 046*9* 

1.5"3ti24 

,575000 

1.099 1 95 

.001*7? 

-.0481 0* 

1 .5073*1 

.400000 

1 . 1 OOoOO 

.00)45* 

-,069n7* 

1,509*84 

.4?5000 

1.100*70 

,001*35 

-.069444 

1 ,410599 

.660000 

1.100*6? 

,001718 

-,06009ft 

1,51170* 

, 6 P5000 

1.100o?3 

,00)403 

-.0*0*14 

1 .51 ?R6 ) 

,700000 

1 .O99r00 

.001*91 

-.061 1 7* 

1 .61*090 

.725000 

1,097*30 

.001940 

-.041*69 

1,51560* 

.750000 

1.095312 

,00?n/3 

-.0*2*9* 

) ,51 7*66 

.775000 

1,092789 

.002)4? 

-, 0*3679 

1,519*5? 

.800000 

1 , 09OnO0 

. 00??4* 

-.0*4*27 

1.521377 

.825000 

1 .O 8 B 3 OS 

.002354 

-,0*4)2? 

1 .52068? 

« H500 0 0 

1.087187 

.00?*40 

-,0*3?8* 

1 .4)8/9) 

,875000 

1.08397? 

.002540 

-,0*4?84 

1 . 621 06 ? 

. *00000 

1 .OTOoOO 

.002*75 

- . 0*9?3* 

1 .53266ft 

.925000 

1.05241? 

.002*56 

-.078)49 

1 .558500 

.950000 

J *045750 

,003076 

-.0*94)* 

1 . 5993? i 

.975000 

1.000000 

1.024412 
1 .000000 

,003345 

,003478 

In4?3* 

-.12170* 

1.65503) 
1 . 7*1*37 


1-A TIP 5tC f IOn UST lUi 


exponent 

MOMENTUM 

n i sp L . 

FULL 

n 

Thinness 

TMic4*rs5 

Thick* fss 

5 . 000 /-O 0 

,OoO?S6 

, no n 1 *? 

.00?) Xl 

4.092483 

,000463 

« n > 10**9 

,00 )607 

3,442489 

,oo0*?i 

,0009*4 

.00*67* 

3,703)93 

,Op() 793 

. 0 *120* 

. 005* 7) 

3,469*39 

,0O0«9? 

,0016*6 

, 00*(jT9 

3, 2oft?9fl 

,001264 

,OT?0*1 

. non*s* 

3.049*22 

,00167* 

• 002697 

,010*19 

3.216) 3* 

,001414 

.002041 

, 0)2469 

3.475)70 

, On2o3? 

, 00 J?ft 1 

.01%!?* 

3.661*05 

.00221) 

.003*2? 

.015917 

3. 7867-15 

.00237) 

.0'-36? i 

.0) /l*0 

3.911*65 

,002^0* 

• n.ii 7R4 

. 01 

4.073*80 

,00259* 

.00J87P 

. 0 ) 9*. 3 * 

4,2 3426* 

.002*57 

.003912 

. 020*77 

4.3?4*39 

• oa2 7?S 

.0 U96* 

. n?l230 

4,3?*1 *4 

.on?837 

,00*1*1 

, A7?ft6* 

4 . ?* 7*7? 

.ooZ^o 

.00*197 

. ft 2 J « 7 * 

*.1S7?37 

. n n 3 1 ? fc 

,0,)*7fth 

. 6 ? 4 *2 7 A 

4,080579 

•003)44 

, 0')5n«* 

. ft? j>*?0 

4,03179/ 

.nn3*>96 

.005377 

, ft?/ n** 

* • 0©3o 1 0 

.003*04 

.005X1 1 

,02-3*70 

3,9*9*07 

, 0 04 0 3* 

, o<i*n*u 

.0 30i 47 

3.94195) 

. no4? /p 

• 006437 

.0319)2 

3.92563? 

,0044(1* 

.00640? 

.0134(15 

3.9)6067 

.004 /* 3 

. 00 ?1 ** 

.095227 

J.9o4*9* 

.004*8* 

.00/4 35 

.0 J53n p > 

3.499*9* 

. oo5?1 1 

, 0 >• 79 ) A 

, 0 )4i T8 

3.4901*7 

,005*4% 

. 008103 

, n*n*n* 

1.878930 

,004 /** 

*008 704 

. 0*2*73 

3.8*499/ 

.0060)7 

.009) ?3 

, n** in* 

3.850210 

,0062*7 

• 0*19643 

.0*6 133 

3.435495 

.0066*7 

.00999) 

. 04»l) 7 

3.4*1 116 

,on6‘J?4 

.010353 

,050?** 

3.865)1* 

,0n/«*77 

.0)07*9 

,n4?1 *4 

3, 414118 

, 007i** 

.oll?0 / 

, 05 *??? 

1. 75331% 

.00/7*0 

,011 h9h 

,056s** 

3.5«lo|9 

.003260 

.012906 

.05*1 1* 

3.337)08 

,000919 

.01*26* 

,0*1 A** 

3 . oS3?9? 

•009/©3 

•0160SM 

.065o9ft 

2.696737 

. 0 1 0*66 

.018S«0 

,ft***4* 
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In the given sample problem 30 such sets will be 
generated. At each time point listed the drop po- 
sition on the wake axis, along the turbine axis, the 
drop velocity, drop relative velocity, local drop 
Reynolds number, local drop Weber Number, and the 
present integration time step are tabulated. Table 
2.6-9 shows the summary of trajectory results which 
appears at the conclusion of each problem. For each 
diameter and wake position the following items are 
given: 

TFLIGHT This is the time-of-flight (seconds) of the 
drop along the trajectory. 

VDFINAL This is the terminal velocity of the drop 
(cm/sec)at the rotor inlet plane. 

VRELI This Is the initial relative velocity of the 
drop (cm/sec) when it leaves the trailing 
edge dead band. 


XDIS is the path length to the point of complete 
disruption, divided by the total possible 
path. A value greater than or equal to 
unity implies there is insufficient time for 
the drop to shatter prior to impact. 

The sample problem used did not involve an 
examination of the impact geometry since the test rig 
did not incorporate a stator section downstream of the 
nozzle examined. The results of another problem are 
included here (Table 2.6-11) to illustrate the output 
form of the impact geometry summary. These data 
are taken from an analysis of drop transport in the 
last stage of the Sunflower mercury turbine. The 
nomenclature used on the printout corresponds with 
that used in Figure 2.6-5 and in the defining Equa- 
tions 35 through 41 . 


VRELF This is the final relative velocity of the 
drop (cm/sec). 

WEDM This is the maximum local drop Weber Num- 
ber which occurred along the trajectory. 

ALPHA This Is the terminal inclination of the 
velocity vector VDFINAL, with respect 
to the turbine axis, at the rotor inlet 
plane. 


A model describing the transport of atomized 
condensate in wet vapor turbines has been assembled. 
The basic problem which is considered is the trajec- 
tories of drops of liquid in the space between the rotor, 
where it is discharged, and the rotor inlet plane. Re- 
latively simple closed-form solutions for the drop 
equation of motion have been obtained for certain 
special cases. A detailed calculational procedure 
was developed to provide specific solutions to the 
problem in a more general context. 


A secondary atomization data summary then 
appears as shown in Table 2.6-10. For each drop 
diameter-wake position combination where the criti- 
cal Weber Number has been exceeded the following 
quantities are listed: 

TDIS is the time (Equation 33) required to com- 
plete disruption. 

DSTC is the mass mean diameter (cm) of secondary 
drops formed. 

/DIS is the relative drop velocity at the point 
at which the critical Weber Number was 
exceeded. 

XDC is the distance along the path from the 

trailing edge to the point of complete dis- 
ruption divided by the drop diameter. 


The drop transport code package (A DROP) 
has been described in detail. The scope of the nu- 
merical treatment is as follows: 

a) Estimation of stator blade boundary-layer 
characteristics. 

b) Generation of the local velocity field 
within the vapor wake downstream of stator blades. 

c) Numerical integration of the equation 
of motion of drops traveling along various wake 
streamlines and the estimation of secondary atomi- 
zation effects. 

d) Solution of drop impact velocity tri- 
angles to provide information on the magnitude of 
the normal component of impact velocity and the 
physical location of erosion. 
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TABLE 2.6-7 


TRAILING EDGE BOUNDARY LAYER DATA 
SUMMARY 


TPfi T l_ I NG EDGE ROtJNDAttY LaYPH 


)*OmFnTUm THICKNESS (CM) 

displacement thickness ccmj 
FULL thickness (CM) 


LUU POCKFTDYME HLAnF 1 -A 
POLSSnMF STnF 

.0047* 

.0 344* 


TIP SECTION Tfst i 1 *A 

sucT i on stop 

.01067 
. 0 1 

. 06P6H 


TABLE 2.6-8 


PRINTOUT OF DETAILED TRAJECTORY RESULTS 

nqop trajectory stuoy wocKfrovNr rlaof i-a tip section test hm 


OOOP DTAMETfR ■ 1 70*00 MICRONS »akf Y/0 * r.of) 


TI#t 


Z«^KC 

vDROP 

VRtl 

WED 

REO 

H 

*,?0lf7E-06 

7.ft?31sE-02 

?. 74)S6t-n? 

9. 1r72tE^«0 

1 .490076*04 

0.3^20 1 F* 00 

3 . A? | 6UF * i)2 

6 , ?0 1 26 • A (j 

7.R99SIE-0* 

7. 0?5*?F-01 

?.Sl40lF«0i 

1 .96*3^6*03 

?,44R6SE*04 

2,?S57?f.*mi 

b , •» L *SSOF ♦ fv? 

5 . ?*> i ?p-afr 

1 ,n^A?oF-0i 

1 .33b«4E*00 

4, 776?IE-01 

3.037?7f*03 

?.57673t*04 

?.407HFf *.il 

b « 7 4 0 H 5 l ♦ 0 2 

6,2^1 2T-04 

1 .?A0?3E-03 

I ,o7fl33t*00 

7,07t>636-01 

3.H;37RF*o3 

?.00919F*(14 

2. 5 ‘‘')?rr6*ni 

s.^1 3) 7F* o? 

6.2 m? 1 -0* 

1,395 P6E-03 

H.633?2F *00 

9,41 o*nt-ni 

4 , bP o 1 364 03 

?. B1I3?6. 0* 

2,S4S3°r*01 

b.-^l 7«?r*r? 

?* -06 

) ,52549E-')3 

3.?6Hb96+00 

1 • 167746*00 

5, 1 7) na6*03 

?.60l?0F*O6 

2.c»45b*6*oi 

5. '9S376*02 

4.P012E-O6 

1 ,6*13lE-03 

3. 909066*00 

1 . 39a4oF *00 

6.6Q97^F *03 

2.bBb346*0* 

2.41*5^6*01 

5, ^6on4E*02 

6,2^1 ?F-0$ 

1 .754936-03 

4,s7209 t .oo 

1 .6313 /6*O0 

4. 192Q/f*03 

?,50S9Rt*06 

2 • 4 } 1 0 7 6 ♦ tl i 

5, f 1 6906* 02 

6 # ? <*> ) 26-o6 

1 .ft54j£»E-03 

5.?087V6*00 

) . B 6 n 3 ff *00 

6.6?%0i 6*03 

? *54t*l 1 1 *04 

2.43«B6r40) . 

5,072646*02 

4,?-'12fc-06 

1.9471TE-03 

5.R4347t*00 

?, 006926*00 

7. 0?1 0*F 403 

?.bP575t*04 

2*4 DO0?t * o ) 

5.027266*02 

4, 20 ) 26-06 

2.04039E-03 

G.RUjfjE^OO 

?* 3 265 36 *00 

7.A10B6M03 

2*50*1 16*04 

2*359076*0) 

5,579076*0? 

4,2'M?t-«6 

2.11915E-D3 

r. 1 \ ?o46* 00 

?.54nO?E*00 

7,735066*03 

2,4849?6*0* 

?*3?3l4E*ni 

5.bJ442£*o? 

1 , O000r-o8 


TABLE 2.6-9 


SUMMARY OF TRAJECTORY RESULTS 

oaop trajectory stuoy PnCKETnyNF rlaof i-a tip sccmon test 

SUMMARY of RESULTS 


Oi AM 

YO 

TFL16MT 

VDF I *i Al 

170,00 

0.00 

2, 119?E-03 

7,735«E.03 

150,00 

0.00 

Z.026Vt-03 

8.0.7)6*03 

1*0.00 

0.00 

1.97 79t *0 3 

fl.2?26t.n 3 

130,00 

0.00 

1 . 920R6-O 1 

8,4)416.03 

120,00 

0,00 

1 ,D73?t-03 

8 . 52*66 « ') 3 

100.00 

11.00 

1.75736-03 

9.11746*03 

90.00 

0.00 

1.6940t'-03 

9.4 1 17F.03 

70,00 

0.00 

1.553lt-oi 

1.01 3«E,n* 

50.00 

0.00 

1.385)6-03 

1 . 1 1646*04 

190,40 

o.oo 

2.20716-03 

7,*60 F6.03 

170.00 

.35 

1 .83746-0 ) 

8.005^6*03 

150,00 

,35 

1, 750)6-03 

8. *2046.03 

140.00 

.35 

1 ,7)6ot-03 

8, 6,- 13*6.03 

130.00 

.35 

l.672r>6-03 

8.8^346*03 

120.00 

.35 

1 .6?5c)6-07 

0, 0??m6*03 

100,00 

.35 

1.52M e -03 

9,5»7it*03 

90 .00 

.35 

1. 47176-03 

9 , 84 3?6 ♦ g 3 

70. pO 

.35 

1.3405C-03 

1,04906*04 

50.00 

.35 

1 .20*0^-03 

1.10676.0* 

190.50 

.35 

1.9l3zt-m 

7,«n8 7t *01 

170.00 

i.oo 

i. 34506-03 

9 , 0961 1* 0 3 

150.00 

1.00 

1. 33546-03 

9, *S8?F ,03 

1*0.00 

1.00 

1 .3n4o6-03 

9 .6^226*0 3 

130.00 

1.00 

1. 2TU6-0J 

9 .89*06 *01 

120,00 

1,00 

1.23666-03 

1 , 0 1 296 * 04 

100.00 

J.oo 

1 *16l9£-03 

1 .0701F.04 

90.00 

1.00 

1.12116-03 

l , 1 rt *?F ♦ 04 

70.60 

1.00 

1.03056-03 

1.1 8A?E « 04 

50.00 

1.00 

’.22306-0* 

1 . 3^656 + 04 

190.50 

1,00 

1.45176-03 

8,77576.03 


vwfl» 

VP6LF 

1.49176,04 

2 , 4«50C ♦ 0 4 

l ,49176*0* 

2.45386*04 

1 .49176,0* 

2.43636*0* 

1 ,49176*04 

?.4| 7)6*04 

1,49176*04 

2,394)6*0* 

l ,*9i ; e*o* 

2 . 3468T * 0* 

1.491 76,1)4 

2.31746*04, 

l.*91 76*04 

2.2*486X1* 

1.491 7E. 04 

2.1*226*0* 

1 ,491 76.0* 

?,5|?56*04 

?, 457JF.04 

2.53)21 *0* 

2.05736*04 

2.49996*0* 

?, 0573F.0* 

2.49056.0* 

2.05736,0* 

2, **056*0* 

2.05736*04 

2.4 3P*t * 04 

? ,oS7 j6*o«* 

2.38716*0* 

2,05736*0* 

? . 35*>5f *04 

2.05736*04 

2.28096*0* 

?. 85 7JE *04 

2,17*16.0* 

2,05736.0* 

2.5*006,0* 

3 .54l$F.n* 

2.65036*0* 

1,56356,04 

2.61416,0* 

3,56356.0* 

2.59376,0* 

1.563S6.0* 

2,671*6*0* 

3,56356.9* _ 

2.5*706*0* 

3,5fe356*0* 

2,48971 *0* 

3.55356.0* 

2, *6676*0* 

3, 56356 ♦0* 

2,371 71*0* 

3.56356 *04 

2.261*6*0* 

3,56356.04 

2.68236*0* 


«FOm 

ALPHA 

2.*>*7tf .0) 

6. 90786 . 01 

2.233 *01 

8,90786.01 

2.0*7^6*01 

6,9 0 78f .01 

1 . 4031 » *01 

6.90796*01 

1 . n<)uf, ->i 

6.907 86 » n 1 

1 . *1 7*sr ,01 

6,90 796 » 0) 

1 . 3S9HF.01 

6 , 9 ^ 7*6 * n) 

3. * r*5f; + no 

6, 00796, ni 

6 .***nF ,00 

6. 90 ?(*L ♦ 01 

2.41 *«l* 0 1 

6.90706.01 

2.4^866*01 

6 . 9n ) 86 * 01 

2,»*64r«i)l 

6.9r 

2,24 77F.01 

6.9o706. n t 

2 , ostler *0 1 

6.9«78E .01 

l .9129F.01 

6 , 9 o for*. 4 ) 

1,56) fr .01 

6,90/ 06 « 0 ) 

1 . ) 0 ) . 0 1 

6 . 9 0 7 At *01 

1 . 06 ?*f .01 

6 , 9n79t * 0 l 

^.2?97F.OO 

4,9o 706.nl 

3 . 1 7996*01 

4,°0 7A6.0] 

4.60 Z^r.oi 

6.5n70f. nl 

4. | ?9 1 F , 0 1 

4 .90 746 .01 

1. 8484 r.ni 

6. 00 786 . A 1 

3.5699* .01 

6.90706 ,A1 

J, 2«94,* . 01 

6 . 701 1 

2.710 >F.* 01 

6.907 RF * 0 1 

2,46186*01 

6 , 9rt 706 .ft 1 

1 , 90* ir * 0 1 

6.9079E .0) 

l , 3 roor.pi 

6 , 9o 706 .0] 

5.2M?F*0l 

6.90706.01 
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TABLE 2.6-10 


SECONDARY ATOMIZATION SUMMARY 

DROP TrajECTOWY StU[)Y RoCKFTHYNr mfiDF 1-A TIP SFcTIOn TFST ||4A 


St COnD ARY aTomizaTtOn Summary 


DI AM 

YO 

TDIS CKFC 

vr>n 

XOC 

xnis 

170,00 

0.00 1 , 66 1 2£»0 a 1,8) SSF-03 

?.4l8ftF*04 

S. B397F*01 

1.3957F-01 

ISO, 00 

0.00 1 . 377 nt -04 l.Si9f.E-03 

?,S74?E*04 

! .3544F *0? 

2.PS63F.-G1 

190, *n 

0,00 1.9ft74t-04 1.9 h7«F-03 

?.?fl0Sfc*O4 

3,8937F*01 

1 • 0 4 ? « F - 0 1 

170,00 

. IS 1 * 66 1 nt-04 l.Pl5?F-03 

2.4191E.*04 


6 • 7S?MK-f)2 

iso, on 

.35 1.3755t-04 1.M7U-03 

2.S774E*04 

S,074?t *01 

1 * 070 1 F-0 1 

U 0,00 

.35 l,?4l4t-04 1.549AE-03 

p . B65SF *04 

P . 397SC *01 

1 . SS2OF-0] 

1 * 90 , so 

.35 l,9f49fc-04 1.9P43F-03 

2 , ? Q 1SK+04 

1 .936H*0» 

5, 1 PS3F - 02 

170,00 

1.00 l,1303t-O4 1.0Rl9t-03 

3,5?9«F*04 

9 . 33 ?Sf no 

l. ? 3 nsF-n? 

ISO, 00 

1.00 l,0054fc.-04 l,0*SBf-03 

3.5264F*04 

) .0090F 901 

2 . l?7RF-02 

140,00 

1,00 9,3SB7L-0S 1.05701-03 

3 , S?44t ♦ 04 

1 .0039t*01 

1 # 975<*r-0r> 

no , 00 

l.oo 8,7?3ftt-0S 1.04TBF-03 

3.S221 F*04 

1,1 099t 4 0 1 

2 , 0 ?PSF -02 

120,00 

1,00 8.0S87&-05 1 , OiSnf -03 

3. SI 95t * 04 

1 ,113fH901 

l ,P777F-f >> 

loo, on 

1.00 6.7?B3t-0S 1.01S2E-01 

3,S129E^04 

] ,?5P4F*01 

1 ,7*3lf -C2 

90,00 

1,00 b,0S2Bt-0S 1.0O4OF-03 

3,SPSSt*04 

1 . ?QS4E ♦ 0 1 

1 . 4404F-0? 

190, SO 

1,00 1.2745t-0* 1.09SRE-03 

3. 5327F *04 

P.7l 1RF*00 

2.3332F.02 
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IMPACT GEOMETRY DATA SUMMARY 


SUNE| OwER ThRBINF STARE 3 «EaN SECTION 

*EC a 


SECTION DIAMETER (CM) 

= 4,8720 

WHFEL bpm 

a 4 0 0 0 0 . 0 

WHEEL speed 

(CM/5EC) 

* 957S. 57 

ALoHA 


* 73.50 

blade PITCH 

(CM) 

» . 1 «1 8 

ALPHA I 


= ?R.70 

max delta l 

(CM) 

■ • ) 595 

AL pHADO 

U)EG) 

= *1.30 

VDROPO (CM/SEr) 

« 6457.60 

fcO >«N 

(CM/SEC) 

a 7054,51 

VZERO (CM/SEC) 

■ 2178). 01 




vn 

WO 

WN 

AlPHAC 

BETA 

IMPACT LF^GTh 

A. 00 

9575.57 

4568.4? 

0.00 

*1 .30 

0.00000 

1090.00 

8576,08 

43*8. 07 

2.08 

59. 2? 

,01289 

2180.00 

75)0.91 

4137.77 

4.73 

56.57 

, 0 ? 7? 1 

3270.00 

4506.8S 

39o7 , 3a 

8.21 

53.09 

, 0 4 3? 1 

4360.00 

5535.^1 

3677.04 

12.93 

48.37 

.0*123 

5450.00 

46)7.19 

3446 . 69 

) 9.59 

41.7} 

• 0 H 1 *5 

6540.00 

3791. io 

3216.35 

29,34 

31.9* 

. 1 0500 

7630.00 

3170.92 

2986.00 

43.80 

1 7 #50 

.13195 

8720.00 

?7s8.44 

2755.6* 

*3.87 

-?.57 

.15948 

9810. 00 

2791.34 

25?5.3) 

86.52 

-?5.2? 

.15948 

10900.00 

32) 7 . 2 0 

2294.97 

1*5.79 

-44.49 

.15948 

11990.00 

39f|9. b* 

2064.6? 

119.42 

-SB . 1 ? 

.15948 

13080. 00 

47*3.58 

1834.28 

128.60 

-*7.3n 

.15948 

14170. 00 

5681.89 

1603.93 

134.90 

-73. *0 

.15948 

15260.00 

66S9.39 

1373.59 

139,40 

-7B • 1 0 

.15948 

1635o. 00 

7687.28 

1143.24 

U2.72 

-Hi .4? 

.15948 

17440.00 

8695.01 

9 1 ? , 9 n 

US. 27 

-HI. 97 

,15948 

18530.00 

9776.29 

68?,5* 

147. 28 

-85. 9H 

.15948 

19620. 00 

1 n7p7.2o 

45?.?) 

148.90 

-87 .*n 

. 1 5948 

20710.00 

1)845.18 

221.87 

150.23 

- 88,93 

,15948 

2178) .01 

12889.92 

0.00 

181.3? 

-90.0? 

,15948 
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s 


Blade pitch 


The model represents a first cut at a com- 
prehensive explanation of observed phenomena. 
Unfortunately, the kinds of experimental data required 
to verify and improve the model simply do not exist. 
Key areas of uncertainty are the critical Weber Num- 
ber estimates and wake behavior immediately down- 
stream of stator trailing edges. The criterion for 
disruption should reflect the abruptness of the onset 
of accelerating forces and should be sufficiently 
general to permit its use with dissimilar working 
fluids. These deficiencies in the model, however, 

do not negate its usefulness in most circumstances. 
When a series of similar turbine designs is being 
considered, the model will give an excellent es- 
timate of the relative erosion potential of the com- 
peting designs. The key effect of axial stator-rotor 
spacing can certainly be examined and with the use 
of a conservative critical Weber Number estimate 
these results can be expressed directly as a design 
limit. Another important factor which can be exa- 
mined on a parametric basis is the effect of shaft 
rpm (hence, tip speed) on the erosion potential. 

2.6.7 Nomenclature 

a,b,n^, Empirical constants 

n 2' n 3 

Drop cross-sectional area 
C Stator blade chord length 

Drop drag coefficient 
Friction factor 

D^, ^ 6 Primar y anc * secondary drop diameters 
E Defined by Equation 15 

Aerodynamic force on a drop 
f, g Functional relationship 

H Form factor 

Inertial parameter group 
L Shape factor 

Reynolds Number 


t,t f ,t M Time, time-to-disruption, time-to-comp!ete 
disruption 

U,U q , Local vapor velocity, wake-edge / and wake 
U m j n axis vapor velocities 

U 1 Tangential blade speed 

Vj Absolute drop velocity 

V Relative velocity between drop and vapor 
stream 

W g Drop Weber Number 

Wj Drop terminal velocity relative to the 

rotor blade, 

W Drop terminal velocity normal to the 

n stator blade. 

X Distance along the wake axis 

Y Distance normal to the wake axis 

Z Distance along the turbine axis 

0 Stator exit flow angles 

a., a , Velocity triangle angles defined in Figure 
' 2.6,5. 

P Local wake angle 

A L Impact length 

£ Defined in Equation 13 

e Normalized distance (x/6) along the wake 

axis 

Wake full thickness, displacement thickness 
P , P^ Vapor and liquid density 
<t^ Surface tension 

0, 0 Wake momentum thickness and thickness 

parameter 


Re 


2-185 


Vapor viscosity 
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APPENDIX 2.6A 


CALCULATED AND EXPERIMENTAL ATOMIZED 
DROP VELOCITIES IN LAST STAGE OF CENTRAL 
STATION STEAM TURBINES 


There are several aspects to the accelera- 
tion of the drops discharged from wet turbine stators. 
The first is the acceleration of the primary drops 
immediately after formation and up to the time of 
disruption. The second is the continued acceleration 
of the liquid as secondary drops. A third is where 
will the drops hit on the rotor blades? 

Limited experimental information on pri- 
mary and secondary drop accelerations under turbine- 
like conditions is available from steam cascade tests 
reported by the Central Electricity Research Labora- 
tories (CERL)of the United Kingdom* These experi- 
ments were conducted on a stator cascade simulating 
the last row of stators in large central station steam 
turbines and using system conditions appropriate to 
such last stator rows. 

The CERL results are compared to calculated 
values for the Yankee Atomic Plant steam turbine 
last stage at the mean diameter. Complete geometric 
data on the CERL cascade blades is not given in the 
referenced material.** However, such dimensions 
as are supplied are within 20 percent of the mean 
diameter section values for the Yankee last stage, 
and the nozzle exit angles are nearly identical. 

Figure 2.6A-1 compares the CERL observed velocities 
for various sizes of primary drops at a location 0.74 
in. downstream of the stators to those calculated for 
the Yankee steam turbine. Figure 2.6A-2 compares 
the CERL observed velocities of 150 micron diameter 
secondary drops at various downstream distances with 
calculated curves for 100 micron and 200 micron 
diameter secondary drops for the Yankee turbine. In 
both cases, the observed velocities are on the average 
higher than the calculated velocities. 

* Hays, L.G., Turbine Erosion Research in Great 
Britain, NASA Jet Propulsion Laboratory, C.l.T. 

Tech Memo, No. 33-271. 

** Christie, D.G., Experimental Investigation of In- 
ternal Flow in Turbines, Jet Propulsion Laboratory, 
C.l.T. Tech. Memo 33-354, Sect. 12, June 15, 1967. 



Figure 2.6A-1 Drop Velocity 
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Figure 2. 6A-2 Secondary Drop Velocity 





Figure 2.6A-3 compares two sets of pre- 
dicted values for drop impingement locations on last 
stage rotor blades aft of the nose of the rotor blade 
for various-size secondary drops. The solid line is 
that predicted by CERL on the basis of their stator 
experiments as applied to a hypothetical turbine at 
full load. The points are predicted values for im- 
pact on the last rotor blades of the Yankee Turbine 
at the mean diameter, using the Yankee calculated 
values. 



of 

Slade 


IMPMGEMfNT LOCATIONS APT OF ROTOR BLADE NOSE - INCHES 

Figure 2. 6A-3 Rotor Blade Impingement Locations 
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APPENDIX 2.6B 


ADROP CODE SOURCE PROGRAM LISTING 


B, 1 ADROP Main Program Listing 

j ']p » n . 

ASROAA". 

A SOI \° 7 f VARL JFN, A 0*20A00# 0] . 
r 

PROGRAM A0R0P1 INPUT, OUTPUT , TAP F5« INP UT , TAPE 6-OUTPUT ) 

r 

r TRANSPORT OF ATnMI7ED CONOENSATE IN WET VAPOR TURBINES 

r 

COMMON /PR P/MAT , TFMP ,RHOV » RHOL , S I GL * VI SL , VI $V 
1 /TRG/C HORD ? P I TCH, RTEt PD * SI) ,PDS * SOS »P TH, STH, VZERO 

? /GEO/NS TAT ,NROTR t PPM, ALPHA t At PHI ,FOE AD, WDC , DSTAT »OROTR f 

3 AXSP , ST E f SCHQ, SPARC, SS ARC 

A /C ST /JOB (10) ,JMATI10)»PI , RD f NVO* 01 AM ( 10) 

5 /BUG/ 1 BUG 

C 

C 

0 1 MENS ION GD ATI 1A ) t TDATC 14 ) , XS 1 50 ) , VS 1 50) ,XP150) ,VP (50) ,K0PI10) 

FQU I VALENCE { AL PHA , TDAT ) 

DATA PI « RD ,KOP , GOAT/ 3 . 1 A 1 502A5 , . 0 1 7A53 3, 10*0, 1 4*0. / 

DATA JMAT / 7HL I TH t UM, AHSOOt UM , 7HP0TASS ♦ » 0-1 RUB (Of UM ,6HCES ! UM, 
l 7HMERCURY,6HNAK-7ft,5HWATER / 

DATA XS,VSfXP,VP,PD,SD,PDS,SDSiPTH,STH /206*0,/, XO/l./ 

NAMEt T ST/DRP/KOP, TR, VFREE ,GDAT , XS , VS , XP , VP, PO t SO , POSt SOS , PTH, STH 
I f XO,OI AM 
RF ADI 5 , t d ) JOB 
RPA015 , DR P ) 

IF iKOPIII.EQ.ft) STOP 

MAT * KOP I 1 ) % NS T AT = K0P(2I i NROTR * K0P(3) $ NS « K0PI5I 

RPM * KnP(A) % rnK a KDPIA) S NYO • X0PI9I % IBUG-KOPUO) 

WRITE! 6, 1A) jnn,KOR 

c 

C CONVERSION OF INPUT UNITS TO CGS 

C 

TFMP = TR/l.B 
V7FR0 = VFREE+'n.A* 

ALPHA = GOAT(l) t ALPHI = 0DATI2I 

FOE AO = GDA TI 3 ) S WDC = GOAT (A ) 

00 11" I - 5 , 11 

I 1 " T i)A T ( I ) = GOAT( I )*?. 54 

CHORD = SCH D t PITCH = P I *DSTAT/NS TAT $ BTE * ALPHA 
IF (MS.LE.O. AND.K0P(7) . L T . ") GO TO 200 
W'UTFI A, 16) TR, VFR F E »X0 » (GOAT It) ,L*1,7> 

** ITM A, IB) (GDATfl ) ,L=0,1l) 

r. 

C GTNEF A TE FLUID PROPERTIES AT STATOR EXIT CONDITIONS 

r 

CALL P°nPM(RHOV,TFMP,? f MAT| 

CALL PPOPMIRHOL , TEMP, 1 ,MAT) 

CALL PROPM( VISV,TEMP,4,MAT) 

CUL PR0PM(VISL,TFMP,3,MATI 
VI = 1 . /RHOL 

C ALL PROPMf SIGL »TFMP,9 # MAT) 

VV = l./RHOV 

vm = xo*vv^n.-xo)*vi 

PHDV = \ . / V M 
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f 

r check top property error signal 

r 

W* I TM 6, 1?) JMAT(MAT) , TFKP ,RHOV ,RHOL t V I SV * V I St , S I GL 
TP (PHOV*RHriL*VTSV+VISL+S I GL • L E » 0 • ) GO TO AOO 
r 

C CMC’ IL AT F TRAILING EDGE ROUNDARY LAYER DATA 

r 

IF (MS.LF.O) GO TO iso 

GAIL TPUCK(MS,SSARC,SPAPC,XS , V S , XP , VP , I OK i 
T P { 1 0 K , E D • 1 9 ) GO TO 2 on 
r 

C EXAMINE BALLISTICS OF ATOMIZED DROPS 

r 

I 8' IP c KO P ( T I .LT.OJ GO TO 2™ 

GALL TRAXIKOPfT) ) 

f 

r FXAMINF drop impact GFPMFTRY 


M 


1 

12 


1 A 
1 s 


IP ( KOP ( B ) . LT • 9 ) GO TO 400 

fUL I MPA X { NR OTR * DROTR , P PM , AL PHA , ALPH I , VZ ER 0 » 

GONTTNIIF 
01 TO TOO 
CUL EXIT 

F'lPMAT ( 1 DAB ) ^ 

FORMAT (1 X t 48 » ? 3 HW 0 RK ! NG FLUID AT TOO = F7.1 / 10X,13HRHnv (G/CC) 
\ , F14.4 / 1 OX 1 1 3HR HOI < G/CC > * E14.4 /10X,13HVISV (PI * E14.4 / 

7 irx,l3MVISl (P) “ E14.4 /19X,13H$1GL DYN/CM = E14.4 ) 

FORMAT (lHlfllH INPUT D A T A , 6X , 1 9 A8 / / l 7H OPTIONS KOP = 1018 //) 
F.1MAT (6X,1’MM1ILK FLUID TEMPERATURE (DEG R> * F10.2, 


I qX, 32 HFPFF-STPF AM VELOCITY (FPS) * FLO. 2/ 

? 6X 1 32HRULK FIUID QUALITY * F10.4, 

7 RX » 3 ?HE X IT FLOW ANGLE (OEGJ = F10.2/ 

4 SX » 3 2H I NL E T RUT OP BLADE ANGLE ( DEG I * F10.2, 

5 8X,37HDEA0-SPACE MULTIPLIER * HO. 2/ 

4 6X » 3 2HC R ! T I C At WFRER NUMBER ’ F10.Z, 

1 BX,32MFXtT STATCR DIAMETER (INI * F10.4/ 

1 a X , 7 ?H I NIC T ROTOR DIAMETER (IN) = F10.4, 

1 R X , 3 7HAX I AL INTER-ROW SPACE (IN) = HO. 4 

1R F 1PMAT (4X*32HSTAT0R TF THICKNESS UNI »F10.4, 

l RX» 33HST ATOR THOP D (IN) = F10.4/ 

7 (SXfRRHPPESSIJRF SURF. LENGTH (IN) = F10.4, 

1 RX,3?HSUCTtON SURF. LENGTH (INI = F10.4 

END 

Appendix B.2 Subroutine TRUCK Listing 


m 


SUBROUTINE TRUCK CM , $S, SP , X XS t XVS , X XP ,XVP, 13 I 
r 

C TWO UIMENSIDNAL ROUN CARY-LAYER CALCULATION MARCH 1968 

C RFVISED VERSION OF CODE OF W ANL - THE- 1 689 

C 

COMMON / PR P /MAT, TEMP, RHOV,RHOL , $ I GL , VI SL , V! SV 
l /TRG /CHORD, PI TCH , BT E , PO , SD , POS, SOS »P TH, STM, VZERO 

4 /CST/JOM 10) ,JMAT( 10) ,Pl,RD*NYD»DIAN I 1 0 > 

DIMFNS ION XXSI2I , XVSI2) ,XXP<2) ,XVP(2),XS(5ll tVSC 51 1 ,TS(5i) ,2SI51» » 
1 F*( 51 1,0(31 It E< 3ll,HS(5l>,EXNt5U,TSIN{5lt , OS IN I 51 ) ,DF$IN(51 ) 

OAT A( D-- . 1 B03 , -.1802# -.18, -.ITT# -.172, -.165, 

1-.1555, -.145, - , 130, -.123, -.1145, -.103, -.090, 

7 -.">78473, -.054770, -.030020, .0, ,037065# .083059, .144673, 

I.2?6P3 P , . 345038, .42S54R, .530005, .639996, .789418, 1.013354, 

41.176106, 1.414472, 1.854390, 2.303073), 

5 (F= 2.6, 2*5, 7.4, 2.3, 2.2, 2.1, 2.0, 1.9, 1.8, 1.T5, t. TO , 1 » 65 , 
61.60, 1.55, 1.59, 1.45, 1.40, 1.35, 1.30, 1.25, 1.20, 1.15, 1.125, 
71.10, 1.08, 1.36, 1.04, 1.03, 1.02, 1.01* 1.0051 
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C COMPUTE BLADE REYNOLDS NUMBER AND LIST INPUT 

C 

RES * RHOV* V2 ERO*S S / V I SV I REP » RES*SP/SS 

R c = RES * S * SS 

xsm = xxsm * hpui *= vsu) - o. 

WRITE(ft,l02) JI1B 
WRITC!ft,l03l JMAT(MAT) t RES,REP 

WRITE <6, 104) IXXSII) tXVSUItXXPdl ,XVP(I),!-l,N> 

ISMR « l i IDELT * AO i DELTA * 1* /IOEIT 

II - IHELTM % MI - 11-2 

DU *5 J =2 » T 1 

5 XS( J)*)K( J-lMDELTA 

xsi m * vsni) « 1. 

CM L SPLINT(XXS»XVSiMtXS(2)*VSI2l«NI«ltl) 
in S'JMS 1 = FS ( ? ) = 0, 
no i = ?, 1 1 

SUMS 1® SUMS 1 ♦(XS(I)-XSf I-ll )*(VS( I)**3.33+VSI I-il**3.33)/2.0 

AS = ( (0.074/(RE**0. 2) ) / 2 • 0) ** 1 » 166 

B S *0 . 0 30 4* f A L OG ( R E ) ) -0.2 3ft SI 

TSU I* (AS*SUNS1 )**0.85 71/VSU)**3 

ZSm*IAS*SUMSl >**4 

1 A SUMS?® (RS*ALOG(VS( I) )*O.OOft 5 l*ALOG(ZSU I >-FSI2M*Z$m/l .0608 

GO TO ?5 

1 5 SUMS? = SUMS2M ZS(IJ-ZS( I-l)l*( ALEEVS! 1)1 ♦ALOGm! I-ll 11/2.0 
FS( I) =BS+ALOG( VS( I M *0 .Orftll ♦ALOGC ZS( U l-I* 0608*SUMS2/ZS I l I 

if cfs m . gt. i-. inn go to 25 
x 1 = 1 t in * 10 

PUSITN * S* ( • 02*X T - . 02 ) 

W^ITEIfti 111 )T fPOSITN»FSIII , TS I N( I - 1 ) » OS I Nil - II v 0F51Nf I-U 
G'l TO 17 

2S CALL SPLINT(D*E»?ltFSUI.HSm»l*lfU 
EXNm = 2,/IHSm-l.l 
TS T M f n = TS( M+S 
DSIN{ I )*T$IN( I)*HSHI 
1ft OFSIN(T) = DSINU IMEXNf t)+U) 

17 IF USUR.GT.n GO TO 50 

I SIJR * ? S RE = PFP $ S * SP 

IF ( in.LF.O) GO TO 40 
WR1TFI6.1021 JOB 
W?ITE(ft,105) 

WR I TE ( ft » 1 06 ) 

WRI TE ( 6, 107) <xsm tVS( I) »TS( I I fFS( I !«HSC I) iEXNC I I tTSINtn « 

I DS I N ( I) *DFSINM J , I®2» ll) 

AO CALL SPLINT t XXP, XVP,M F XSI?) ,VS (21 ,MI f It l) 

SO * 0F5 I N { 11 ) 

ST)' = TS IN( Tl ) 

SOS = DSIN( Tl ) 

GO TO 1^ 

5" IF (IO.LE.O) GO Tn 70 
WRITE! ft ,lft2) JOR 
W7I TE ( ft, 109) 

WR I TE ( ft, 106 ) 

WRITE! 6 f 107) IXS(I) , VS I II , TSI I) f FSI IltHSI I) ,EXN( 1 1 ,TSIN( II , 

1 OSIN! I),DFSIN! I 1,1*2,11). 

PO = DFSIN( ID 
POS = DSTN! Ill 
PTH = TSTNf ID 
7ft RETURN 
r 
c 

I"? FORMAT ( IHlf ?X,72HTWO-D BOUNDARY LAYER C ALCU LATION, 6X , 10 A8 / I 
ini FIRMATfOH FLUID * A8 , 6X, 5HPES = E12.3, 6X, 5HREP - 

l F12.3///43H INPUT POSITION AND SURFACE VELOCITY ARRAYS// 8H SUCTIO 
7 N ♦ 1 L X ♦ IHX,9X, 1HV, 10X, 8HPRESSURE, l IX, 1HX,9X, IHV//) 

1 FORMAT (F20. A , F 1 0 . A , F 70 . A , F 1 0 . A ) 

105 FORMAT (10X, 15HSUCTI0N SURFACE ) 
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10A F 1R MAT ( /2X RHRFF E RR ED , 4XBHRF FERRFD * 4XBHREF ERRED » 6X5HSHAPE * 7X4HFQ 
lS*«iw"0NFST, "xMHOHENTUN, 5X6H0 ! SPl . , 7 **HFULl , /ZX8H0 1 STANCE 
2X3HVFLOC ITY, 4XRHM0M TH I C , 5XAHF ACTOR , 6X6HFA C TOR » 8X 1 HN f 8X9HTHICKNES 
3S,?X9H THICKNESS, 3X9HTHICKNESS ) 

107 FORMAT (2XFR.A,4XF0.6, 4XF R , 6 , 3XF9.6, 4XF8.6, 4XF8.6* 4XF8.6, 4XF 
18. 4, 4XF8.6) 

100 FORMAT UOX, 16HPRESSURF SURFACE > 

HI FOP MAT { 1 HO » IX, 60H*** ♦ FL OW SE PAR A T t ON**^ ARE FACTOR .LT.-0.I8 

1 //IX, 2H I - F 1 2 . 5 , 2X, IOHSURF *POSN=E12.5» 5H< 

2 tN. ) , 2X , 11HSHAPE FAC* F 1 2. 5 , 2X , 1 6 HAC T . MO M . TK(I - 1)* E12.5,4H(IN) 

3 /IX, 17HACT.DI SP.TK(!-n= E12.5, AH (! H ) , 2X , 1 4HRNDR Y. TK C I- l) * E12. 

45, 4H (INI, 3 AH ****** CON T INUING CALCULATION******* I 

END 


Appendix B.3 Subroutine WAKE Listing 


C 

r 

r 


no 


t(.n 


no 


14 1 
1 1 *5 


12 1 


SUBROUTINE WAKF(NS,XX, YD,VXY,BX) 

C OMMON/T 80/ CHORD, PITCH, RTF , PD, SO,POS,SDS,PTH,STH, VZ 
COMMON /BUG / I RUG 


GENERATION QF STATOR WAKE VELOCITY 


OATA IRO = .0174533) , IPI 
1^ (NS) 200,90,100 
SOLID * C HD RD/P ITCH 
COBX * CDS( RD*BT F ) 

DSTE = ( POS* SOS ) /CHORD 
THTE * ( PTH+STH) /CHORD 
COTE = THTE*SOLID/COBX 
8 A * 1 . - CHTE*(1.*HTF) 

88 * U.- CHTE*HTE)**2 
CK1 * (9A-l./(2.*C0RX*C0BX) 
C K2 = ( T A BX *RA /BB ) **2 
CK^= (C OR X-SOL I D*THTE*HTE) 


* 3 • 1415926) 


$ TABX « TANCRD*BTE I 
% DTE * ( PD*SD) /CHORD 
% HTE « DSTE/THTE 
A OLDT - CHTE 


) /BB 


NS = 1 

X = XX/CHORD 

AA = SQRT( l .*40.*X) 

MX * AA/IAA-<HTE-l.t/HTE) 

00 115 L L = 1 ,5 
KNT * 2-LL 

A A * ( j.-niDT*( 1 . *HX1) **2 
AB = l • - DLDT *HX 

FOX = (l.-CKl*AB*AR- ( C K2*AB**4*AA ) / < 2 .* A A ) ) / ( l . *HX I 
IF U8UG.E0.2) WR I TE ( 6 , 4 ) L L , KNT , XX , OLDT , FO X 
CALL VFRGFI OLDT ,FOX»KNT) 

IF (KNT.GF.20) GO TO 160 
IF <KNT.GE.ll 110,120 

IF (ABS( (OLOT-FOXl/OLDT) .LE. .001) GO TO 120 
CONTINUE 

WRITE! 6,5) KNT, XX, CHTE, OLDT 
NS = 10 
GO TO 150 
CTHTX = OLDT 

PX = ATAN (TABX+AB*AR/BB*RA/( 1 .-OLDT*( 1 • *HX ) ) ) 

THX = CTHTX*COS(BX)/SOLID 

VX - CK3/tC0S(BX)-S0LlD*THX+HX) 

VMTN * 1 13/S0RT( X*.025) 

YO = ABS(YD) 

V x Y = VX*VZ*. 5*1 ( 1 .*VMIN)-( 1 . - VM I N ) *COS ( P I* YD) ) 
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15*1 RETURN 
ir-o hX = BTE*RD 
VXY = V7 

I p (YD.NE.O. I GO TO 1 50 

VXY = VZ*U .-.13/SORTC XX/CH0RD*.025)) 

no T fl 150 

5 F 1 RMAT ( inn, 30 M **♦ NCN -CONVERGENCE IN WAKE# ITERATION# 16# 6H XX 
1= F6.'f,7H CHTE * E12.5, 7H DLOT ' » E12.5 ) 

5 FOFMAT(?m,3E?0.5) 

FND 


Appendix B.4 Subroutine TRAX Listing 


VJPRCUTINF TRAXI 1 0 1 

C 

r C H Clll. AT ION OF THF TRAJECTORIES OF ATOMIZED DROPS 

r 

COMMON /PRP/MAT,TFMP,ftHnv.RHOL , S I GL , VI SL , VI S V 
1 /T BO /CHORD, PITCH, GTE, PD, SO ,PDS, SDS #P TH, STH# VZERO 

? /GEO/NS TAT #NROTR,RPM, ALPHA, ALPHI , FOE AD, WDC , OST AT, DROTR , 

1 AXSP,STF,SCHD,SPAPC,SSARC 

* /C ST /JOB! 10) , JMAT( in| f P 1,RO,NYO,DIAM(IO) 

riMMnN/ICON/H,HMAX, HMINiPEI R, A GSR 

COMMON/TRX/ ZP,ZPR,DPD,wnP,DPP,TRIG,YY,DO,<CRIT, I, J, TOFU 0,3) , 

1 VRF L I ( 1 0 f 3 ) f VRFLF(to,3) f wFDM(10,3),TP2(l0,3 ) , VCX (10 , 3) ,XOC ( 10 , 3 I , 
7 OF X(1 n, 3) , VDF ( 10,3) ,DP2U0,3 ) , XOI S (10 , 3 ) ,N S 
DIMENSION YOU) ,Y(50) 

DATA HMI N , RELR , AB$R /3*1.F-R/ 

DATA (YD * 0. ,.35, U) , 

1 (OTAM = l . ,2. ,5., 10. ,20. ,50. , 100., 200. ,500. ) 

DTAMUO) = AMTN1 ( STEM .E4, 1000. ) 

DO flO 1=1,300 
HO T1F( U * 0. 

Ml = AXSP/53. 

XDE4D = FDEAD*STF 
NE = 0 

IF (NYD) 85,00,0? 

R5 NYD =2 * NF = -1 

YOU ) = 0. 

YD ( 2 ) * l. 

OH TO 05 
DO NYD =3 

D? WR!TF(6,35) JOB, PTH, STH, POS, SDS, PD, SO 
05 ZP = 10. 

IF UO.OT.I) ZP = ( AXSP-XDEAD) /( FO-1 . ) 

NS = NF 

DO 500 J= 1 , NYD 
DO 500 1=1,10 

Z a P = T = 0. 

YU ) = 1. 

Y(?> = XDEAD % YY = YO ( J ) 

MIT = KCRIT = 0 i H = HM AX = HI 

DO * DIAMUU1.F-4 % TRIG = 0. 

Of>D = RHOV + OD/VISV 
WOP = HHnv*DO/SIGL 
D°P = . 75*RH0V/ ( RHDt ♦DD ) 

XD I S ( I , J ) = ion, 

CML WAK FINS, Y( 2 ) , YD ( J ) , VXY, GX ) 

I r (NS . NE. I n j on TO 100 
RP X ( I , J ) = -1. 

r,o n, 5 n 0 
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1 ' ' v < r I i ( r , J ! - v x Y 
I , J t = r >. 

fail irrant ->,t,y, I » «- T ) 

R ' ’ c It TINUF 

W'>lTF(ft,5| JOR 
W> ITT ( J 

W!!THft?M ( * n I AMI I >,YD< J) ,Tf)F( I ,Jt ,VDF(! , J) ,VRELT Cl , J) , 

1 V°rl F It , J ) , W EDM I I , J ) , RE X ( I , J t ,1 = 1 , 1 n ) , J = 1 , NYD I 
W> I TF ( R, S ) JOR 
J>!TFU„n| 

0 ) S3? J = 1 . NYO 
0) R2' 1 1 = 1, l r 

ic (TP?( I , J) .EO." 1 ) 00 TO 5 20 

W3 ITF< ft, 2*1 OIAMtn , vnui ,TP?( 1 ,JI ,DP2( I, J) ,VCX( I , J I , XDC < I , J ) , 

1 xmsi i, j) 

R?' CONTINUE 
R = T U D N 

r p IP MAT ( ? 3H1 DROP TRAJFFTCRY S TUDY , ft X , 10 A8 //) 

2" r )RMAT I 19H SUMMARY OF RESULTS / /AX , 4H0 l AM, 6X , 2H YD, 7X , 7HTFL IGHT , 

1 7y f 7H VOF t NAI , OX, FHVPEL I ,9X,5HVPFLF , lRX.AHrfFDM.OX.RHALPHA // I 
? R R'1PR4T(2X,’FR.'> f ftF!A.A) 

?r f )P MAT (?X,?Ffl.;’,ftElA.A,FlA.2) 

T FORMAT ( ROH SECONDARY ATOMIZATION SUMMARY t / 6X , AHO I AH ,6X , 2HYD , 

I H X, AHTDIS , 10X , AHOSFC , I.OX , AHVOIS, 1 1 X, SHXO: , IOX,AHXOI S //I 
OR r JPMATdHl, 05 HTRMLINC, EDGE BOUNDARY LAYER DATA ,10A8 // A0X.13HP 
1 P " S SUP. E SI0F.17X, l’HSUCTION SIDE // 30H MOMENTUM THICKNESS (CHI 
7 E23.5,F?Q.R / 39H DISPLACEMENT THICKNESS ICMI F23 . 5 , F29 . *5 / 

0 V"H FULL THICK NTSS (CM) F23.5.F2D.5 ) 

(-NO 


Appendix B.5 Subroutine DERIV Listing 


RUE ROUT INF DERIV(T,Y,nY,I<>FT) 
r 

( OF R i VAT ! VF CAtCULAT TON 

r 

C 1MM0N /PRP/MAT, TEMP , RHCIV , RHOl , S I GL , V l S L , VI SV 
l /TAG ZCHORD » P ! TC H, RTF, PD, Sf), PD $, SOS, P TH t STH, VZERO 

? /GFO/N^TAT ,NROTR , R PM, ALPHA , ALPHI , FOE A 0, WDC * DST AT , DROTR , 

x AXSP ,STF f SCHD, SPARC ,SS ARC 

A /CSTSJQB (I'M • JMATUOt V P 1 ,RO,NYO,OI AM (10) 

•> /BUG/IAUG 

COMMON/ IC0N/H,HMAX,HMIN,RFLR, ARSR 

COMMON /TRX/ Z P , Z PR , OPO f WOP , OP P , TR I G , YY , DD , < CR I T » I » J * TOFt 10,3) , 

1 VRFL M n ,3) ,VRFLF { n ,3 1 rWFOM( 10, 3) ,TP?{ 10,3 1 ,VCX< 10, 31 , XDC ( 10,31 , 
? or X( 1 0, 3) , VOF 110, 3) ,0P2 no, 3 ) , XD!S( 10, 31 ,NS 
DIMCNSION Y I *50 1 fOYCS^l 

DATA KA,KR,l!N c S,TLAST ,WFD,Z /O , 0 , 70 ,1 . E 10, 0 • , 0. / 

K A = KAfl 

CM L WAKE(NS,Y(?1,YY,VXY,RX) 

?F (NS.FQ. 131 G 0 TO Ago 

YM) - AMAXlCl.E-AfAMINKYM) ,VXY) 1 

VRFL = VXY-Y{ 1 ) 

R C D = VREL*OPD 
CO = ?. 
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IF ( R F n . GT . 0 . .AND. RED. IT. 80.) CO = 27. /RED**. 84 

IF (PFD.GC.80, .ANO. PFD.LF.I.F4) CO = . ? 7 1 *RF 0** . 2 l 7 

OY(l) = DPP*VREL *VPFL*m 
0Y( = Y ( ] ) 

IF ((BUG) kHMTF(6«?0| K A , KR , T , Y( 1 i , Y ( 2 I # DY( I ) , OY ( 2 ) , VXY »H , RED • 
1 -IFO,/ ,7P,ZPR, TRIG 
TF ( K A. GT. SOO.ANO.KB.LT.?) CD TO 380 
( < ~ TIJP N 
r 

r - S' JC F c SFUL INTFGRATTON RTF P 

r 

entqy RTF P 

r 

KP = KRft 

7 = Y( ? ) *COS ( RX ) % X = Y ( P > % VO - YC 1 > 

wet) = VRFl *VRFL *WDP 

r r (Wt O.GT.WFOMH, JH WFDM ( I f J ) = WED 
147 [r (V'FO.GF.WOC . or . KCR I T . NF • * ) GO TO 400 

T4* r F (Z.GF.AXRP) GO TO 450 

r n ( VO • NF ,0 . ) HAST = (AX5P-7I/VD 

\ r (TLART.LT, H) H = HMAX=AMA XU HMf Nf 1 ,001 * Tl ART! 

f r ( 7 . I T . ?PR . OP . ? P . EQ . n . ) RFTURN 

r 

( CF TAILED PRINT RFC T I ON 

?■> P = 7*ZP 

I’ J (L I NFR.L T.40 ) GO TO 3 £4 
U T T r ( 0 # 5 ) job 

03 * 00*1 ,F4 
WUTE(6,6) DO » Y Y 
WR I T f ( f, , 1 5 I 
l I N c R = 4 

364 WU TF I 6» 1 0 I T , X , 7 , VD , VR FI .WEDfREO’, H 
LINER * LINER*! 

R r T UP N 

r 

T PROP DISRUPTION DETECTED 

C 

4n IF ( TR IG. FO.O . . AND, KCR IT. FQ.O > GO TO 410 

r c (t.lt.trtg) r,n to 344 

XOIR(l t J) = X 

XOCU.JJ * X/DO 

TRIG * 10, $ KCR IT = 0 

GO TO U4 

410 VC X ( I , J) * VRFL 

TPp = TP 2 ( I i J ) * ? ,8*00/VRCL*RQRT( RHOL/RHOV ) 

TUG * T * T P P 

DP7 ( r , J) * (1 36. *V ISL *SIGl**l . 8*00** . V ( C 0* * . 5*R HOV*RHOV*RHOL** , 5 
1 * VREi * *4 . 1 1**(1 ./3, 1 
KCR I T = 1 
GO TO 344 
r 

C END- OF -TRAJECTORY 

r. 

46H IF I7P.NE.I0.) WRITE! 6, 1 0 1 T , X, 7 , VO , VR El , WEO t REO »H 
K A * K R * 3 $ TP FT * t 

l I NF <; = 70 
TIAST = I.FIO 
TOF (I , J) x T 
VRFLF ( T , j ) = VRFl 

VOF ( I, J) * VD 
0 P X I I , J I x RX/RO 
XD I R ( r f J 1 X XDISU, JJ/X 
OFTIIRN 
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c 

c 

*90 


C 


WAKE CALCULATION ERROR 
RFXU i J1 * “*• . 

K\ 3 KB * 0 S 

TLAST * 1*F1° 

RETURN 


IRET - 


1 


ENTRY FAIL 


C 

C 

c 

•*80 


5 

f> 

10 

15 


NON-CONVERGENCE IN INTEGRATION 


m * kd+i 

VOFIIfJ) * VRELFIIfJ) * '1 • 

KA ■ KP ■ 0 i l R ET * 

TLAST * 1.E10 

return 

FORMAT (23H1 OROP TRAJECTORY S 
FOFMATI 17H DROP DIAMETER * 
IF*.? //> 

F0PMATt7El*.5,El?.*l 

FORMAT (TOX * *HTI ME « RXtftHX-WAKE 

l UX,3HWE0,tlX,3HRFD,llX # lHH 

FORMAT ( ?! 9/C8E15.5) ) 

END 


l 


TUOY* AX f 10 A8 / / » _ MfI1 

* «>• mfDuic.m. inuuAKF Y/f) 


, BX • 6HZ-WAKE 1 9 X, 5HVDR0P * 10X* 4HVRFL 
//) 


Appendix B.6 Subroutine IMPAX Listing 


c. 

c 

r 

c 


to 


SUPRCUT INF IMPAX ( NR* ROl A ,RPM t ALi A I » VZEROI 
CALCULATION OF DROPLET IMPINGEMENT GEOMETRY 
r TMMnN/CST/ JOB ( 10 1 * J^AT l 10) ,P I ?RDt NYD - t 

UINENSION V 0 I 40 ) *W0(*0),WN(*0) ,DL$l401tASDl*0If6ETAI* 

KX - V/FRO/lOO, i KX * 

vom - 0, S AV « 5.*KX 

00 IP K=?,21 

VO(K) = Vr>(K-n*AV 

V 1 ( 2 1) = V7ERH 


C 

c 

c 


58 


I/O ANGL E S IN DEGREES, USE RADIANS INTERNALLY 


S41 = STNF(AL*R01 

SM = $ I NF ( A T *R0 1 

P8 = P T ♦BO I A 
U* = PR^RPM/*^. 

S * pb/floatfinri 
AOO * RO.-AI 

VOO * MO/(SAL*U .M. /TANIRO+AOC) H 
WOO = VDO*SAL /SIN( RO*ADO J 
DLU = S+COS C A I * R D 1 


WOU) = UB*UB+VD<J»*vni JI-?.*UB*VDUI*S*L 
WO(J) * SORTFIWDUn 

AO = ACOSF UUR-VOI J) *SAL )/W0( jn 
WNU) = WO(J)*SINFI A0*AI*RD) 

WNI Jl * AMAX1 (WNU)fO. I 
ASDIJI = AO/RD 
BFTAtJt = PO. -A! -ASOI Jl 
rjOM = $INFl AD*AI*RO) 

IF UBSID0M1.lt. KE-10) GO TO 58 
DLS(J) * AB S ( S*S 1 N < A0)/D0M1 
IF IOL SI J) .GT .OLO) DLS(J) * 010 


GO TO 60 
DLS(J) = OLO 
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r. 


(SO 


10 

12 


14 
1 4 


CONTTNUF 

WR I TE C 6, 12 ) ( JOfU K > , K= 1 , 10 1 , R 0 I A , RPM , UB , AL , $ , A I 
WRITE (6, 16) DIO, ADO, VDC,WOn, VZ ERO 
WRITFf 4 , 14) 

WR ITE 1 ft, 10) 1 VD(K) t WH( K) , WN(K ) ,ASD(K) ,BETA( K) , OLS(K) , K*1 , JV) 

RETURN 

FORMAT (5F12*?,F1^.5I 

F ORMAT ( 1 H 1 , 1 OX , 1 OA 8 // 6X , 23H SEC T I ON DIAMETER (CM) » F10.4,10X, 

1 Z3HWHFFL RPM = FlO.l / ftX, 2 3HWHEEL SPEEO (CM/SEC) ■ 

2 P10.2,10x,?3HALPHA * F 10 • 2 /ftX, 23H81 ADE PITCH (CM 

= F10.4, 10x,20 H ALPHAT « F10.2 ) 

FORMAT MOX,?HVD, 1 OX , 2HW0 , 1 Ox, 2HWN , 8X , 6HAL PH AD, RX , 4HBETA , 5X , 
l 14HIMPACT LENGTH /) 

TOPM AT ( 6X,23HMAX DELTA L (CM) = FI 0.4, 10X , 23HALPHADO (DEG 

n * F10.?/ftX,? 3HVDRQP0 (CM/SEC) ->10.2, I0X,23HWD « 

2WN (fM/SEC) * F10.?/ftX,23HVZER0 (CM/SEC) * F10.2//) 

END 


Appendix B.7 Subroutine SPLI MT Listing 

r 

Sim ROUTINE SPLINT(XT,VT,NT,XI,VI,NI # JX,JV) 

XT IS THE FWA OF TARULATFD INDEPENDENT VARIABLE ARRAY 
C YT |s THE FWA OF TABULATED DEPENDENT VARIABLE ARRAY 

f NT IS THE NUMBER qr (xT,YTJ PAIRS 

F XI IS THE FWA OF INTERPOLATION ARGUMENTS 

C Y I IS THE FWA OF I NTFR POL A TED VALUES 

r N! IS THE NUMBER OF INTERPOLAT ION ARGUMENTS (Xl-VI PAIRS) - 

F JX AND JV SPFCIFY the STORAGE INCREMENTS IN ARRAYS XT AND YT 

DIMENSION XT(2) f YT(2),XII2),Yl(2) > ; ^ 

DUA l KX=n , ( KY S 1 ) , ( NN* 1 ) 

C j * * , r , v 

I T = l 4 . 

fl KX = J X 
KY = JY 
NN = N T 
ICF = 1 

TCP * n l. , 

NA = ( NT - l ) *K X+ l 
T*= IXTfNA).GT.XT(l)) GO TO 10 
TO F - O 
TCP = 1 

in NTT = NT - 1 
00 00 1 = 1 ,NN 
X * XKT) 

CA = CB * 1. 

OCA = OCR * 0. 

DO 20 J= 2 , NTT 
L = J*TCr + (NTM-J)*TCB 
NA = ( l -1 ) *KX+ 1 
TF IXT(NA).GE.X) GO TO 30 
20 CONTINtlF 

L = ( NT-3 ) * TCF+ICB 
CA = ICR 
CO = ICF 
GO TO 60 

3^ T c (J*GT,2) GO TO 50 
L * 3*ICFMNT-2J*ICB 
C A = ICF 
CR = ICR 

50 L = (L-?)*ICF*(L-1 )*ICfl 
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NA 

= 

( L-n*KX + l 

XT 

= 

XTtNA) 

NA 

z 

{ l-l )*KY+i 

VI 

= 

YT(NA) 

NA 

= 

L*KX*l 

X’ 

= 

XT(NA) 

NA 

z 

L *K Y *■ i 

Y? 

« 

YT(NA) 

NA 

s 

(l+U*KX + l 

XI 

z 

XTl NA) 

NA 

s 

t !_♦ 1 1 * K Y ♦ I 

Y3 

z 

YT(NA) 

NA 

-= 

( L*2)*KX* l 

X4 

= 

XTINA) 

NA 

= 

(L+?)*KYM 

Y4 

= 

YT< NA) 

Dl 

- 

{ XI-X2 )*( Xl-XO) 

D> 

- 

-( X1-X2)*(X?-X3) 

0 3 

- 

( XI - XT ) *{ X7-XT) 

0 4 

- 

( X?-XU*f X7-X41 

Al 

_ 

I x-x2) * ( x- x t ) n\ 

A? 

- 

I X-Xl)*(X-XT)/D? 

A3 

- 

( X-Xl) * ( X- X 2 ) f 03 

A4 

* 

( X- X 3 ) *( X-X4) /04 

A3 

- 

( X-X?) MX-X4) /05 

A3 

- 

( X-X?) * ( X - X 3 ) /n^ 


IP {(CA.E0.1.) 
lKA - X?-X3 
OCR = -OCA 
r\ 
c.p 
r> \ 
p 3 
fp 


UP . (CR. EO.O . ) ) Gn TO 64 


= tx-xn/ocA 
= ix-Pl/on 
= YI*A1+Y?*A2+Y1*A3 
- Y?*A4 + YTM C >*Y4*A6 
I IT .EQ.2 ) M TO 7” 

Yl ( I ) * C A*PA*Cn*PP 

r, j rn 

Y T A C C X-X?) MX-XT) ) /ni 
Y2*( ( X-Xl ) +IX-XT) )/02 
Y?*( { X -X 1 ) ♦ (X-X? I ) / n 3 

Y 2* ( ( X-XT)MX-X4) )/04 

Y 3 * t ( X-X2 > HX-XM )/0* 

Y4*( (X-X2)MX-X3) )/06 

= r A* I AUA2+AT)+PA*DCA*C!3*( A4+A5+A6)*P8*DCB 


A! 

A 7 
A 3 = 
A4 = 
A3 = 
A3 = 
Yin) 


rntiNME 

prTiJPN 


c^ru y 

YT 13 


OYHX 

THE DERIVATIVE 


OF THF TABULATED DATA AT XT 


T T = ? 
r,n TO R 
fm r 
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Appendix B.8 Subroutine VERGE Listing 


S'JPRHUTINF VFR r »F(XI#rnXfIK) 

ACrrLERATFO CONVERT, FNCF OF I TER AT I VF PROCESSES 
T.C.VARLJFN WANE 4/15/68 

13 T PENS ION gn( 5 ) 

OUA EPS,ETA,QO / 1 . F- 1 0 f 1 . F- 10 f 0 . f . 1 f . 55 , - l . f 5. / 

r< = i k+ i 

l P ( IK .GT. 1 ) r,n TO 70 
K - I A ft $ ( IK-2) 

!< = 1 

7 ft = XI 

VI = QO(K>*/Rf ( L.-CO(K) )*FOX 

0) TP Sn 

ft \r (ABStFOX-XT I » LT . EPS ) r 7 0 TP 3^ 

zz = (rnx*zn-xA*xn/(Fnx*ZR-x4-xn 

xi = zr 

i c (absizr) . r, r . e r a j r,n Jr =<> 

v> K ® -IK 

r ' X4 = FOX 

P-TIJWN 

F\jn 


Appendix B.9 Subroutine ICEAD Listing 

SUBROUTINE ICEADI N, T » X I , IRFT 1 
riMMnN/ICON/H,HWAX i HMfN,»FLn, A BSD 

0IMFN5 inti XII 21 ,Fllrt|,x(!0,S) , DYIl 0 , 5 1 , XP fl 0 1 ,Ct 10,41 
N = NO. n F EQUATIONS 

T = INDEPENDENT VARIABLE SET IWNTTlAt T 

U = STEP St 7.f SET IT* INITIAL H 

H^AX = MAXIMUM STEP SI7F ACCEPTABLE 
HMIN * MINIMUM STEP SIZE ACCEPTABLE 
^ElM * MAXIMUM ACCEPTABLE RELATIVE ERROR 
MSB * MAXIMUM ACCEPTABLE ABSOLUTE ERROR 

INITIAL I 7 A T ION 

L T = I 4 ♦ 2 *R E L B 
PACT * RELfl/ABSft 
CA * 1 . /S. 

IRTT * 0 
01 1^0 f * 1 , N 
i ^ xc i ,ii = xr i n 

r 

r RHNGF-KUTTA STARTING METHOD 

r 

1 1 i T \ = 1 B - 2 
12 ' DO 1*0 J = I A , I R 

CALL DERIV(T,XI l,J-ll ,DY(l,J-n f IRFT) 
r p iiMcn p c turn 
DO 1 3 r 1 = 1, N 
Cl I ,11 = H*DY ( I , J- 1 | 

i ^ xn ,j» = xi r t j- 1 1 ♦ ,s*ci i.u 

TEMP = T*.S*H 

CALL DFRIVI TFMP,XI 1 ,J| ,OYfl,J» ,IRFT» 

IF j [RET) RETURN 
m I 40 I * 1 , N 
C I I »?) = H*DY ( f , J | 


\ ABST * 1 A ♦ ? * AB SB 
% RB * RELT/200. 

* CR * 1./24. 

% H * ?.*H 


r 

r 

c 

r 

c 

c 

c 

r 

c 

c 

r 
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14n xd.J) ■ C T • ? > 

CALt OE^lVtTEMP.X (} , J) *OY M . J) d»ET> 

IF flPET) RETURN 
00 1 SO 1*1 *N 
C (1 . 3) ■ H*OV<I,J) 

15o x < I * J > ■ X ( 1 1 J»1 1 *C 1 1 *3) 

T « T *M 

CALL DtH J y ( T * X ( \ • J) ,Dy d • J) • 1®FM 
IF (IRtT) Hf.TUkM 
00 160 1*1 »N 
C(l .4) * H«DY (I.J) 

16 o xd.J) * xdfj-iMCfl^CiI.n^^nr. ?)♦<*<!. 

IF {lBtNE,2> ikoilTp 
17n 00 1«0 I*I*N 

1 Bo *p< f) ■ X < I tH) 

7 ■ T-H % H ■ ,S*M 

IF fH.LT.HMIN) CALL FAll ( T . X . OY , I WF T ) 

IF f I RE T ) RETURN 
IR « 3 
00 tO IZO 

lOo IF <l8.Nfc.3) GO TO ?5S 
J « 3 

200 00 ?50 l*l*N 

E(I) ■ ARStxRtl >-x U *J) ) 

IF ie(I>.Gfc.AB$lMl.J>>**FL*l r * n Tn 

Ft I) ■ tdl/AHSlXd.J)) 

GO TO 250 

IF fFlU.fie.ABST) GO TO 210 
E(I) * t IT)*) ACT 
00 TO 260 
?3n T * T-H 

IF (J.NE.S) GO 10 170 

no 7A0 K*1 *N 

?4rt X<*.1> = XlK»4) 

GO TO 110 
CONTINUE 

IF fJ.LW.E) oO TO 3 \ 0 
TA . IB ■ A 
r,0 TO 120 
C 

c SFNn STARTING VALUt^ TO STEP 

c 

2SS T * T-3* *h 

00 ?60 J«?»* 

T * T .H 

?fcn CAUL STtP(T.)Ul.J).''Vll.J).I c l‘ r Ti 
IF (I«ET) widow* 

c 

C pFGtN iCF-ADAHS mFThOO 

C ?Rf> CALI l)tHlVn*Xd,4),0Y(1.4).rwtT) 

IF tlWLT) Rttowf) 
no ?Qo I « l . * 

?9n XP(T) ■ Adt*)*CB*H#ms.* f 'TrI.4)-«.R.*l»Y(I.3»*37.«OYt 
10Y ( T » U > 

T ■ T.H 

CALL Dt«tV (T**P.OYU *S) d^ET) 

\f < I T > W E 1 UR h- 

3 no xd ? s ? * 1 < i *<*) to # * ov d # 6 ) . i q ,* r»Y d » 4 ) - s.»oy t ? • 3 ) 

J * 5 
GO TO ?60 
3lo on i?0 1*1 *n 

XtT.A) * X (ItS) 

00 320 J*2*S 
3?ft DY< 1 • j-l ) * UY { \ , J) 

CALL S*EP(T.Xd,4).nYd,4).TRF-t) 

IF (1HLT) HFTUWv 
00 330 

IF (E(I) .GT.W9) GO rO 2«0 
330 CONTINUE 

IF t 2 .*H ,{jT . HMA t ) Go TO ?nO 
00 140 1*1 *N 
340 Xd.U 3 Xd«**) 

H * 4.*h 
GO TO HO 

WfTltWN 
fND 




+ 'iy d *?\ ) 
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Appendix B.10 Subroutine PROPM Listing 


SUBROUTINE PPOPMf XX.TK, JPRQP, JFLUID! 

C OMP uT 4 T I ON nr SAT LIQUID AND VAPOR PROPERTIES OF WORKING FLUIDS 


Ji min 

HATFR I Al 

JFLUID 

MATERIAL 

1 

L TTHIUM 

5 

CESIUM 

2 

SODIUM 

6 

MERCURY 

1 

POTASSIUM 

7 

NAK-78 

4 

RUfliniUM 

8 

WATFR 


THIS VERSION ASSUMES INPUT TEMP IN DEGREES KELVIN 


C STFAM oata tabulations 
c 


DIMENSION TH2U2I t PSH2(l21,VLH?U21,VGH2ll2l,ClH2(12>,CVH2(12>, 

1 Ml H2 I 121 

DATA TH’/.ni, io. ,10. *50* ,80. ,120. ,150. ,200. , 250. , 300. , 350 . , 374. /, 
l PSH2/ .OOM 12 * .0 12 271 , .042*?,. 12135 , .4735 9,1.0854,4.7597,15.55, 
7 39. 776,85.917, 165. 37,220.9 /, 

3 VLH2/ 1.00021,1.0904,1.0044, 1.0121,1.029, 1.0603,1.0906*1.1565, 

'» 1.251 2, 1 .4036, 1.741,2.5 /, 

5 VGH2 / 206146. , 1 0 64 22 . , 12929 . , 1 2045 ., 3405. ,891.71,392.57,127.19, 

6 50 . 056 , 21 . 643 , 8 . 875 , 3 . 47 /, 

7 CLH2 / 4.2174,4. 1928,4. |Tft7,4.1812»4. 1965, 4.2446,4.31,4.4966, 

8 4, R667, 5. 7619, 10.1047, 1400.5 / 

P4TA CVH2 / 1.8542,1.8595,1.8745,1.8986,1.9616,2,1196,2.3144, 

1 2.8429, 1.7722, 5. 8631 , 1 7. 1505,3513.7 /, 

7 HIH2 /?50O, 9994, 2477. oi, 24 30. 34, 2382. 7,2308.1, 2202 .3,2114.8, 
1 l Q 4 0.6, 171 5. 2, 1404. ,893. , l 14./, ITEM /O/ 

TKTIKto). 1 . 8*R-459, 67 
l r ( ITEM.EO.il GO TO 10 
OO 20 1*1,12 
PSH2I r 1 * AL0r,(P$H2( T 1 I 
V 0 H 2 ( I l - AL0G1VGH2M I ) 

7 1 HLH2I I ) * AL0G(HLH2( I ) ) 

I TFM* 1 
1 " T = TK 

JF = JFLUID 
J° * J PR OP 

IF1T.I T.250..0R.T.GT.100O. ) GO TO 410 

r 

c G’l Tn APPROPRIATE PROPERTY SECTION 

C 

l r IJF.lT.l .HR. JF.GT.5 .OR. JP.LT, i .OR.JP.GT. 151 GO TO 400 
m to fl 001 , 1002, 1003, 1004, 1005*1006,1007,1 008,1009,400,101! 
t 1712, 1013,1014,10151, JP 


C SAT i (QUIP DENSITY (G/OMl) 

r 


K'M go rn (111,112,113,114,115,116,117,1181, JF 


111 

T * 3173. 15-T 

X = . 1 24*5. 306F-3*S0RTm*4.l35F~5*T 

r, i rn 5oo 


112 

T = T-273.18 



X * . 9501-2. 2976F-4*T- I. 46E-8*T*T*5 .638E-12 *T*T*T 

m m son 

RL 

113 

X*9.r q 35 78E-1-2.24 45 34F-44T-1 . 2746 1 7E-R*T*T 

R3L 


GO TO 500 

114 

X = 1 . r >75802'3.074245£-4*T+3.437?47F-8*T*T 

G 1 TO 5f)0 

R4L 

1 1 5 

X-l . 98 56 3 7-4. 549765F-44T-5 ,955C05E-8*T*T 
G1 TO 500 

R5L 

1 16 

. 43 p 176E 1-2.861 766E-3*T*3. 76 3 475F-7*T*T 

GO TO 5^0 

R6L 


NA 
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1 17 x = o. 3 * 0^5 19589*- 1 - 2 . 3<O7330ftt OF-4*T*3. 588 10 34579E-9*T*T 

go to 5^0 

1 1 A T = T- 27 3 . I 5 

TML S I NT (TH?»VLH?tl2fTfXfl ,1,11 
X x 1 . ft 

r. i to *oo 

SAT VAPOR Of- NS I TV (G/CM3I 


IV? 

171 

1 ?2 
123 
1 24 
1 2* 

1 2* 
17 * 


r,i in U21,122.123.17*.«25,1ZA.*OO|I20), JF 
X.r<PFU.3?,23*E-l-1.560?7?E*/T-1.12*B64E6/T**2l 

f-i t n *pp 

XrfXPF II .0007 R*-l .01291AE4/T-5 . 7* 469F*/T**2 ) 
c , o in * o n 

*»E<PFC1.nS7*2E-l-0.2*11«VT-*.26'>*ME5/T**2l 

P 1 TP 500 

;.EXPFU.077271F-1-6.1«^*E3/T-9.252IB5ES/T**2» 


x=r<PF H .75 7 < >ft3-7.37|*?7C3/T-l.<m032E5/T**2t 

GO TP *00 

X sf XPF ( 3 • ?4 3496-4 , 55902E 3/7-6 • 0744365/T**2J 


G 1 TO *9" 

T = T-773.1B 

f \H SPl.TNTtTM2.VGH2, 12, T t X,l ,1,11 

X * 1 . /FXPl XJ 
GO T ( l *0^ 


1 POO 
1 3 1 

132 

1 31 

1 34 

ns 

t 76 
137 
1 1* 


SAT l tOUIO VISCOSITY (G/SFC-CM) 

-nm i , -i , 117. !33.134,n*»n&»n7,138) , J F 

d _ l# p_3*{o.**(*nl921-lSS.99l/T-1.6l506*M0Gi3(Tn 

X . 01 * 10 .**( ,* 108 ♦2 70 . 65 /T-. 492 **AL 0 Gl 0 t T ) 1 

5-\J 4 ^Q^Sfl6E-A»2.o28^S7/T-*,41094Rr2/T**2+l . 646904E5/T**3 

f- 3 *l o,**<* 2 . 2374 /?-. 78639 * AlOGlOIT)* 2 . 4459 ) 

YO Sf}o 

^ - j'C- 3 *lQ,**( 104*01 3 / T- «S 99 1 \ * ALOGIO ( T )♦ 1 ♦ 878 1 1 
^_p[^3^<iR7f--3_3.10SS39/T + 7.791 399E 3 / T** 2- 3. 544087E 5 /T**3 

xn!n 7 ?ME- 4 * 8 .n| 9 n*lE-l/T*?*l 47332 F 2 /T** 2 * 2 . 596542 E 4 /T **3 

G 3 TP *QO 

X = 741 . 4 £-fS*l",**< 247 . 8 / 1 1 - 140 . n 
GO TP *00 


r 

r 

10 04 

141 

142 
14 3 
144 
14* 
146 
1*8 


SAT VAPOR VISCOSITY (G/SEC-CH) 


VI TO ( 141 ,142, 143, 144,145,146, 400, 1481, JF 
(■* 3.67 38 15E-5* 1 • 1 671 82E-7*T-l • 135025E-1 i*T* T 


G) TO son 

x * . 0041 34*1 .03427*8. 176F-6*TKT0H T M 

X = 3, 87 0094 F -5 * 1 . Q825P8E-7*T-4 , 52B330F-1 1*7* T 

GO TO *00 

X *P • 61 970 3F _ **2 • 02 771 9F-* 7*7-3 • 327784E- 1 1 *7* T 

GO TP *00 t . 

x.9,*7O804F-5*7.?22279E-79T-4.27037lF-il*T*T 

G 3 TP *00 

X-7.1,32'>5E-S*A.3P''290e-7*TH.373«75F-10*T*T 


GO TP *00 

X * 1 , E- 6 M 80 . 4 *. 407 *( T- 273 . 15 M 
GO TO *00 


R7L 


RIG 

R2G 

R3G 

R 4 G 

R5G 

R6G 


VL NA 
V3L 

VI RB 
VL CS 
V6L 
V7L 

VL H20 


VIG 

VG NA 

V3G 

V4G 

V5G 

V6G 
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c 

r 

r 


SAT L T QU 1 0 THERMAL CONDUCTIVITY (W /CM-K ) 


li.ns 01 TO (l6l v lS2»l» 9 |S4fl55«l56»lS?»lS8l l JF 
1*1 T = TK TDF { T > 

X=.49QQ0+2. 7992C-4*T*2.2565E-8*T*T-2.4606F- n*T*T*T 
Gn TO *00 
15? T = TK TOF ( T 1 

X x .01731*154. 3O6-.9i078*T*2.O914E-t*T*n 
GO Tn 500 

153 T « TK TOF (T) 

X*. 966 09*4, 7904E-4*T*1 . 3 778E- 7 *T* T-2 . 40 84F- lt*T*T*T 
GO TO 300 

1 54 T = TKTDFm 

X= . 49609-8. 52 8 9E-5*T-2 .8444E-8*T*T + 3 .4240E- 1 2*T*T*T 
GO TO 300 

155 X * 1 . 65F-6*S09T( T ) 

GO TO 500 

156 x=. 14648003*50. 8368/T-8. ?O005F4/T**2 *3 . 262 95E7/T**3 

1 -4.4*661E9/T**4 

GH TO 500 

157 X=] . 38 42 35F- 1*2. 05 54 7F2/T-1 .06233 IF 5/T**2*l . 60 t 38F7/T**3 
Gn TO 500 

158 T * T/273.15 

X * .0 ! *(-922.47*2830. 5*T-10OO .7*T*T*525. 77 *T*T* T-73 .44*T **4 ) 

GO TO 500 
300 X = X* . 7007 
Gl TR 500 

r 

r SAT VAPOR THFRMAL CONDUCT ! VI TY ( W/CM-K 1 


KV, Gil TO M6t , 162, 163,164, 165,166,400,168), JF 
1M X*1 .21 l?4?F-4*5.1352?t E-7* T-5 . 902087F- 1 l *T* T 
G ) TO 500 
U T x TKT0C(T1 

X = .O173*n.639E-3*.0977E-4*T-,9697E-ft*T*r ) 

G 1 TO 500 

163 X = ? . 03 3 * fl9£-5 *1 .400357E-7*T - 3 . 133 ft 30F - 1 1 * T**2 

G 1 TO 50 0 

164 X-3.87n404F-5*6.3?5412E-«*T - 9 . 5 35292E - t 2* T **2 

GO TO 5Q0 

165 X=?.245^09E-5»4.234143E-8*T-6.4690?4F-12*T*T 

03 TO 500 

166 X = 2. 74 90 4 6E -6*1 .1 75486F-7*T-? . 45467 OF- 1 1 *T* *2 
GU TO 500 

160 ,T = T-273. 1 5 

X x 1 . E-S*(l 7.6*.0597*TH .04E-4*T*T-4.5 IE-0 *T*T*T1 

go rn 5no 

r 

r SAT L10UTD SPrCIFTC HEAT IW-SFC/G-K) 

r 

10 7 go TO (171.172.173,174,175, 176,177, 170), JF 
171 T « T-273. 1 5 

* * 4. 104*( 1.0577-1. ?152F-4*T*5.3477E-8*T*T> 

G ) TO 5Qn 
17? T = T-273. 18 

X = 4. 1 07*( 0, 34324-1. 3860E-4*T*1. 1044E-7*T*T > 

G 1 TO 500 

IT* X = 0 , 5 1 2 049E-1-4, 860091 E-4*T + 3, 1 2 2 7 63 E- 7 *T*T 
GO TO 5 0« 

174 T x TKTHF ( T 1 

X = 4. 1« 7*( . 09915-3. 106C-S*T + 1 . 2 99E-R*T*T 1 
GO Tn 500 
1 75 T = TK T OF ( T ) 

X = 4. 1 8 7* ( .0 954 3*9. 605E-5*Tf 5. 9R5E-0*T*T) 

GO TO 500 

176 X=], 5104 3 5E-1-5. 0703 69F- 6* t*5. 301O?9 F-8*T*T 
GO TH 500 

177 T = T- 273. 1 0 

X x 4. 1 «7*( .232-8. 82E r 5*T*8.2E-0*T*T> 


TIL 

TL NA 

T3L 

T4L 

T6L 

T7L 

TCL H20 
TIG 

TG NA 

T3G 

TAG 

T5G 

T6G 

TCG H20 


CL NA 
C3L 

C4L 

C5L 

C6L 

CL NAK 
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-> n 


r 

r 

r. 


IT* 


K‘'*t 

l 1 

1*2 

1 ai 

I «4 
1 H5 
1 A'. 

1 A 5 

r 

r 

r 

l ■ ■ ■» 

\oi 

i o‘> 

1 o/, 

I os 

1 r, 6 
|OT 
1 Oq 

r 

C 

c 

in i 

?17 

?n 

*M4 
?1 5 

m 

217 

?M 

K>12 

221 

222 

221 

7 2* 

22* 


GO TO 500 
T = T-2 7 3.15 

cut SPt f NT ( TH 2 f CLH2 ,12,T,X,l,l,l) 

go td 500 

SAT VAPOR SPFCfFfC HFAT (w-sfc/g-ki 


go TO f 1 51 , l 82, 181,1 *4,?85 f 136,500,1651 , JF 
X*o.9647’-l .171 «68F4 /Ta-T.2S3117F7/T**2-5.8?6UE10/T**3 

r,i to a^o 

X * 4. IA7M ,?l qofl^6. A 5AArXPC-707O8. /Til 
GO TP V'" 

X*-6. M t A41 F-l *4.04471 5F7/T-3. 191891F6/T**2 *8.4931 31E8/T**3 
G ) TO 5 *0 

X * - 1 , 7 7'V5 78F-?*8.661*81F7/T-4.0755 < >7F5/T**2 
G 1 TP r P0 

x = - 1, 7 *49 29E-2* 5. 27 *6 6 If?/ T-2. 32491E5/T**2 

G 1 TP 590 

X*l .07AO8 7F-lM.6 7?4Mr-5*TM . 6971 2 l F-B*T*T 
GO TP 5.;o 
T = T-?77 , l 5 

FAIL S**L INT I TH?*riM2 f 1 2, T* Xt 1 t It 1 I 
GO Tn qnq 

SAT LIQUID SUPFACf TENSION (OYN/CM) 

G i TO H^l ,167, 191, 1<>4,15S, 196,197,198) » JF 
Xt 4.*A4048F ?- 1 .36*>226E-1 *T*1 . 6 l 5 48 7E~6*T *T 
G ) TO *0 7 

X * 7^6.7-. 1*11-271.181 
GO TO 50 n 

X » 1 1 5.51 -.0651*1 T-771,18) 

G 1 TO r ‘Q0 

X - i ,347296F7-5.6O6006F-?AT-l ■ 513351E-5*T*T 
GO TO cn 0 
T = TKTPF(T) 

X~76. 4-.o 3* ( T-8 3, ) 

G 1 TO 500 

X - OPP.-.1,52*T , • . 

GO Tn 500 

X~ 1 . 7 r 1 6fl 7h 7- 1 • 5R071 7F-2AT . . 

G 7 TP 500 

X * 53.0-.2l6AIT-177.15l 

go rn Aon 

IIOIITP SONIC VELOCITY (CM/SEC) 

GO TO (400, 71 2, ?I3 ,714,715,716 ,217,218) , JF 
X * 2.626F5-52.4*(T-17P.7R) 

G 7 TP 500 

X * 1.869E6-53. *( T- 173 • 181 
G ) TO 6np 

X = I , 76E6-40, *( T-277. 15 ) 

GO TO 600 

X * 9,6.7F4-10.*1T-?73,18) 

GO TP 600 , . . . . v • - - ■ ■ 

X - 1,460865-45. 75*17-271.181 
GO TP 600 

X * ?O70po,-54.7*lT-?73.1B) 

GO TP 600 

X * 1 , 437F5 A640 . * I T-788. 1 81 
GJ TP 500 

SAT VAPOR SONIC VF1.0CITY ICH/SFCI 

GO TO ( 2?1 ,227, 771,224,725*400,400,400) , JF 
X= 7,65 071 IE 44-36. 0 5O3*T-7. 88130 3F-3*T*T 

GO TP 500 

X*4.71O055E4M.3694E1AT-6.391 655E6/T 

GO TP 6on 

X*7.t 3428 SC4f 7.8 16657E1*T-5.800705E-3*T*T 

GO TO 600 - • 

X-= 1 , 654 A2 7E4 4-1 . 626647F 1 * T-2 . 6 1 182?E-3*T*T 
GO TO 600 

Xr 1.7774A8E4M . 2 1 700 7F 1 * T- 1 . 76 3269F- 3*T*T 
GO TP 600 


C1G 

CG NA 

C3G 

C4G 

C5G 

C6G 


ST1 

ST NA 
ST K 
5T4 

S T 5 

ST HG 
5T7 

ST H20 


SVL NA 
SVL K 
SVL RB 
SVL CS 
SVL HG 
SVL NAK 
SVL H20 


SV1 

SV2 

SV3 

SV4 

SV5 
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c VAPOR PRESSURE (BARS) 

C 

1013 GO TO C ? 31 ,232, 233,734, 235,236, 237,2381 , JF 

231 X * 1 .01325*10. *M-2. 1974-6499. l/TM .939*ALOGIO(T) 1 


GO TO son 

73? X - l.<n3*EXP(6.680R-5544.4l/T-.61344*AL0G( Tl) VP 

GO TO 500 

233 X*FXPF (9.I9i863-9.030992£3/T-4.33038E5/T**2) VP3 

GO TO 500 

234 T * T* 1 , 8 

X* 0.06895*10, **(5. 2007 1 -ft 994 . 68/T ) VP4 

GO TO 800 

235 X*FXPF IB. 636035-7. 71 5273F3/T-3 .846408E5/T** 2) VP5 

GO TO 500 

236 T - T* 1 . 8 

X * . 0013337*10. + MI". 57757-5954. 55/T- . 8*AL OGIOIT) I VP 

GO TO 500 

237 X - !.013*<EXPK. 114-4367. fTW VP 

GO TO 500 

738 T » T-273.15 

CALL $PLINTfTH2,PSH2,l2.T # X f l ,1,1) 

X * F X P( XI 
GO TO 500 


0 LAT FNf HEAT OF VAPOR I 2 A T TON (J/GM) 

r 

1014 GO TO (241, 242, 743, 4 00, 245, 400, 400,248), JF 
241 T * T/31 73. 

X « 4, 184*6081. ?*(1 .-T)**. 3775 
GO TO 500 

7 42 X - 4. 178649F3+2,829841E-l*T-4. 765964E-4* T*T 
GO Tfl 500 

24 3 X = ?.26 9G79E3-l . 31 8 445 F - 1 * T- 7 . 0030 39E-4* T*T 
GO TO 5^0 

745 X=6.050702E7-4.54372lF-2*T-5.9O2942E-5*T*T 

GO TO 50° 

248 T » T-273.15 

CALL SPLINT (TH7*HLH2|1?*T*X» 1 ,1,1) 

X * FXP(X) 

GO TO 500 

C 

C SAT LIQUID ELECTRICAL RESISTIVITY 10HM-CH) 

C 

1015 GOTO (751 ,252,257,254,255, 400,257,4001 , JF 
75] T * TKTOF(T) 

X 3 7.S4E-6 *( 10. t 86*2. 5 1 87F- 3* T+6 . 0 1 68E-7*T *T^ 1 . I 545E- 1 0*T*T*T1 

GO TO 500 

252 T * TKTOF(T) 

X 3 ? . 54E-6 * (7. 1729*7. 624 8E-3*T* 5.8 313E-7*T*T*1 . 1 2 60E-9* T*T* T> 
GO TO 500 

253 T 3 TKTOF(T) 

X 3 ?. 54E-6 *1 2.6 07flM.49 55E-2*T-2,03 98E-6*T*TO.5792E-9*T*T*n 

Gfl TO 500 

754 T * TKTOF(T) 

X*2. 54E-6 *( 6. 35 19 *2. 0871 E-2*T* 5. 107l£-6*T *T+6. 2079E-9*T*T*T I 

GO TO 500 

755 T = TK TOF ( T 1 

X = 2. 54F-<S *( 10.90 8(54-3 .3902E-2*T-1 .6701 E-5* T*TM . 0964E- 8* T*T* T) 

GO TO 500 
257 T * TK TOF ( T 1 

X= ? • 54 E-6 *( 12. 8 180*1 ,2679f-2*T-3.650lE-7*T*T*2*fl52E-9*T*T*TI 

GO TO 500 


NA 


HG 

NAK 


LV2 

LV3 

LV5 


P S 1 
RS2 
RS3 
RS4 
RS5 
RS7 


C 

400 WRITE (6,5) JP,JF 
X * -l . 

500 XX * X 

50 1 RETURN 

410 WRITE (6,4) T 
X * - 1 . 

GO TO 501 


5 FORMAT ( // 72H *** ERROR IN SUBROUTINE PROP -- ILLEGAL FLUID OR PROP 
1ERTY CODE USED *♦* // 5X f 7HJPP0P • 1 6 , 6X, BH J FL U I D - 16 //) 

4 FORMAT ( //63H *** ERR CR IN SUBROUTINE PROP -- OUT OF BOUNDS TEMPERA 
l TURE *** // 6X, 11HT (KELVIN) * E20.5 //) 

END 
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2. 7 ATOMIZATION OF COLLECTED CON- 
DENSATE* 

2.7,1 Background 

As has been frequently stated, it is that 
fraction of the condensate which has been collected 
by the various turbine surfaces and then discharged 
in the form of macroscopic diameter drops which is 
capable of causing erosion damage. In wet vapor 
turbines two locations of particular interest are: 

(l) atomization of liquid torn from that flowing 
along the turbine housing, and (2) atomization of 
liquid from the vicinity of the trailing edges of 
stator vanes. In both instances the liquid can be 
carried into the path of rotor blades moving with 
high velocities relative to the liquid . Impact of 
liquid at high velocities on surfaces can cause 
erosion damage providing the liquid drops are of 
sufficient girth to drive the threshold velocity to 
cause damage below the impact velocity. 


the decaying wakes downstream of the stators and 
accelerated by the vapor stream. Most of the pri- 
mary drops are unstable under the aerodynamic 
conditions prevailing during this acceleration. Pro- 
viding there is sufficient distance (time of flight) 
between stator and rotor, these unstable drops are 
broken down into smaller stable drops. This stage of 
the atomization process is called secondary atomiza- 
tion. Completion of the secondary atomization 
process gives a relatively stable population of drops 
composed of a residual of primary drops which were 
small enough to be stable plus the secondary drops 
formed from shattered primary drops. In well design- 
ed turbines, it is this stabilized population of drops 
which impinge upon the rotor blades and can cause 
erosion damage. The discussion which follows is 
concerned with the various stages of atomization of 
stator discharged liquid. 


2.7.2 Stator Atomization Model 


In considering casing liquid atomization the 
Westinghouse erosion model assumes that drops are 
produced by the same general mechanism as that of 
the primary stage of atomization of the liquid torn 


from stators. This assumption allows the sgme equa- 
tions to be used for predicting casing liquid atomized 
drop diameters for rotor impingement investigation as 
are used in predicting the primary atomization drop 
diameters from stator discharged liquid. Such a cas- 
ing liquid calculation has been previously reported. 

To our knowledge there is no experimental data by 
which to check this assumption. A substantial dis- 
cussion of the general nature of the casing liquid 


flows is provided in Spies, Baughman, and Blake. 


0 ) 


Visual observations in steam turbines ^ *^) 
reveal that the liquid collected on the stators Is torn 
from the vicinity of the trailing edges of the stator 
vanes. Initially this liquid is in the form of a dis- 
tribution of sizes of fairly large drops. This stage 
of the atomization process is called primary atomi- 
zation. These large primary drops are caught up in 


* W. D. Pouchot, Advisory Engineer, Systems & 
Technology Section, Westinghouse Astronuclear 
Laboratory, Large, Pa. 


a) General Description 

To calculate the erosion by liquid of damag- 
ing form, it is necessary to know the size, relative 
velocity and number and location of impacts on the 
rotor blades as a relation of time. There are at least 
four different mechanisms of primary atomization 
and two for secondary atomization which have been 
observed under conditions related to those in turbine 
stators. To trace the history of all these possible 
processes would be a formidable, If not impossible 
task. Because of this, the approach taken In the 
Westinghouse model involves substantial simplifica- 
tion through gross description of droplet classes 
based in large part on empirical correlating relations 
commonly used in describing gas -atomized liquid 
sprays. 


Furthermore, almost all the empirical ob- 
servations used in preparing the numerical detail of 
the atomization model were taken from reference 
material where the tests reported were made using 
steam vapor or air atomization of water drops. 
Nonetheless, it is felt that observations on steam 
or air atomization of water drops, particularly ob- 
servations in actual turbines or turbine-like cascades, 
are applicable to a broader spectrum of turbine 
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working fluids (such as the liquid metals) of low 
liquid -viscosity and substantial surface tension.* 

• Nomenclature 


Number of drops 

Exponent in Nukiyama-Tanasawa distribu- 
tion function 


In dimensional equations the units used are: 

Mass-slugs, Force-pounds, Length-feet, 
Time-seconds 

a Constant in Nukiyama-Tanasawa distribu- 

tion functions 

a Stator blade trailing edge thickness 

b Constant in Nukiyama-Tanasawa distribu- 

tion function 

D Drop diameter 

D Most common drop diameter in terms of 

m , 

spray volume 

D 3-0 Mass mean drop diameter 

The drop approximately three standard 
deviations larger than the mean drop 

D Maximum drop diameter 

max r 

K A constant 

L Length along surface of stator blade from 

nose to trailing edge 

M Mach No, based on free stream conditions 

a 

m^ Collected liquid mass flow rate per unit 

casing periphery or blade height 


* Wetability of the liquid with respect to surface 
does not seem to be an important factor. Experi- 
ments reported in reference (4) seem to indicate that 
under the impress of aerodynamic forces liquids tend to 
become non-wetting. This is reasonable since the 
ground state of a liquid mass in the absence of exter- 
nal forces such as gravity, is a sphere and perturba- 
tions from aerodynamic sources would tend to allow 
films and rivulets to "ball up". 


Gamma function argument 

Reynolds Number based on drop diameter 

Tanasawa' s stability number (Heinze 1 s 
viscosity number) - /, 

Vt/V’’ 


Relative velocity between vapor and drop 
Gamma function argument 
Bulk stream (free stream) velocity 
Spray Volume 

Volume of spray between gamma function 
parameter (o) and parameter (x) 

Total volume of spray 


Weber numbei 


- U r 2 D^ a or P„ U $ 2 C jo 


Stator blade chord length 

Gamma function parameter 

Vapor density 

Liquid density 

Liquid surface tension 

Wall friction force per unit area on bulk 
flow 

Vapor viscosity 
Liquid viscosity 
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• Definition of Model 


3) D^ - The drop approximately three 
standard deviations larger than the mean drop 

The model of atomization is defined in terms 

of the empirical Nukiyama-Tanasawa distribution ^ ro P ^ or wb ' cb 

function plus several characteristic drop diameters. 


The distribution function is used in both a 
number of drops form and in volumetric form. These 
functions are: 


dN 

dD 


2 

a D e 


-bD M 


(la) 


dV 


ir a 
6 


n 5 ' bD 
D e 


(lb) 


The characteristic diameters used are: 


E 

E 


co ~ 


o 


o 


x 


A V 
AV 


0.997 


where x 


5 

n 



-r 


4) 

diameter 


D - Defined maximum drop 
max 


1) Dm = most common diameter drop 

D = Dm when the second derivative 

d2y 

of Eq. lb equals zero or — = 0. This corresponds 
d D 

to the peak of the familiar distribution curve as: 


D is the drop for which 
max 




The Nukiyama-Tanasawa distribution func- 
tion is often used by experimentalists jn reporting 
data on gas atomized liquid sprays. It is a monomo- 
dal function and the constants, "a, b and n" of the 
expression can be determined from a knowledge of 
the number of volume fractions of the spray of any 
two drop diameters. Conversely the spray can be 
characterized by a value of "n" and a characteristic 
drop diameter such as the mass mean or surface mean 
drop diameter. 


2 ) 


0 - Mass mean diameter drop 

3-0 


3-0 



1/3 


From the point of view of the analyst, these 
various relationships between characteristic drop 
diameters and the constants of the Nukiyama- 
Tanasawa expressions may be found by such means 
as writing an appropriate computer program or by 
use of Pearson's tables of the incomplete gamma 

function^). 
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In connection with use of the reference (3) 
material, it may be shown that: 



Hence the exponential coefficient 



This is the ratio of the spray volume con- 
tained in all drops smaller than 

D = ( -22- > n (D ) 

d m 

to the total volume of the spray. 

There is nothing fundamental in these 
previous substitutions and rearrangement of the 
Nukiyama-Tanasawa equation. They are for the 
purpose of putting the equation on a form for easy 
use with the tables of Reference (3). 


If 5 ( D) _ x, equation (lb) may then 
n ^m 

be put in the form: 

dV = ™ ( n } ( ±nj 6 ±n )e -x (2) 

dx 30 5 n m v n 


The complete gamma function for the 
argument p is written r (p + 1). It can be defined by: 


I- 

•'n 


is made. 


If the additional substitution 6 - n = p 


r( P + 1) = / e" x x p dx 


The incomplete gamma function is defined 
after Pearson (3) to be: 


dV _ ra f n f n 6 , p -x» 

— " 30 - ( — 5 °m * * > ( 3 ) 


f 


r (p + 1 ) = / e" x x P dx 


Hence equation (5) may be given as: 


V = 
x 


In integral form equation (3) may be written, 

TT <T> f 


X p e X dx ( 4 ) 


V 

x 


r (p + 1 ) 

X 

TF T 


= I (x-p) 


(6) 


Pearson^ has constructed tables of this 
ratio in the form: 


When x = oo, V = V (the total volume 
of the spray) X ° 


and therefore by definition: 




p -x 

x r e dx 


p -x 
x e dx 


( 5 ) 



I (u, p) 


where 
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In terms of the spray parameters of interest, 
p and u are: 


6-n 



Some numerical values for the ratios D 3*/ 

D and D„/D calculated in this way are given 
j"v/ o v m 

as a function of n in Table 2.7-1. 


The observations reported are qualitative. Quanti- 
tative information on the relative volumes of liquid 
involved in each of the processes is not available. It 
seems reasonable that the tearing of masses or sheets 
of liquid from stators involves a more important part 
of the total liquid available than the other observed 
mechanisms of detachment. On this basis, a sheet 
atomization model is the logical tool for estimation 
of primary drop sizes. 

The model chosen is the classical one of a 
sheet of liquid ruffled under the impress of aero- 
dynamic forces, the ripples developing into liga- 
ments, and the ligaments in turn collapsing into 
drops. Using this model an expression for the most 
common drop diameter, D^, has been developed. 

It is 


TABLE 2.7-1 


RELATIONSHIPS OF D^, D^, AND n 


n 


D 3a/D 

m 

0.25 

28.70 

15.5 

0.50 

8.14 

5.61 

1.0 

3.84 

2. 99 

2.0 

2.40 

1.99 

3.0 

2.01 

1.69 


b) Primary Atomization 

Mechanisms of primary atomization as ob- 
served in an actual turbine^*' and in turbine-like 
stationary cascades^ 4 ' 5 ' are: (1) stripping of liquid 
or sheets from liquid puddles, (2) stripping or tip 
bursting of oscillating pendant drops attached to 
the stator trailing edge, (3) eye -dropper tearing of 
individual drops from the stator trailing edge, and 
(4) direct formation of individual drops on the con- 
vex surface of a stator by some mechanism giving 
results similar to a drop of water on a hot stove. 



The complete primary distribution is then 
obtained by applying the Nukiyama-Tanasawa dis- 
tribution function assuming that n = 1 . Given n and 

D m , the ratio V /Vfot' af an 7 vaIue ( 4 ) can be 
obtained through the use of Pearson's^' tables 
by calculation of Pearson's arguments p and u as a 
function of D. 

Typical values calculated for the ninth 
stator of the Yankee steam turbine are given in 
Appendix A to this Section 2.7, along with the 
derivation of the expression for D m (equation 6). 

A comparison between calculated values 
for the Yankee steam turbine and a small amount 
of experimental data on stator primary atomization 
obtained by Hays^from the British CEGB is also 
given in Appendix A to the Section 2.7. This data 
comparison cannot be said to confirm the model of 
primary atomization proposed here, because of the 
small number of drops sampled experimentally, but 
the comparison is encouraging. 
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c) Secondary Atomization 

To distinguish between those primary drops 
which are stable from origin to rotor impact and pri- 
mary drops which undergo secondary atomization, a 
parametric time history analysis of the drops in the 
stator wake is carried out as previously discussed in 
Section 2.6. It is assumed that the primary drops 
become entrained by a given wake streamline and 
the liquid represented remains with that streamline 
until rotor impact. The criteria for disruption of a 
primary drop is taken as the exceeding of a critical 
drop Weber Number at some point along the path 
between detachment from the stator to impact with 
the rotor. This assumes that there is time for the 
drop to disrupt, after the critical Weber Number has 
been exceeded, before it impacts the turbine rotor. 
This time period for disruption is covered in Section 
2.6. All primary drops which experience a Weber 
Number greater than the critical are presumed to 
disrupt to smaller stable secondary drops. 


Primary drops which experience local 
Weber Numbers in the wake which are less than the 
critical Weber Number are assumed stable and re- 
tain their primary configuration. The maximum size 
drop which will impact the rotor is the primary drop 
which just experiences but does not exceed the 
critical Weber Number anywhere between origin and 
impact with the rotor. 


This model uses Weber Number criteria be- 
cause under local conditions at the time of breakup 
of the primary drops it is believed that the ratio of 
the dynamic pressure force to surface tension force 
is the single most important criteria as to whether a 
drop is stable or not. Unfortunately, Weber Number 
alone is not completely sufficient to allow a predic- 
tion of maximum drop diameters in sprays even when 
the local conditions at disruption are known with 
reasonable accuracy. For this reason, Westinghouse 
has varied the numerical value of the Weber Number 
which has been used in analysis of turbines from tur- 
bine to turbine. 


For small turbines of the space type, 1 " 
chord, 1 ,, -2 M high blades, the critical Weber Num- 
ber used has been 13. For the large low pressure 
ends of central station steam turbines the value used 
has been Weber Number = 22. The rationale is 
due to Gardner' 0 ' who apparently drew on the work 
of Heinze. According to Spies et al'*', Heinze shows 
that for a "non-viscous" fluid (the turbine working 
fluids are considered “non-viscous") that the critical 
value of Weber Number Is 13 for shock exposure of a 
drop to aerodynamic forces and this critical Weber 
Number Increases to 22 for a steadily falling drop. 
This latter case is that of graduated application of 
aerodynamic forces to the drop. From trajectory 
calculations on both large and small turbines, it 
appears that the application of aerodynamic forces 
to the primary drops is quite abrupt or shock -I ike in 
the small space type turbine and quite gradual in the 
large central station steam turbine low pressure end. 
The selection of Weber Number = 13 for the small 
turbines and Weber Number = 22 are commensurate 
with the trajectory observations. 


Since these values were selected, a con- 
siderable amount of actual observation in large steam 
turbines'^' and in a small steam turbine^ ' built to 
simulate a space potassium turbine have become 
available. These data clearly show that from a con- 
ceptual point of view the simplified two valued 
scheme of this model is inadequate. However, in a 
numerical sense the selection of Weber Number = 13 
for the small space turbines examined is a good 
average value based on an analysis of the results of 
Spies et al'*' as given in Appendix “B" of this 
section 2.7. Fora typical design such as the NASA- 
GE 3 stage potassium test turbine the procedure of 
Weber Number = 13 may err in estimating the maxi- 
mum size drop impinging on the rotor blades of that 
turbine by 30 microns. The maximum size drop is 
about 100 microns in diameter. 
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Spies et al^ give three empirical expres- 
sions which affect a good correlation of their data. 
These are* 


We = 65 (M ) 


1.16 


(0 


We 


7/6 1/6 

(-) - 


where K = 0.31 For the data of Smith^ 


R e D - 18 


Oil) 


which escaped disruption plus the families of 
secondary drops formed from the disrupted primary 
drops. 


The residual primary drops are those from 
the primary distribution which did not experience 
a greater than critical Weber Number. 

The mass mean drop diameter (D^_q) of the 
sum of the families of the secondary drops is assumed 
to be given by a semi -empirical expression developed 
by Wolfe and Anderson'**', This is: 


The first of these (i) is due to Smith^ \ It 
also correlates his data as does the second expression 
(ii). Both the first and second expressions badly 
overestimate the maximum size drops in large cen- 
tral station turbines low pressure ends as reported by 
Christie and Hayward^ 2 ). The writer has not evalua- 
ted the third expression (iii). As a general comment, 
all three expressions lack a model as a basis for 
understanding the phenomena the expressions purport 
to correlate. They, therefore, pose a high risk when 
applied to situations other than those exact ones 
from which they were obtained. 


The selection of critical Weber Number = 
22 for the low pressure ends of large central station 
steam turbines seems to be overly conservative in 
terms of steam stationary cascade tests as reported by 
Christie and Hayward™ but not necessarily for 
actual turbines as reported by the same reference' K 


D 


3-0 
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V 
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m 

r 
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where D is the most common drop of the initial 
primary distribution. 


The distribution function for the sum of the 
families of secondary drops is then taken as that of 
the Nukiyama-Tanasawa function for n = 1 and 
the appropriate Wolfe and Anderson D^q. 

Addition of this secondary distribution to 
the residual of the primary distribution gives the final 
drop size distribution impacting the turbine rotor 
blades. 


d) Final Drop Size Distribution 

• Conceptual Approach 

Conceptually the drop size distribution 
resulting from the completion of the secondary 
atomization process is the sum of the primary drops 

*AII values are calculated using bulk flow (free 

stream) conditions not local wake conditions. 


This is the way in which the final drop size 
distribution used in calculating the erosion values 
for the Yankee steam turbine was obtained. A com- 
parison of this distribution in dimensionless form with 
various test observations from the literature which 
have become available since the Yankee analysis 
was performed, reveals a rather striking lack of simi- 
larity between calculation and observation as showi 
in Figure 2.7-1 . This may explain why the calcula- 
ted erosion of the Yankee ninth rotor blades was 
lower than that actually observed in service. 
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An Empirical Approach 


T 


T 


1 


Since the conceptual approach just out- 
lined yielded a drop distribution much askew com- 
pared to actual experimental observations, a more 
fully empirical approach was tried in connection 
with the Bayshore No. 2 turbine evaluation. This 
approach was to apply an average of the observed 
distributions shown in Figure 2.7-1 to the calculated 
maximum drop diameter. 


Reservations about this approach must also 
be expressed. For example, the observational curves 
shown in Figure 2.7-1 correspond to Nukiyama- 
Tanasawa "n" values in the range of 2 to 3*. This is 
far higher than characteristic values reported in the 


literature of gas atomized liquid sprays. Here a 
value of "n" much different from one is uncommon 
and when values differ from one they are likely to 
be less than one. 


(9) 


A part of the difficulty may be in the inter- 
pretation of what experimentalists mean whey they 
report a value of n = 1 in the Nukiyama-Tanasawa 
expression effects a good correlation of their data. 


For example, turn to Figure 2,7-2. This is a plot of 


some data presented by Spies, Baughman, and Blake 
The open circles are the data. The solid line and 
dashed line are the Nukiyama-Tanasawa expression 
plotted with n = 1 and n = 3 respectively. It will be 
noted that the shape of distribution curves as given 
by the circles is very similar fro the shape of other 
experimental results curves as shown in Figure 2.7-1. 


0 ) 


Spies et al conclude in their report that a 
Nukiyama-Tanasawa distribution with n = 1 affects 
a satisfactory correlation of their data. As can be 
seen in Figure 2.7-2 it does on the average affect a 
better correlation than n = 3. However, Spies et al 
report the maximum drop diameter observed for this 
particular set of test conditions to be 180 microns. 
An n = 1 correlation implies at least 2 percent by 
number of drops with a diameter greater than 180 
microns. This 2 percent number fraction represents 
a considerably larger volume fraction than number 
fraction because of the D-cubed effect. It seems 

*TKiT is on the writer's terms; not necessarily on the 
terms of the experimentalist as is discussed shortly. 



Figure 2, 7-1 Drop Distribution Functions 



DROP DIAMETER-MICRONS 


Figure 2.7-2 Distribution of Drop Sizes in a Small 
Steam Turbine after Spies, Baughman, and Blake 
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quite possible that the n = 1 selection of Spies et a! 
is in fact more nearly correct than the actual data 
points. It seems quite possible that they might have 
observed some (say) 240 micron diameter drops If 
their observations had covered 10,000 drops and not 
hundreds of drops. 

This possible inaccuracy in distribution in- 
formation is compounded in the empirical approach 
used in the Bayshore No. 2 turbine erosion examina- 
tion by a "tail wagging the dog phenomena". A 
tabulation from reference (2) is reproduced as Table 
2.7-2 following; 

TABLE 2.7-2 

TABULATION FROM REFERENCE 2 

Size Range of Total No. of Droplets per Second 
Drop Diameters in Each Size Range at Given Load 
(microns) (Load 100%) (Load 60%) Uad 40%) 


50 to 150 

384 

1160 

1283 

150 to 250 

322 

414 

744 

250 to 350 

16 

54 

125 

350 to 450 

0 

4 

10 


The most drops are reported in the 40 per- 
cent load column. The number is 2162. A plot of 
tliis 40 percent load tabulation is given as Original 
Data" in Figure 2,7-3. If one 500 micron drop is 
added to this original 2162 drops, the distribution 
function shifts markedly (in the direction n - 1) as 
shown by the curve "Original Data Plus One" of 
Figure 2.7-3, 

The significance of the shift with respect 
to predicting erosion in turbines is marked in num- 
erical evaluation using the empirical atomization 
model as applied to Bayshore No. 2. The model 
assumes that some particular characteristic diameter 
drop of the distribution of drops can be predicted 
either empirically or theoretically as a function of 
turbine flow and geometry for particular sets of tur- 
bine flow and geometry variables. Then the model 
assumes this particular characteristic diameter can 
be generalized to a complete particular distribution 
of drops by applying an empirical distribution func- 
tion to the particular characteristic diameter drop. 



Figure 2.7-3 Manipulation of Experimental Drop 
Size Distribution 


The foregoing are all reasonable assump- 
tions. Unfortunately at this time the characteristic 
diameter drop on which there is substantial experi- 
mental data in turbines is the maximum diameter drop 
of the spray. While the general approach to the 
model is not limited to the use of the maximum dia- 
meter drop as the characteristic diameter drop, the 
weight of experimental evidence on maximum dia- 
meter drops has made them a logical if unfortunate 
choice. 

Referring back to Figure 2.7-3, the actual 
change in total volume of the spray caused by add- 
ing one 500 micron drop is only 1.2 percent. How- 
ever, if in reconstructing a distribution of drops 
based on a particular independently calculated 
maximum diameter drop, the distribution function 
marked "Original Data" is used, 30 percent of the 
volume of the spray will be predicted to be in drops 
greater than 0.6 the diameter at the maximum dia- 
meter drop; whereas if the distribution function 
marked "Original Data Plus One" is applied, only 
10 percent of the volume of the spray will be pre- 
dicted to be in drops greater than 0.6 the diameter 
0 f the maximum diameter drop. That is as little as 
1 percent change in the experimental measurement 
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with respect to volume (or one part in two thousand 
with respect to number of drops) can shift the pre- 
diction of amount of moisture contained in damaged 
drop diameters* by as much as 300 percent using 
this empirical procedure. 

2.7.3 Conclusions 


Means of assessing the drop sizes and 
distribution of liquid discharged from turbine stators 
have been presented. The numerical procedures sug- 
gested for predicting primary atomization drop sizes 
and the maximum diameter drop in the final distribu- 
tion of drops impinging on turbine rotor blades have 
an apparent accuracy of + 30 percent as compared to 
limited experimental information. 

Two means of assessing the distribution of 
drops below the maximum drop diameter in the final 
distribution of drops impinging on the turbine rotor 
blades have been investigated. 


MlieB.6 of maximum diameter was picked by exam- 
ple and does not imply that only drops greater than 
this can cause erosion damage. 


The first of these methods which was of a 
semi -theoretical nature, when applied to the Yankee 
steam turbine low pressure end, yielded a calculated 
drop size distribution very different from those ob- 
served in an English steam turbine. 


The second of the methods for assessing the 
distribution of drops in an empirical approach using 
an average of the observed distributions in the 
English steam turbine applied to a calculated maxi- 
mum drop diameter. (Maximum Drop diameter Weber 
No. Criterion 13 for small turbines, 22 for large 
turbines as applied to stator wake trough conditions.) 
The second method is preferred although it can yield 
quite large inaccuracies in results with very small 
errors in determination of maximum drop diameter. 
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APPENDIX 2.7A 

PRIMARY ATOMIZATION EXPRESSIONS 


Mechanisms of primary atomization re- 
ported are: (1) stripping of masses of liquid or sheets 
from liquid puddles, (2) stripping or tip bursting of 
oscillating pendant drops attached to the stator 
trailing edge, and (3) eye-dropper-like tearing of 
individual drops on the convex surface of the stator 
by some mechanism, giving results similar to a drop 
of water on a hot stove. 

Unfortunately, none of the referenced work 
gives quantitative information on the relative volumes 
of liquid involved in the observed processes. It seems 
reasonable that the tearing of masses or sheets of 
liquid from the stators involves a more important part 
of the total liquid available than the other observed 
mechanisms of detachment. The sheet atomization 
model is on this basis the logical tool for estimation 
of average primary drop sizes. As available infor- 
mation is insufficient for definitive conclusions, the 
pendant modes may be more important than assumed. 


m Mass flow rate per unit of stator 

^ edge length (lb/sec/ft)/g 

n Spray distribution constant 

N Number of drops 

u Gamma function parameter 

U Bulk steam velocity 

s 

V Volume rate of spray formation 

V Total volume rate of spray formation 
tot 

X Stator chord length 

x Gamma function parameter 

z Drop size 

P Drag coefficient 

6 Stator liquid film thickness 


NOMENCLATURE PRIMARY ATOMIZATION 

0 

Stator boundary layer form factor 



X 

Wave length of ripples in liquid fil 

Symbol 

Definition 

X B 

Wave length of varicosities in liga 

a 

Spray distribution constant 

ments 

b 

Spray distribution constant 

c X} 

Most probable wave length 

B 

Ligament diameter 

PL 

Density of liquid 

C f 

d 

Stator wall friction drag coefficient 

p s 

Density of vapor (bulk) 

Drop size 

a L 

Liquid surface tension 

d 

An average drop size 

T s 

Stator wall friction drag per unit 
area 

9 

Gravitational constant 

^L 

Liquid viscosity 

H 

Stator boundary layer form factor 


Vapor viscosity 


2-216 


SHEET ATOMIZATION 


Based on actual turbine observations such 
as those reported by Hays W, the flow of collected 
moisture over stator vane surfaces is far from uni- 
form. The flow gathers in rivulets or puddles which 
feed separated atomization sites. 


In an actual turbine, the location of the 
atomization points is probably influenced by surface 
and vapor flow irregularities. However, even with 
a perfectly uniform surface, a distribution of attach- 
ment points can be expected. Under such uniform 
surface conditions it is to be expected that the fluid 
would initially start to collect in the wake of the 
stator trailing edge as a roll of liquid with a cross- 
sectional diameter of approximately the width (W) 
of the trailing edge. As is well known, such a slender 
cylinder of liquid is unstable in the presence of 
surface tension forces and develops varicosities along 
its length. The pitch of these varicosities would 
then determine the atomization sites. The pitch (or 
length) of the varicosities would not be uniform but 
would have a distribution of pitches. Numerically as 
given by Green* after Rayleigh, the minimum pitch 
of a cylindrical instability i$*W and the most prob- 
able pitch is 4.5 W, Other pitches than those, of 
course, have a statistical probability of existence^ . 


If the distance between the atomization sites 
becomes fairly large, the local liquid flow rates at the 
site will be many times that of a uniformly distributed 
flow. This high local flow rate results in a thickening 
of the local liquid boundary layer and an opportunity 
for the development of sufficient liquid boundary 
layer momentum with ripples to give sheet type atom- 
ization rather than pendant atomization. This sheet 
type atomization is analogous to the stage 3-type of 
whirling cup atomization which takes place at high 
rates of liquid feed to cup or disc atomizersO^). 

In this example of the whirling disc atomizer, the 
flow rate on a uniform basis is high enough to pro- 
duce sheet atomization. Such sheet atomization 
could obviously also take place from wet turbine 
stators on a uniform or nearly uniform film basis if 
the liquid flow rate is high enough. In the case of 

the Yankee Atomic turbine low pressure end, suffi- 
cient collection of moisture on the ninth (and 
wettest) stator to produce uniform film sheet atomiza- 


tion does not seem likely. Sheet type atomization 
is probably a result of local flow rates greater than 
average. 

Average Droplet Size from Sheet Atomizatio n 

Schematically, the process of sheet atomiza- 
tion is assumed to be as follows: 

1) The liquid film of average depth ( 8 ) 
flowing towards the stator trailing edge (as a result 
of air drag forces) develops ripples of wave length 
( x ). 



2) This rippled film is then blown from the 
trailing edge of the stator and collapses into liga- 
ments of cross-sectional diameter B strung out parall- 
el to the trailing edge. The cross-sectional area of 
the ligament is approximately equal to the product 
of the average film thickness times the ripple wave 
length or 


B 



0 ) 


3) The ligament so formed in turn develops 
instabilities of wave length ( X B) along its length 
and collapses into drops of diameter (d). 




;a 


I F— -A 



TIME 


61M31-61B 
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The volume of the drop being approximately 
equal to a cylindrical section of diameter B of length 
* B or: 


-t- « 3 - -i- ,2 ‘» 


d = (3/2 B x 


.1/3 


B' 


( 2 ) 


00 ) 


As previously quoted from Green , the 
most probable value of^B Is; 


X = 4.5 B 
B 


d 



(3) 


An analysis by Jefferys of wind-generated 
gravity waves has been developed by MayerO 2 ) to 
predict the most probable capillary wave length in a 
windblown sheet. Mayer’ s expression gives: 



Considering the expression £/2 P as 
the effective drag force per unit area of film, it may 
be written in terms of the boundary layer calculations 
(neglecting fog particle impact momentum) as: 

U 2 - C t p u 2 = 2r, 

S I f 5 S * 



Substituting for B from equation ] into 
equation 3 gives: 

d = 2.14 ^ 

The average liquid boundary layer thick- 
ness at the trailing edge of turbine stators is given 
by*: 


2 m m l 



(5) 


Substituting in equation 4 from equations 6 
and 7 results in an expression for an "average” drop 
size: 



In Figure 2.7A-1 "average" drop sizes from 
equation 8 are presented. It may be noted that the 
drop size predicted by equation 8 appears to become 
independent of flow rate at the higher values of flow 
rate examined. This suggests that a simplified expres- 
sion such as equation 9 will be adequate for predict- 
ing the "average" drop size in many instances. 



(U e? \-0.268 

C = (2) (.123) (10"' )(— “ — -) Numerical evaluation of equation 9, in- 

f ' s ' serting the same values for the independent variables, 

as used in evaluating equation 8 gives: 

d =630 microns. 


*See Section 2,5 
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Examining equation 9, it will be seen that 
the average drop size predicted varies slowly witf^ 
most of the variables except U . Setting r s : : 
gives the variation with respect to U^as: 


d : 


: U 

s 


-.92 


Sheet Atomization Dr op Size Distribution 

There is a distribution of drop sizes resulting 
from sheet atomization (in fact from almost any 
atomization process). There is the distribution of sites 
(inflow rates) along the trailing edge, the distribu- 
tion of atomization wave lengths (X) in the direction 
of flow, and the distribution of cylindrical wave 
lengths (^B) producing the final primary drops. A 
distribution function could be developed from the 
Rayleigh^ ^ cylindrical instability function and the 
Jefferys-Mayer^ capil lary wave length function . 
However, an overall empirical distribution function 
due to Nukiyama-Tanasawa is easier to use: 


dN 

dz 


2 


a z 


-b 

e 


n 


z 


00 ) 


( 9 ) 

Quoting from Putnam , "Two Japanese 
investigators, S. Nukiyama and Y. Tanasawa, obtain- 
ed extensive data on drop sizes in sprays by air 

atomization, and sought to correlate these data 

Their investigations indicated that a value of 2 for 
the exponent of (z) effected a good correlation of 
the experimental data in every case, and that ex- 
ponent (n) varied but little from unity. 


While other investigators, including the 
writer, have found that the value of the exponent 
(n) may fall as low as 1/4, a numerical case can be 
made for the Yankee turbine to consider this expo- 
nent as having a value of unity. An exponent of the 


i r 

_ -A— - 
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COLLECTED LIQUID FLCV/ RATE 
IF AGGLOMERATED AS RIVULETS 
WITH PITCH/WIDTH = 4.5 


COLLECTED LIQUID 
FLOW RATE UNIFORMLY 
DISTRIBUTED / 


STATOR LIQUID FLOW RATE IN % TOTAL TURBINE FLCW RATE 

61 1131-81 B 


Figure 2.7A-1 Average Drop Size, 
Primary Atomization 


order of unity is required to get a reasonable fit 
between an upper size limit on drops (order of 1500 
to 2000 microns) resulting from the size of the trail- 
ing edge thickness and an unspecified kind of average 
drop size of the order of 500-600 microns. 

Using n - 1 and writing equation 10 in terms 
of volume rather than number of drops gives: 


dV _ ira 5 -bz 
d ~ 6 Z 6 


This equation contains two undetermined 
constants, (a) and (b). Constant (a) may be deter- 
mined from the total volume of the spray using the 
continuity relationship once constant (b) has been 
found. In connection with constant (b), it may be 
observed that if a value of the "average" drop size 
corresponding to the most probable flow rate of 
figure 2.7A-1 is selected, the rate of change of 
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volume of spray produced is a maximum with respect 
to this average drop size fc ay ) or r 

dv = /jy \ 

dz V dz ) 

\ /max, 

and 

= 0 = (e -bz } z 4 (5 _ zb) 

dz 

b = 5/z 

or m 

where 



Substituting from equation 12 in equation 11 gives: 

dV _ tt a _5 -5 z 

dz 6 z e z (12a) 

m 

If the substitution, x = 5 z / z m * s niade in equation 
1 2a, it becomes: 



A small amount of data on stator primary 
atomization, obtained from the British CEGB, has 
been reported by Hays This information is re- 
produced in table 2.7A-2 for conditions which more 
or less bracket the conditions at the ninth stator of 
the Yankee Turbine, This data cannot be said to 
confirm the model of primary atomization used here 
because of the low number of drops sampled, A 
comparison between tables 2.7A-1 and 2.7A-2 is 
encouraging, however. 


TABLE 2.7A-1 

SPRAY LIQUID VOLUME DISTRIBUTION VERSUS 
DROP SIZE 


Drop Size (z) 
(microns) 

o 

N. 

> 

1,00 . 

0.0004 

175 

0.007 

250 ' ' ' ; - ; 

' ' ' ‘ : 0.0356 

350 , ... 

0.12 

525 = z 

m 

' 0.38 

750 

0.72 

1050 

0.93 - 

1575 

0. 997 


V 

V s — = I<u, 5) 

tot 

U - x/ JT~ = f z - (13a) 

m w 

and I (u,5) is a form of the incomplete gamma func- 
tion, as tabulated in Reference 3, The ratio of cumu- 
lative liquid volume to total liquid volume of spray 
is given as a function of drop size in table 2,7A-1 for 
the ninth stator of the Yankee turbine. 


TABLE 2.7A-2 

DATA ON STATOR PRIMARY ATOMIZATION 


Static 

Bulk 

Steam 


Max. 

Min. 

Pressure 

Velocity 

Z 

o 

Size 

Size 

(psia) 

(ft/sec) 

Drops 

(microns) 

(microns) 

1.61 

976 

5 

1080 

460 

1.72 

11 00 

4 

620 

360 
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APPENDIX 2.7B 


ANALYSIS OF CONTRACT 
NAS 7-391 RESULTS * 


A series of erosion-related experiments 
have been performed by the Rocketdyne Division 
of North American Rockwell, sponsored by NAS 
7-391. These experiments employ a series of 
stator blade shapes and test conditions designed to 
simulate space turbine environments. The working 
fluid used is steam. A pcrticular objective of the 
program is to observe the detachment of collected 
liquid from trailing edge surfaces and to estimate 
the ultimate limiting size of atomized drops as a 
function of the various test conditions. 

A drop transport analysis has been com- 
pleted on a series of eleven tests performed by 
Rocketdyne. The analysis was performed with the 
ADROP computer code (Section 2.6). Blade 
shape I=A ** was chosen for these studies. This 
blade is similar to that used in the last stage of 
the General Electric three-stage potassium test 
turbine, differing only in the pitch. Rocketdyne 
is using a stator block containing six different 
blade shapes and apparently could not exactly 
reproduce the pitch of the G. E. blades in this 
configuration. The mean line pitch of the 
Rocketdyne blade I-A is a 0.616 inch while the 
pitch of the G. E. blade is 0.641 inch. 

The test conditions employed in this 
study are presented in Table 2.7B- l0). The tip 
section of the blade shape used is shown in 
Figure 2.7B-1. The blade surface velocities in 
the stator flow passage were evaluated using the 
two-dimensional flow analysis code of Reference(l3). 
Figure 2.7B-2 summarizes the surface velocity 
results. The velocities are normalized by the exit 
free stream velocity. These velocities are plotted 
against normalized surface position, which is the ratio 
of the distance from the blade leading edge taken 
along the surface to the total surface length. 

*T. C. Varljen, Supervisor, Systems and Tech- 
nology, Astronuclear Laboratory, Westinghouse 
Electric Corporation, Pittsburgh, Pa., 15236 

**Rocketdyne Dwg. N-01828-A 


The surface velocities obtained for the 
tip section were then used to evaluate the boundary 
layer properties at the blade trailing edge. The 
properties of interest ere the momentum thicknesses 
(0s and ©p), the displacement thicknesses 
( a*and $*), and the full thicknesses ( a and a ) 
on f>oth the^suction and pressure sides of th S e bladd^ 
These are summarized in Table 2.7B-2. 


Trajectory calculations were performed for 
a series of drop sizes ranging downward from the 
thickness of the stator trailing edge (1 90 microns). 
An axial distance of one inch was arbitrarily 
chosen between the stator exit plane and the inlet 
plane of a hypothetical rotor row. This distance is 
sufficient to observe secondary atomization effects. 
Figure 2.7B-3 shows the variation of the maximum 
Weber Number observed with drop diameter for the 
eleven test conditions chosen. These were obtained 
from trajectories along the streamline coinciding 
with the stator wake axis. Note that these maxima 
occur at different locations downstream of the 
trailing edge; in no case did the maximum Weber 
Number occur at the start of the trajectory. 


The WANL turbine blade erosion model 
has tentatively employed fixed Weber Number 
cri teria to predict the onset of secondary atomization. 
These are obtained from Gardner's work (6) which 
indicates that, in steam systems, the critical Weber 
Number is about 22 when drops are slowly accele- 
rated and is about 13 when the acceleration is 
abrupt. Results obtained by Rocketdyne 0) in the 
tests examined ere shown in Figure 2, 7B-3. In each 
case the limiting drop size observed has been 
plotted. It is evident that a disruption criteria 
based on Weber Number alone, is Inappropriate. 

The use of a fixed critical Weber Number may 
perhaps be justified for very rough estimates or for 
qualitative descriptions, but it lacks the precision 
required in detailed erosion studies. 
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TABLE 2.7B-1 


ROCKETDYNE TEST CONDITIONS USED IN 
THE STUDY 


Bloc?* 

Shape 


at 2nd 2nd Stop* 

5 feam Sfogr Spouting 

Haw, Inlet, Velocity, 

Ifc/iec p»Ia ff/«ec 


114A X 

8 X 

c 

D 

F 

113G 

H 

I 

J 

K 


X 


X 

X 

X X 

X X 

X X 

X X 

X 

X 

X X 

X X 


X 


X 

X 


99.5 
99J 

99.6 

99.6 
99.4 

98.6 

99.3 

99.4 

99.3 

99.4 

99.4 


.119 4 JS 

7J& 

.175 10 J 

BJ 

6.0 

.233 7.4 

9.4 
11J 

.270 11 J 

9J 
B.2 


1170 

540 

525 

7B0 

1450 

1680 

960 

660 

800 

1150 

1875 



Figure 2. 7B-2 Surface Velocities Computed for the 
Top Section of Rocketdyne Blade Shape 1-A 



TABLE 2.7B-2 

TRAILING EDGE BOUNDARY LAYER DATA 
OBTAINED FOR THE ROCKETDYNE TEST 
SERIES 


U o P e*Tl T X 
(n/t*e) (p.!») (%) (cm) 


6 P *P «. 

(cm) (cm) (cm) (cm) 


{d) W, e " 13 W «* 77 


TT4A 1170 3 
1141 54 07 
T14C 523 10 
114D 780 7 
1 14F 1450 3 
113G 1680 3 
113H 960 7 
1131 660 10 
113J 300 10 

UK 1T50 7 
1131 1875 3 


601.50 98.6 41067 

636.83 95.3 .01073 

653.21 98 J .01021 

636.85 97,7 .011XX) 

601.50 94.8 .01014 

601.50 93.3 ,00981 

636.B5 96.7 “00957 

633.21 9771 .00973 

653.21 97.6 .00936 

63645 95.1 40920 

601 JO 93.2 40960 


.00359 

.00362 

.00344 

.00337 

40342 

4033! 

.00323 

.00328 

.00315 

.00310 

.00323 


.01858 

41174 

.01746 

.01697 

.01729 

41654 

.01601 

41636 

41556 

.01521 

41607 


.00474 

.00477 

.00452 

.00442 

.00448 

.00433 

.00421 

.00479 

.00411 

.00403 

.00422 


.06868 
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Figure 2.78-1 Profile of Stator Blade 1-A 
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PRIMARY DROP DIAMETER * MICRONS 672752-16 


Figure 2 t 7Br3 Predicted Variation of Maximum 
Primary Drop Weber Clumbers for the Rocket- 
dyne Test Series with Blade Shape 1-A 


Trajectory results bre presented in nx>re 
detail in Figures 2.7B-4 (Test I J4A) f 2. 7B^5 
(Test 114 B), 2. 7B~6 (Test 114 F) and.2,7B-7 (test 
II3L). These show the variation of drop velocity and 
Weber Number with total distance downstream of the 
stator trailing edge and along the wake axis 
streamline. In all cases a "dead-band " of four 
trailing edge thicknesses has been used to cover 
uncertainties in the local wake velocity in this 
region. 


A brief examination was also made of 
trajectories associated with the hub section of 
blade I-A. The small difference in pitch between 
the two sections made very little difference in the 
Weber Number and velocity result. 
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Figure 2 ♦ 7B-4 Variation of Drop Weber Number and 
Velocity with Distance along the Wake Axis Pre- 
dicted for Rocketdyne Test 1 14A 
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Figure 2. 7B-5 Variation of Drop Weber Number 
and Velocity with Distance along the Wake 
Axis Predicted for Rocketdyne Test 1 14 B 
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Figure 2. 7b-6 Variation of Drop Weber Number 
and Velocity wltb Distance along the Wake 
Axis Predicted for Rocketdyne Test 114F 
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Figure 2. 7%r7 Variation of Drop Weber Number 
and Velocity with Distance along the Wake 
Axis Predicted for Rocketdyne Test 1 13 L 
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ABSTRACT 


This report volume is concerned with those 
processes of the WANL turbine blade erosion model 
shown on this page that can directly cause the loss 
of metal from turbine blgdes: mechanical removal by 
drop impingement and dissolution into impinged 
liquid. 


The literature on impingement erosion is 
examined with a view to deducing empiric, or 
analytic, relationships between erosion rate and the 
various external variables such as impact velocity, 
angle of impingement, size of impacting drops, 
Impacting fluid properties, strength of materials, and 
rate-time variation. 


In Section 3. 1 the difficulties inherent in 
the interpretation of erosion test data are discussed 
and a rationalized approach is described. 

One of the major difficulties in the correla- 
tion of test data is the variation of erosion rate dur- 
ing a test. In Section 3. 2 an analytic model is pro- 
posed to explain the variation. 

Sections 3. 1 and 3.2 are mainly concerned 
with the mechanical aspects of erosion of metals by 
the impingement of liquid drops as influenced by 
external conditions such as impact velocity, etc. 
Sections 3. 1 and 3. 2 are not directly concerned 
with the erosion resistance of specific materials - 
except in passing - with the relationship between 
erosion resistance and other material properties. 


Sections 3. 3 and 3. 4, on the other hand, 
attempt to use the observations of Sections 3. 1 and 
3.2, plus added information relevant to metal dis- 
solution by liquid metals, to establish specific 
numerical relationships of erosion resistance of 
metals in terms of external variables and properties 
of materials. Section 3. 3 deals wiih the mechanical 
aspects of metal loss through drop Impingement, 
assuming no chemical interaction. Section 3.4 deals 
with the chemical aspect of metal loss by dissolution 
of the metal into the liquid of impinged drop^assum- 
ing that there is no mechanical interaction. 
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WANL Turbine Blade Erosion Model 
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SECTION 3 


TURBINE BLADE EROSION MODEL 


3. 1 SURVEY OF CLUES TO THE RELATIONSHIPS 
BETWEEN EROSION RATE AND IMPINGE- 
MENT CONDITIONS* 

3* 1. 1 General Considerations Relating to t he 

Interpretation and Correlation of Test Data 

3, T. I. 1 Independent Variables 

The purpose of this section is to determine 
whether the impingement erosion test data in the 
literature can be made to yield generalized relation- 
ships, by which erosion can be predicted under 
arbitrary operating conditions. If the erosion could 
be expressed in terms of an empirical or semi- 
empirical equation, it vould be a function of the 
operating variables and would contain constants 
which are properties of the materials of the target 
and of the impinging liquid. 

The independent variables, or operating 
conditions, are as follows: 

a) Area of target subjected to Impingement 

b) Shape of target 

c) Size of impinging liquid drops or slugs 

d) Shape of impinging liquid drops or slugs 

e) Rate of impingement of liquid on target 

f) Impact velocity between liquid and 

target 

g) Angle of impact between liquid and 
target surface 

h) Physical properties of liquid such ass 

1) density, 

2) viscosity, 

3) compressibility, or acoustic velocity. 


* F, J. Heymann, Senior Engineer, Development 
Engineering Department, Westinghouse Steam 
Divisions, Westinghouse Electric Corp. , 

Lester, Pa. 


i) Physical properties of target. While the 
significant properties are still unknown, the follow- 
ing may be listed as possibilities: 

1) hardness or other strength property 

2) strain energy to rupture or other 
energy property 

3) elongation or other ductility 

property 

4) endurance limit and fatigue S-N 

relationship 

5) elasticity or acoustic velocity. 

j) Surface conditions of target, such as: 

1) roughness 

2) work hardening or other surface , 
effects due to previous preparation or erosion 

3) presence of surface films of liquid, 

k) Microstructure and orientation of surface 

layers. 

In this section of the report, primary empha- 
sis is given to the velocity and the angle of impact, 
and the size and shape of impacting drops. 

Section 3.2 Includes some discussions of the fatigue 
properties and surface conditions of the target. 


3. 1. 1.2 Dependent Variables 

One of the greatest difficulties in the inter- 
pretation and correlation of erosion test data lies not 
in the multiplicity of the independent variables but 
in the identification of the dependent variable or 
variables, referred to as “the erosion". An approach 
must be found to characterize the erosion. Figure 
3. 1 (A) represents a typical weight loss versus time 
curve. (The axes are deliberately labeled erosion 
and duration since these quantities will be discussed 
more fully later.) This curve is characteristic of 
much of the data found in the literature; the various 
stages of the curve and possible explanations for 
them are discussed in Section 3.2 of this report. 
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Figure 3. 1-1 Various Interpretations of Same 
Hypothetical Erosion Data Points 


A relatively well defined experimental plot 
Is subject to a variety of interpretations. The circles 
In Figure 3. 1 (A) represent hypothetical row data 
points. A conservative method of drawing the curve 
is to joint ibe experimental points by straight lines, 
as shown. Reference 1,* for instance, shows curves 
In Ibis form. An erosion rate curve can then be 
constructed by plotting the slopes of these line seg- 
ments versus the time corresponding to their mid- 
points. This is shown by the circles and solid lines 
In Figure 3. 1-1 (B). Reference 2 presents its data 
in this form. This approach requires no decisions, 
but is not accurate unless the data points are close 
together. 


* References cited are listed in a later section. 


To draw in a smoothed curve, a decision 
must be made as to how smooth this curve should be. 

If the erosion rate rises from zero during an incuba- 
tion period to a constant maximum value, and sub- 
sequently declines to a secondary constant value, a 
curve will be drawn such as the dashed one in 
Figure 3, 1-1 (A), whose counterpart in Figure 
3, 1-1 (B) is also shown dashed. If the erosion rate 
reaches a rather steep peak value and then goes into 
a series of fluctuations, then the dash-dotted lines 
in Figures 3* 1-1 (A) and (B) may result. This does 
not exhaust the possible variations, but serves to 
show how this decision can have a considerable 
effect on the shape of the erosion curve presented, 
particularly if data are presented in the form of 
erosion rate curves, (Graphical differentiation of 
empirical data with all its uncertainties is notoriously 
unreliable, ) 

The decision concerning what the erosion 
curves should be is closely related to the question of 
Just how these curves should be quantitatively 
characterized, i,e, , just what are the dependent 
variables that should correlate with the operating 
conditions. The objective of this empirical approach 
is to predict the amount of erosion expected after a 
given time, or at least the time required to reach 
some critical degree of erosion. 

The parallel study reported in Section 3,2 
concerns the possibility of predicting the form of the 
erosion versus time curve analytically, on the basis 
of assumed material removal mechanisms. This has 
not yet advanced to the stage where it can be of 
help in the present study. Therefore, the view 
adopted is the most widely held and is practical 
enough for present purposes. Namely, the first 
stage in erosion shows little or no weight loss and 
represents plastic deformation of the surface and 
initiation of fatigue cracks. This stage merges into 
the second stage wherein the rate of weight loss is 
at a maximum and approximately uniform over a 
period of time. This, in turn, merges into a later 
stage or stages wherein the erosion rate diminishes 
and may or may not tend toward another uniform 
value. Whatever the precise cause or causes of this 
decrease in erosion rate may be, it is usually 
associated with rather general and severe damage to 
the surface, which through geometrical effects alone 
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may result in an effective alteration of the impinge- 
ment conditions. Thus, the best parameters fo 
describe the progress of erosion in a relatively 
simple and yet significant manner are: 

a) A quantity representative of the dura- 

tion of the initial (incubation) stage, denoted by T q 
in Figure 3, 1-2, 0 

b) A quantity representative of the rate of 
erosion during the second stage, denoted by R in 
Figure 3, 1-2, This is the most significant quantity, 
and most of the following sections deal with it, 

c) Of additional interest would be some 
quantity representative of the degree of damage at 
the end of the second stage. This would help to 
establish whether this transition is really a geometric 
effect, and whether the first two stages do really 
cover the permissible degree of erosion in a practical 
application. However, very little information on 
this is available. 

There are test data to which the foregoing 
generalizations and conclusions do not seem to 
apply, but for most of the usable data they do seem 
valid, and our correlation attempts are based on 
this type of curve. Eventually, however, the devia- 
tions from this type of curve must also be understood 
and accounted for. If is important to remember that 
more than one mechanism of material removal may 
be active. The above -described behavior applies 
to those conditions under which a fatigue mechanism 
predominates. This is valid for most of the material 
and impact velocity combinations for which test 
data are available and probably to most turbine 
operating conditions. If, however, impact velocities 
are increased, then material removal due to individ- 
ual impacts will also occur. At sufficiently high 
speeds the rate of material removal by this process 
may be sufficiently high so that there is not enough 
time for fatigue failures to occur. The shape of the 
erosion-time curve, the significant dependent 
quantities, and their functional relationships to 
such independent variables as drop size and impact 
velocity can all be expected to change during this 
transition from one predominant mechanism to 
another. Test data at relatively high velocities 
(around 2000 ft/sec) are being generated but are 
not yet available. Steam turbine blades will soon 
be operating in this velocity range also. 



Figure 3, 1-2 Definition of Incubation Period, T , 
and "Steady- State" Erosion Rate, R ° 


3, 1,1.3 Correlation Problems 

Returning now to an assumed characteristic 
curve, another difficulty will be demonstrated. 
Figure 3. 1-3 shows three hypothetical but typical 
erosion-time curves from a given test series. 

Curves A, B, and C might have been obtained for 
three different materials under the same operating 
conditions, or for the same material at three differ- 
ent impact velocities or with three different drop or 
jet sizes. One may then try to compare these 
curves, or to determine from each, a number that 
represents the erosion fo be correlated with material 
properties or with operating parameters. With 
insufficient thought given to the problem, the 
temptation might be to select a convenient point in 
time (say T = 3 on Figure 3, 1-3) and compare either 
the cumulative erosion, or with more sophistication, 
the slope of the erosion-time curve at that point. 
This has been done by many authors. It should be 
evident from the earlier discussions, however, that 
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Figure 3.1-3 Hypothetical Erosion Curves 

r.r/ioo: t:.'i 


this procedure is entirely invalid. It can result In 
spurious comparisons between erosion rates corres- 
ponding to completely different stages of the erosion 
process. Thus, in Figure 3# 1-3 at time T = 3, 

Curve B is in the probably significant second stage; 
Curve A has already broken and Is into the third 
stage; Curve C may well still be in the incubation 
period. 


For a valid comparison there are two 
desiderata. At least one, preferably both should be 
fulfilled. They are: 

a) The measured slopes, or erosion rates, 
should be, as nearly as possible, average or effective 
values representative of the second stages of the 
erosion-time curves. 

b) The measured slopes should be, as nearly 
as possible, the averages or effective values over 
the same range of cumulative erosion, i.e. , 
associated with the same degree of damage done to 
the surface. 


The first desideratum can be fulfilled only if 
the end of the second stage is clearly seen; if the 
test duration is not long enough for this to occur, 
then the second rule must suffice, and one must 
endeavor to choose the erosion interval over which 
the slope is measured in such a way that the first 
stage, or incubation period is excluded. In Figure 
3. 1-3, this is simply not possible for Curve C; when 
one examines the available test data, the choice is 
often reduced to one between doubtful comparisons 
or no comparisons at all. 


3. 1. 1.4 Rationalized Parameters 

It was pointed out earlier that the axes in 
Figure 3. 1-1 have been labeled vaguely as erosion 
and duration. Direct comparison between different 
test data is often complicated by the fact that the 
erosion may be given in terms of weight loss, or 
volume loss, and the duration In terms of time, or 
number of impacts (for wheel -and- jet apparatus), or 
In other ways. The target areas involved and the 
quantity of water impinging on it will differ not 
merely between different test series, but may also 
vary within a given test series as a consequence of 
varying one of the other independent parameters. 

Thus, for instance, if in a wheel-and-jet apparatus 
the jet diameter is changed, this will effectively 
alter the area of the target subjected to impact and 
the quantity of water involved in each impact, and 
if the impact velocity is changed by changing the 
speed of rotation this also alters the weight of water 
Impacting per unit time. 

To permit valid comparisons and correlations, 
it is essential to express the erosion and the duration 
in a rationalized form which will compensate for 
these test variations. 

Since the undesirable aspect of erosion is the 
loss of volume and the change of geometry - and 
this change of geometry In turn affects the rate of 
erosion - volume loss rather than weight loss should 
be considered. The rationalized erosion parameter 
is volume loss per unit area, sometimes referred to 
in the literature as mean depth of penetration 
(MDP). 
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The appropriate rationalized duration para- 
meter is not quite so obvious* One could make a 
case for selecting the number of impacts per unit 
area. At present, however, preference is given to 
the volume of liquid impinged per unit area. This 
is attractive because results expressed in this way 
will show directly the effect of subdividing a given 
quantity of impinging liquid into particles of different 
sizes or shapes, and because it makes the rational- 
ized erosion rate (E) a non-dimensional quantity, as 
follows: 

^ _ Volume of material lost per unit area per time 
Volume of liquid impinged per unit area per unit 
time 

The rationalized incubation time parameter 
corresponding to the above is the cumulative volume 
of liquid impinged per unit area at time T as 
defined by Figure 3. 1-2. 0 

For some correlations, where neither the 
target material nor the impinging liquid is changed, 
the rationalized erosion rate can be satisfactorily 
represented in terms of weight of material lost and 
weight of water impinged. 

3. 1.2 Dependence on Impingement Angle 

Only recently have investigators shown 
serious concern with the impingement angle. The 
consensus' appears to be that the normal component 
of the impingement velocity is primarily responsible 
for the damage, with the tangential component 
playing a secondary role. 

Thus, according to Fyall and Kfng^'^ for 
initially smooth surfaces the normal impact velocity 
can be used successfully for correlations valid during 
the initiation and earlier stages of erosion, but that 
when the surface has been roughened by erosion, 
the tangential component also becomes significant 
because the true local impact angles can become 
more normal to the absolute velocity. No quantita- 
tive estimate is made for the latter effect. 

(5 6) 

Langbein and Hoff v 9 ; state that the normal 
component governs the erosion; they show loci of 
equal average erosion rates plotted on a field of 


absolute velocity versus inclination angle and state 
that these correspond to loci of constant normal 
velocity component = V cos 9). 

M 0 \ 

Pearson 9 has proposed the following 
correlation equation to represent the erosion rate E 
in terms of the impingement velocity V, and inclin- 
ation angle 0 measured from the normal direction 
(expressed in our terminology): 

E = K (V cos e -V c ) n /cos e (1) 

in which K, V , and n are to be regarded as 
constants of the target material. (Actually, at least 
some of these constants must also be functions of the 
impinging liquid properties, drop sizes, etc. ) 

Pearson Justifies introducing the 1/cos 0 
term by presenting the data reproduced here as 
Figures 3. 1-4 and 3. 1-5. (These are direct copies 
of Pearson's figures except that our terminology 
has been submitted and his curves, drawn through 
the points, have been omitted.) It appears that E 
cos 0 (Figure 3. 1-4) correlates somewhat better 
with V cos 0 than does simply E with V cos 0. This 
improvement is hardly dramatic, however, and the 
l/cos 0 correction should be regarded as tentative 
and subject to analytical or further experimental 
verification. 



Figure 3. 1-4 Rationalized Erosion Rate versus 
Normal Impact Velocity 
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Figure 3. 1 -5 Corrected Erosion Rate (E cos 9) 
versus Normal Impact Velocity 
(From Figure 5 of Reference 1 1) 


For 12 percent chromium stainless steel, 
Pearson obtains values of approximately 400 ft/sec 
for V , and n = 2. 6 for use in Equation 1 . Ratios 
of erosion rate at angle 9 to that at normal incidence 
(Ef/E ), based on this relationship, have been 
plotted in Figure 3. 1 -6 for three different velocities. 
Some independent support for this formulation may 
be provided by data points also shown in Figure 
3* 1-6, which were deduced fro ra v erosion -time 
curves given by Busch and Hoff^ ; these were 
obtained in a supersonic rain erosion facility, with 
target cones of different angles, but of the same base 
diameter. The material was pure aluminum; the 
absolute impact velocity was Mach 1.2, or approxi- 
mately 1320 ft/sec. 

In this situation the area exposed to erosion 
changes with the angle, but the total amount of 
Impinging water remains the same. Thus, no area 
correction is necessary if the slopes of the erosion- 


time curves are compared; on the other hand, it Is 
necessary for a rational comparison of incubation 
times. 


Note that the erosion rate at 9 = 10 degrees 
is actually somewhat higher than that at 0 = 0 
degrees; if this is actually so, it would support an 
observation by Brunton^®' that the damage In single- 
impact tests could be greater at slight angles of 
inclination than with normal impact. (Note that 
at 1300 ft/sec on aluminum, single-impact damage 
occurs.) On the other hand, this may be an apparent 
effect only, and due to scatter or some other 
experimental variable. The curves in Reference 9 
do not show actual data points. 

The critical velocity V for aluminum would 
certainly be far lower than thaf for 13 percent 
chrome steel - perhaps on the order of 100 ft/sec. 

If one computes E^/E from Pearson* s equation with 
V = 1300 ft/sec and $ c = 100 ft/sec, n remaining 
2.6, one obtains Curve E, which fits the data 
points reasonably well. Is this a confirmation of 
Pearson's equation, or is it merely fortuitous? The 
former can be true only if the assumptions of V c = 
100 ft/sec and n = 2. 6 are indeed correct. (Differ- 
ences in the values of K cancel out.) 


( 11 ) . 

In a previous progress report, it was 
suggested that the data of Reference 9 could also be 
represented by the simple relationship Eg/E = 
cosq , which is shown as Curve A in Figure°3. 1-6. 
This simple angle-dependence does not fit any of 
Pearson's results presented in Figures 3, 1-4 and 
3. 1-5, and should be rejected. 

The physical meaning of Pearson's equation 
is: erosion is, in the first instance, a function of the 
normal component of the impact velocity, and 
additional erosion due to a tangential component is 
accounted for by the l/cos 9 multiplier. Such a 
relation could not have been deduced from the data 
of Reference 9 alone, since the absolute velocity 
was held constant and the normal velocity component 
varied. Thus, there was no way of knowing whether 
the change in erosion with the angle was to be 
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specimen velocity and the absolute Impact velocity 
Is given by w = VTT?- 

• If the specimen were 
round as In a number of similar investigations, then 
w would also be the effective normal impact 
velocity. In this case, however, the specimens were 
rectangular and thus the velocity w is inclined at 
an angle, 0 = tan" 1 (v/u), from the normal to the 
specimen surface. For a given value of u, a wide 
variance of results was obtained for different 
values of v. The authors claimed that these differ- 
ences were far too great to be accounted for by the 
resulting differences in the absolute velocity w. 


They speculated that cavitation may have 
been induced by the flow geometry but rejected this 
as a likely explanation because the location of the 
maximum damage was not consistent with this. They 
finally concluded that the tangential velocity, v, 
had some pronounced independent effect, not 
presently explainable, on the erosion measured. 

This conclusion has been introduced at some length 
because it has been quoted by subsequent authors, 
and because examination of the actual data simply 
does not bear it out, as will be shown below. 


Figure 3. 1-6 Comparison of Erosion 
versus Angle Curves 


attributed to a function of the angle alone or to a 
combination of the changes in the angle and the 
normal velocity, A reliable formulation for the 
angle effect can be obtained only if a reliable 
formulation for the velocity effect is simultaneously 
determined, i.e, , from test programs in which 
velocities and angles are varied independently. 

This is what Pearson has tried. Pending further 
testing of the generality of his equation, it is the 
best information available. 

One set of data somewhat at variance with 
the foregoing was reported by Bradenberger and 
DeHallen They tested one material in a rela- 
tively low-speed, wheel-and- jet apparatus at 
various combinations of specimen velocity (u) and 
jet velocity (v). The jet velocity in a wheel-and- 
jet apparatus is in a direction perpendicular to the 


Table 3, 1-1 lists best estimates of the mean 
erosion rates, for the weight loss interval of 0, 05 to 
0.5 gm, from Figures 4 and 6 of Reference 1. The 
normal, tangential, and absolute velocities are also 
listed, as well as the angles and Hie corrected 
erosion rates based on Pearson's hypothesis for 
angle effect discussed above. Figure 3, 1-7 (a) 
shows the data points plotted versus the normal 
impact velocity u, with the 1/cos ©angle correction. 
Figure 3. 1-7 (b) shows the same data (without angle 
correction) plotted versus the absolute velocity w. 
TABLE 3. 1-1 

EROSION RATE E FOR DIFFERENT SPECIMEN 
VELOCITIES u AND JET VELOCITIES v 


..(From Reference 1) 


V 

u 

w 

« 

E 

E’ 

m/jee 

m/wc 

m/iec 

deg 

gny'IO^ impact* 

E cC*8- grry^lO^ impacts 

52 

20 

55.7 

21 

1.05 

0.98 

52 

15 

54.2 

16 

0.86 

0.83 

52 

10 

53.0 

11 

0,67 

0.66 

52 

5 

52.3 

6 

0.64 

0.64 

42 

20 

46.5 

25 

0. 32 

0. 29 

42 

15 

44.5 

20 

0.26 

0. 245 

31 

20 

36.9 

33 

0. 12 2 

0. 102 

31 

15 

34.4 

26 

0. 075 

0.067 
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NOTE: The jet diameter wo* 6 mm and the forget material low carbon sIm). 





The following observations can be made: 


3*1,3 Dependence on Drop Size and Shape 


a) When plotted against u, there is a dif- 
ferent curve for each value of v, A correction 
based on Pearson^ assumption (E^ q = 0 / cos ^ 
did not suffice to bring them into ' line, 9 

b) When the data are plotted against the 
absolute velocity w, they fall quite well into one 
curve. 


These observations not only contradict the 
conclusion reached by the authors of Reference 1, 
but also seem to provide evidence contradicting the 
angle effect theory proposed by Pearson (Equation 1). 
A possible conclusion drawn from all of the observa- 
tions is that in this case there is no angle effect, or 
none of the commonly expected nature, as a result 
of the jet velocity. This is conceivable when it is 
considered that the direction of the tangential com- 
ponent of the impact velocity is also the direction 
in which the impacting mass of liquid is of infinite 
length. 


3. 1. 3. 1 Review of Available Data 


Despite the fact that the maximum impact 
stress is generally a function of the material proper- 
ties and impact velocity and should be independent 
of the size of the impacting drops, there is ample 
evidence that both the size and the shape of the 
impacting liquid masses do affect the erosion 
measured. Here again, the quantitative data in the 
literature from which generalized relationships 
could be deduced is meager. 


( 2 ) 

A frequently cited test is that of Honegger 
in which he compared the erosion produced in a 
wheel-and-jet type apparatus by impact with one 
1*5 mm water jet, with that produced by nine 0.5 
mm jets, arranged as shown In Figure 3, 1-8. The 
results are described as follows: “The splitting up 
of the jet is accompanied by a considerable reduc- 
tion of the erosion, the numerical value of the 
reduction largely depends upon the speed, and for 
tests under consideration it varies from 1 to 5 for high 
speeds and 1 to 10 for low speeds, 11 The test was 



Figure 3. 1-7 Erosion versus Velocities 
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Figure 3. 1-8 Arrangement of Nozzles 
for Water- Jet Tests 


contrived to fulfill the requirements of a rationalized 
erosion measurement. Both the target area sub- 
jected to erosion and the volume of Impinged water 
were the same for both configurations. Yet, upon 
reflection, one must conclude that this was not a 
valid test of the drop size effect, at least not if 
Figure 3. 1-8 accurately portrays the nine- jet 
arrangement. This is because only the first three 
jets would impact on a dry surface; a liquid layer 
from these would almost certainly still be present to 
cushion the effect of the next three impacts, and 
similarly so for the last three. Thus, no quantita- 
tive conclusions should be drawn from these results, 
but the qualitative findings are of interest. 



W DATA SHOWN IN RATIONALIZED FORM 410053-71 


Figure 3. 1-9 Erosion versus Jet Size 
(Adapted from Reference 1) 


Some systematic tests with differing jet 
diameters were reported by Brandenberger and 
DeHaller. ' ' The weight-loss versus number of impact 
time curves are reported in Figure 3. l-9a. The jet 
diameters varied from 4 mm to 12 mm, and attention 
should be given to the apparent anomaly presented 
by the 6 mm and 8 mm curves; this gives rise to the 
suspicion that these curves may have been accident- 
ally mislabeled. This possibility will be discussed 
below 0 


The first step in evaluating these data must 
be to express them in rationalized form (as discussed 
in Paragraph 3.1.1 of this report). Figure 3. 1 -Vb is 
a replot of the data in terms of rationalized coordinates. 
The solid lines represent the original curves as 
labeled, and again there seems to be an apparent 
anomaly between the 6 mm and 8 mm curves. If the 
original curves were mislabeled, then the true 
rationalized 6 mm and 8 mm curves would appear as 
shown by the dotted lines In Figure 3. 1 -9b. In that 
case, the 6 mm through 12 mm curves would all come 
very nearly on fop of one another, with the 4 mm 
curve the only discrepancy. 
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Relative values of the slopes of these erosion- 
time curves have been measured for the damage 
Interval of 0. 15 to 0. 4 In Figure 3. l-9b, and these 
have been plotted in Figure 3, 1-10, Figure 3. 1-1 Qa 
represents the data with the original curves of Figure 9 
as labeled, and Figure 3, 1-1 Ob with the 6 mm and 
8 mm curves of Figure 9 reversed. In neither case 
can an/ curve be established through these points 
with any degree of confidence. In Figure 3. 1 — 1 0a, 
as shown, a proportionality between erosion rate and 
diameter could be supported, provided the 6 mm data 
point is rejected. In Figure 3. 1-1 Ob a straight-line 
relationship, not passing through the origin, has 
been shown, but the most that can be said, on the 
basis of the data points alone, is that they would 
support some relatively weak function of jet diameter. 



DIAMETER - (mm) 



(b) DATA WITH 6mm & 8mm CURVES REVERSED 


Figure 3. 1-10 Erosion Rate 
versus Jet Diameter 


( 8 ) 

Recently Pearson' 1 has conducted sysfem- 
matic tests with different drop sizes in his wheel- 
and-spray type of apparatus. Figure 3. 1-11 is a 
reproduction of Figure 1 of Reference 12, with our 
terminology. As in all of Pearson 1 s results, the 
erosion rate given is an angle -corrected rationalized 
value of the maximum slope measured on the weight- 
loss versus time curve. If represents mass loss per 
unit area divided by mass of water impacting per unit 
area. This impingement angle correction used by 
Pearson was described in Paragraph 3. 1.2 . While 
Figure 3. 1-11 shows an anomaly in the crossing of 
the 920 microns and 1050 microus lines, it seems to 
confirm that the relative effect of drop size dimin- 
ishes at high drop sizes and high velocities, i.e. , 
as one gets away from what may be considered the 
threshold conditions. 



Figure 3. 1-11 Effect of Drop 
Size on Erosion Rate 


A cross-plot of the data on Figure 3. 1-11 is 
shown in Figure 3. 1-12; here as in Figure 3. 1-10 
it is difficult to justify a purely empirical curve 
other than a straight line to represent the erosion rate 
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DROP DIAMETER- D - MICRONS 61 1131-1 Bl 

Figure 3*1-12 Effect of Drop Size on Erosion Rate 
Data Cross- Plotted from Figure 3.1-11 
(Dotted Lines are Based on 
Correlation of Figure 3.1-13.) 


versus drop diameter relationship in the absence of 
any rational basis for some other type of curve. The 
extrapolation of the solid straight lines to their inter- 
cepts on the coordinate axes is, however, question- 
able* The dotted lines are based on a correlation 
to be developed below. (Reference 12 does not 
attempt to present any analytical or empirical equa- 
tion for the drop size effect. ) 

It is assumed that the drop size effect can be 
represented by a factor of the form 

= G/V 2 

where G represents a critical or threshold combina- 
tion of velocity and drop diameter, such that, for 
V^D <G no significant erosion occurs. Even if the 
hypothesis is not completely accepted, the attempt 
to use the above factor to correlate data on drop- 
size effect may be justifiable. The data of Refer- 
ence 2 is for the same material as that of Reference 1, 
in which a critical velocity V c of 390 ft/sec was 
found when testing with a drop size D of 660 microns. 
Thus, G = 390^ x 660^1. 0 x 10^, and the above- 
mentioned factor, which shall be denoted as the 
critical factor, or K c , takes on the value 



for this set of data. 

Table 3. 1-2 lists K c for a number of com- 
binations of V and D, and also the values of the 
erosion rate E taken from the curves (not the orig- 
inal data points) drawn in Figure 3. 1-1 1. These 
values are the same ones plotted in Figure 3. 1-12. 

If K c were a simple correction factor to be 
added to an equation such as Equation 1, then one 
would expect that E/K c would become a function 
of velocity only* This is not the case, as can be 
seen in the fifth column of Table 3.1-2. 


TABLE 3* 1-2 

DROP SIZE CORRELATION ATTEMPTS FOR 
DATA OF FIGURE 3.1-11 


V 

(rt/«c) 

D 

<h) 

K s 

■-S 

E * 10° 

(From Figure 11) 

Ex 10° 
K 

c 

K V 
c 


350 

0.205 

2.0 

9.75 

123 


450 

0. 383 

3.8 

9.90 

230 

600 

660 

0. 578 

10.0 

17.3 

347 


920 

0. 694 

17.0 

24.5 

416 


1050 

0. 735 

19.0 

25.9 

441 


350 

0.419 

7.0 

16.7 

293 


450 

0.547 

10.7 

19.6 

383 

700 

660 

0. 690 

24.0 

34.8 

483 


920 

0.778 

38.0 

48.9 

545 


1050 

0. 801 

41.0 

51. 1 

561 


350 

0.554 

20.5 

37.0 

443 


450 

0.642 

30 

46.7 

513 

800 

660 

0.763 

47 

61.6 

610 


920 

0. 830 

78 

94.0 

664 


1050 

0.851 

78 

91.6 

680 


350 

0.646 

49 

75.8 

581 


450 

0.725 

64 

88.3 

652 

900 

660 

0.813 

88 

108.0 

732 


920 

0. 886 

148 

171.0 

780 


1050 

0.882 

138 

157.0 

793 


350 

0.714 

100 

140.0 

714 


450 

0.778 

116 

149.0 

778 

1000 

660 

0. B48 

140 

155.0 

848 


920 

0. 891 

250 

280.0 

891 


1050 

0.905 

220 

243.0 

906 




Another and really more rational way of 
regarding K c , since it is a criterion of the deviation 
both of drop size and velocity from a threshold or 
critical value, is to argue that the erosion rate E 
should be a function of K C V, rather than of (V - V c ) 
as proposed by Equation 1. Here, V is understood 
to mean the normal component of impact velocity. 
The values of K C V are listed in the last column of 
Table 3. 1-2, and Figure 3. 1-13 shows that when E 
is plotted versus K c V, good correlation results. 

Another valid approach would be to retain 
the form of Equation 1, and accept from the factor 
(1 - G/V 2 D) merely the consequence that for a 
given drop diameter D the critical velocity is given 

by V . =V G/D. That, In fact, was the reasoning 
whicfiled to taking the value of G = 10®. This 
suggests plotting E versus (V - v cd ) with V cd in this 

instance being given by V c =^10®/D. The values 
of V ^ are listed in Table 3. 1 -3, and the points 
corresponding to those of Table 3.1-2 are plotted 
in Figure 3. 1 -14. Again the correlation seems good, 
though careful examination of the points suggests 
that the scatter is more systematic with drop size 
than that in Figure 3. 1 -1 3. No formal attempt at 
curve-fitting has been made for either Figure 3.1-13 
or Figure 3. 1-14; therefore, no statistical data can 
be given to substantiate or disprove the feeling that 
the former provides the better correlation. A hand- 
fitted curve from Figure 3. 1-13, together with values 
of D from Table 3. 1 -3, have been used to generate 
the cfotted lines shown in Figure 3. 1 -1 2. 


The results discussed above should be regarded 
with caution until similar approaches can be tested 
against other sets of data. Some validating evidence 
is afforded by curves of the dependence of the 
critical velocity V c (below which no erosion takes 
place) on the jet diameter D (m a wheel-and-jet 
apparatus) presented by Vater. ' ' He presented 

two curves, valid for materials of corrosion fatigue 
endurance limit of 2000 and 2200 kg/cm , which 
have been approximately averaged and reproduced 
here as the solid line in Figure 3. 1-15. According 
fo the above hypojhesis, this relationship should be 
represented by D = G = constant, if the jet 
diameter can be regarded as analogous to drop 
diameter. The dotted line in Figure 3. 1-15 shows 
such a relationship and follows very closely the 
experimental curve. 
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Figure 3. 1-13 Correlation of Data of Figure 3. 1-11 
by Use of "Critical Factor" 

K c = (1-108/V*D) 
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Figure 3. 1-14 Correlation of Data of Figure 3. 1*11 
by Use of "C ritical V elocity" 
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TABLE 3, 1-3 


CRITICAL VALUES OF V , AND D BASED 

o cd ft c 

on or d) = io° 


D ti): 

350 

450 

660 

920 

1050 

V cd (V« c ): 

535 

471 

396 

330 

300 

V(ft/*c): 

400 

700 

800 

900 

1000 

D c fc): 

276 

204 

156 

123 

100 



SOLID LINE: CURVE FROM REF. (13.) 

DOTTED LINE: V^D = CONSTANT 

c 


Figure 3. 1-15 Critical Velocity 
versus Jet Diameter 


3. 1.3.2 Physical Reasons for Drop Size 
Effect 

Consider the question as to why there should 
be a drop size effect at all* The maximum pressure 
developed under the impinging drop is generally held 
to be on the order of the water hammer pressure, 

PCV, where V is the impact velocity, P is the density 
of the liquid and C is the pressure wave velocity* 

This magnitude may be modified by factors which 
depend on the drop shape (e.g., Engel ' 
although Bowden and Field^' hold that the maximum 
value of ^CV holds for spherical drops as well as 
flat-ended drops, and on the relative acoustic 
impedance of the target and drop materials (e.g., 
Vaten J '). None of these is explicitly a function 
of drop size* 

It is now known, however, what the true 
criterion of erosion damage Is. While some general 
correlations have been made between the P CV value 
corresponding to the critical velocity and the 
endurance limit, it has also been shown * that 
surface deformation can occur at PCV values far 
below the yield point. 

When erosion does take place, there is no 
certainty that the rate of erosion is strictly a funcr 
tion of impact pressure levels. Thiruvengadam' ' 
has proposed that in cavitation damage the energy 
available from the collapsing bubbles is a criterion 
of the volume rate of material removal, so that the 
impact energy of impinging drops might be of 
interest. 

The question to be asked is: What properties 
of the impacts, or of their effect on the target sur- 
face, vary when one reduces the size of droplets Into 
which a given amount of water. Impinging on a given 
target area in unit time, is subdivided? 

The total impact area (as distinguished from 
target area) actually increases, since the number of 
drops increases as D~^ and the impact area per drop 
decreases as D^ when the drop diameter D is reduced. 
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In other words, each target area element 
will be subjected to a greater number of stress pulses 
per unit time, if one can assume that the contact 
area of the impact bears a fixed relationship to the 
projected area of the drop. If this were a significant 
criterion, then the erosion would be expected to 
Increase with decreasing drop size, which contradicts 
all experience. 

However, another consequence of the 
increased Impact area is that the total kinetic 
energy (which remains constant) of the impinging 
water is spread out over a greater area, and there- 
fore the energy flux per unit area is reduced. A 
hypothesis based on this fact, led to the suggestion 
that the factor K c (see Equation 2) represents the 
drop size effect. 

Another factor which is of very likely 
significance is the duration of the pressure pulse on 
Impact. Whatever precise reasoning Is used to pre- 
dict this duration (e.g., as in Reference 15), It Is 
clear that for geometrically similar drops it must be 
proportional to drop diameter. Thus, the impulse 
per unit area is smaller in the impact of a smaller 
drop, and perhaps this is of consequence. Certainly 
the duration (microseconds) of the impact pressures 
are short enough so that strain rote effects, in those 
materials that exhibit them, may become significant. 
The smaller the drop, the higher the effective strain 
rate, therefore, the higher the effective yield point. 
The higher the effective yield point, the smaller 
the strain induced by the given applied stress which 
is determined by the impact pressure. 

Finally, the impact areas may well be small 
enough where a size effect of the material itself 
becomes Important. Particularly in the impact of a 
spherical drop (or sideways against a cylindrical 
jet), the impact area at the moment of peak pressure 
will be a small fraction of the projected area of the 
drop or jet. Size effects have been found in the 
values of endurance limits of no /t9^ e< ^ specimens; this 
has been explained by Peterson^ in the argument 
that for fatigue failure to occur, the endurance limit 
must be exceeded not merely at a point or line but 
across a dimension which is on the order of 0. 002 to 
0.003 inch, and may bear some relation to the grain 
size of the material. Since erosion damage, In the 
velocity domain now under consideration, is primarily 


a fatigue process and failure has been shown to occur 
initially by intergranular cracking, e.g., Marriott 
and Rowden^ a similar size effect is very 
possible. 


A physical or phenomenological picture of 
this kind of effect may be formed with reference to 
a fatigue model proposed by Weibull. ' He points 
out that the fatigue process consists of two stages: 
crack initiation and crack propagation. A crack 
will Initiate at a point in the material with a high 
damage factor, k, which can be regarded roughly 
as the ratio of the nominal applied stress magnified 
locally by stress raisers such as scratches or inclu- 
sions to the idealized strength of the material 
diminished locally by dislocations or other imper- 
fections. The higher the local value of k, the 
smaller is the number of stress cycles N Q which are 
required to initiate a fracture at that point. Since 
the k values are dependent on local aberrations they 
vary statistically, and hence, N 0 Is a random 
variable with large scatter. Once a crack has been 
initiated, it raises the k— field in the vicinity so that 
adjacent points are brought more rapidly to the 
crack-initiation stage, and the crack thereby propa- 
gates. 

As the drop size Increases so does the surface 
area over which the Impact pressure (assumed inde- 
pendent of drop size) extends, and so does (by 
elastic analysis) the depth to which a given stress 
level extends below the surface, Thuvlhe stress 
gradient into the material is reduced and the k-field 
under the surface is Increased. Thus, not only is 
there a greater chance of initiating a sub-surface 
crack, by virtue of the fact that a greater volume 
is highly stressed, but the higher value of the k-field 
will result in more rapid and deeper crack propaga- 
tion. In fact, if the depth of the stress field is less 
than some value characteristic of the grain size, it Is 
unlikely that the cracks would ever propagate around 
the grain and no erosion would take place. This 
would establish the threshold drop size. 

It Is noteworthy that size effects have been 
found in other material removal processes: Backer, 
et a l, (21) discovered a large increase in the shear 
energy required to remove a unit volume of material 
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as the chip size (pr depth of cut) decreases in turn- 
ing, micro-milling and grinding operations; the 
depth of cut in these tests ranged from about 0. 010 
inch down to 2 x 10“ inch* It is thought that, as 
the affected depth of material is reduced, the 
theoretical strength of the material is approached* 
These findings have been considered by Finnie^ ' 
to be of relevance to erosion by solid particle 
impingement* 


3* 1* 3* 3 Effect of Drop Shape 


The effect of the drop shape poses two 
questions; one is difficult to answer at the present, 
the other is relatively easy, at least qualitatively* 


The first is the effect of the shape of the 
front surface of the drop that contacts the target* 

Some authors have stated that this shape affects the 
maximum contact pressure; others stated that it does 
not* In either case, however, the time rate of the 
pressure rise and fall and the variation in size of the 
actual contact area will definitely be affected* Both 
of these (and the interaction between them) will 
affect the damage produced, if the strain rate effect 
and material size effect are significant* Also, the 
shape of the front of the drop will affect the radial 
outflow velocity over the target surface after impact 
(see Bowden and Brunfion^ ' and Engel ( and this, 
in turn, is of importance at impact velocities high 
enough to cause single-impact damage. Complete 
theories or experimental data relating this geometry 
to the damage are lacking. 


The second question is that of the tail surface 
of the drop, or its length perpendicular to the contact 
plane* Bowden 1 s group and also DeCorso^ ' have 
shown in single-impact tests that the length of the 
impinging mass of water is of significance. The 
duration of the high (water hammer) pressure is 
governed essentially by the time it takes pressure- 
release waves to move inward from the boundaries of 
the contact area and meet, or, in the case of an 
extremely short mass of liquid, the time it takes for 
the pressure wave to be reflected from its back end 
as a release wave and return to the contact face* 
Thereafter, the contact pressure is only the stagnation 
pressure pV^/ 2, and the mass of liquid arriving then 
is relatively harmless* 


Thus, the effective mass of an impinging drop 
or mass of liquid may be hypothesized to be approxi- 
mately that mass through which the pressure release 
waves must travel before the water-hammer pressure 
is completely relieved at the contact face* 

A test result with some bearinajan this was 
given by Brandenberger and de Haller'' An 
elongated jet cross section was used in a wheel-and- 
jet apparatus and when impacted by the specimens 
on its broad side resulted in far more rapid erosion 
than when impacted on its narrow side* Quantita- 
tive conclusions cannot be drawn, because in the 
latter case the second stage of erosion was not 
reached, so that a reliable comparison of erosion 
rates is not possible; and further because the actual 
dimensions of the jet cross section are not given 
(although the proportions are suggested by a sketch), 
the size effect and the shape effect cannot be dis- 
tinguished* Additional experiments of this type 
might be of value In helping to establish the signi- 
ficant criteria of a drop's damage potential, even 
though drop shapes may be of fairly uniform shape. 

3*1*4 Dependence on Impact Velocity 

3* 1*4* 1 Some Simple Empirical Equations 
for Velocity Dependence 

The literature contains a considerable body 
of data relating erosion to velocity, but the useful- 
ness of much of these data Is limited by the con- 
siderations discussed In Section 3. I. 1. 

There are various functional forms to which 
one can attempt to fit such data; the most obvious 
ones are discussed below. Here, E = erosion rate 
and V = velocity: 

E - a V (3) 

This represents a simple power relationship, and 
implies that some erosion will take place no matter 
how low the velocity. Usually, however, it is 
thought that there is a critical or threshold velocity, 
V , below which erosion is absent for all practical 
purposes. An obvious type of relationship to reflect 
this is E - a (V - V c ) n (4) 

Hr’ 
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This implies that erosion is proportional to a power 
of the velocity in excess of the critical or threshold 
velocity V c . Pearson 1 s equation is of that type. 

It has been used by a number of authors to express 
their results. 

Another type of relationship involving a 
critical velocity is 

E = a V n - b (5) 

which implies - (b/a) 

and can be rewritten 



Clearly both Equations (4) and (5) have the 
property that ^ 

when^V/V^ ^ ^ E— ►a^ ^ ^ ^ 

and when V/V — *4, E— ►O 


3. 1.4.2 Some Physical Considerations 
Relating to Velocity Effect 

3. 1. 4, 2. 1 Analogy with Fatigue $-N Data 


which velocity is plotted versus the number of 
impacts to obtain a given weight loss (Figure 
3. 1-1 6a ), or versus the reciprocal of the weight 
loss obtained after a given number of impacts 
(Figure 3, l-16b). (The latter is, however, once 
more an example of doubtful comparisons, since 
after a given number of impacts, different stages of 
the erosion-Hme curve may have been reached.) 




Figure 3. 1-16 Erosion- Velocity Relationships 
Plotted in the Manner of Fatigue Data 


Which among equations (3), (4) and (5) is a 
more logical choice depends to some extent on what 
physical reasoning — if any — is used to account for 
the influence of velocity. One physical argument 
can lead to yet another type of relationship: 

Voter noted that since erosion is a fatigue 
phenomenon, and the applied stress is proportional 
to (or at least a function of) velocity, the relation 
between velocity and erosion lends itself to a treat- 
ment analogous to the relation between stress and 
cycles to failure in fatigue. He presented curves in 


Some caution should be exercised in making 
direct analogies between S-N fatigue curves and 
velocity versus erosion curves. If erosion takes place 
as a steady-state process and the mean size of 
erosion fragments is independent of V, then the 
volume rate of erosion E would be proportional to 
1/N, where N is the mean number of impacts 
required to generate a loose erosion fragment. In 
turn, N could be assumed to be related to the impact 
stress and hence to the velocity V in a manner 
similar to the relation between cycles to failure and 
stress in conventional fatigue tests. 
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If these assumptions are correct, a V - (1/E) 
curve should exhibit similar characteristics to a S-N 
fatigue curve. If erosion is not a steady-state pro- 
cess, then the number of impacts to obtain a given 
cumulative volume loss (as plotted in Figure 3. l-16a) 
should be a valid analogy, provided that there are 
no variations in the initial target surface conditions 
which could affect the life-times of the original 
surface layer elements. (It might be pointed out that 
one implication of the erosion-rate-time model pro- 
posed in Section 3.2 is that the erosion process dur- 
ing the period of maximum erosion rate is generally 
not a steady-state process; rather this peak in the 
rate-time curve can occur as a result of a deluge of 
erosion fragments being loosened at about the most 
probable value of the number of impacts to failure, 
as measured from the time the impingement attack 
was initiated. It is only because of scatter in the 
sizes and the impacts-to-failure of the erosion frag- 
ments that there is a tendency towards a steady-state 
value, ) 


Fatigue S-N data are often depicted as an 
approximately straight line on a semi-log plot for 
intermediate values of N, as follows: 

5 = S - b log N 
o 

with a leveling off to S = S at low values of N, 
and a transition to S = a( high values of N 
where 

S = stress corresponding to N cycles 

S = intercept of straight line on stress 
0 axis (S Q > S y ) 

Sy = yield stress 

S^ = endurance limit 

Consequently, one might expect some analogous 
relationship such as 

V = a - b log 


or, in a form which is equivalent but more consistent 
with the previous types of equations listed, 

C "V f~7\ 

E = a e (7) 

where e is the base of the logarithm chosen. This 

equation does not predict a critical velocity and 

must be combined with the separate condition that 

there is a transition to E — ►O at some value V = V . 

c 

This relation, even for conventional fatigue 
data, is valid only within a limited range. A number 
of more complicated equations have been proposed 
for representing S-N data over the full range of 
values; these are surveyed on pages 174-178 of 
Reference 26. Such equations would predict a 
critical velocity. It does not seem profitable to 
attempt to use these, partly because of the compu- 
tational difficulty involved and partly because one 
of the previously mentioned assumptions inherent in 
this direct analogy is almost certainly unjustified; 
that is, the assumption that the mean erosion frag- 
ment size Is independent of impact velocity. Since 
a higher velocity generates a greater impact pressure 
in turn producing a larger stress-field in the target, 
i.e., a greater volume of material is highly stressed, 
it seems very likely that the mean fragment size 
increases with velocity. A velocity relationship 
could be postulated from this fact alone, as will be 
shown below. 


3. 1. 4. 2. 2 Approach Based on Size of 
Stress-Field Under Impact 

The approach will be demonstrated with 
reference to a two-dimensional model, which would 
apply to the wheel-and-jet type of apparatus: It is 
assumed that the contact pressure between the jet 
whose side impinges against the target, or vice 
versa, and the target surface can be reasonably 
represented by a belt of uniform pressure over the 
surface of a semi-infinite solid; furthermore that the 
effective width "2a 11 of this belt is a function of jet 
size and shape and is independent of impact velocity. 
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(This assumption seems more reasonable than a 
Hertzian contact stress distribution which would 
Imply that the liquid behaves as an elastic solid on 
Impact.) This corresponds to Case No. 11 on 
page 322 of Roark ^ ' where formulae are given for 
the compressive and shear stresses anywhere within 
the solid. Since the shear stress is surely a better 
criterion for failure than the compressive stress, 
consider the locus of a constant value of shear stress, 
5, as a function of the contact pressure, p, and the 
semi-width of the pressure belt, a. The formula 
given by Roark is 

S = 0* 31 8 p sin a (8) 

= (1/t ) P sin a 

where a is the angle subtended, at the point in 
question, by the boundaries of the pressure belt on 
the surface. If can easily be shown that the locus 
defined by Equation (8) consists of two circular arcs 
of radius, r, where 

= J p 

a * S ' 

whose centers lie a distance d, respectively, below 
and above the solid surface, where 



This is shown in Figure 3. 1-17. The region stressed 
to values greater than 5 lies between the two arcs. 
Figure 3. 1-18 shows these loci for a number of values 
of p/S; the highest value of the shear stress is of 
course S = p/?r, and its region reduces to a semi- 
circular locus of radius, r = a. 


Figure 3. 1-18 can be regarded in two ways. 

It can represent the loci of various shear stresses in 
a given stress field, if the contact pressure p is 
assumed to be a fixed quantity. On the other hand, 
assuming the shear stress S to be the independent 
fixed quantity, then the lines on Figure 3. 1-18 
represent the spreading of the boundaries of the 
region bounded by that stress, as the contact 
pressure p Is increased. It is the latter point of view 
which we adopt for our argument. 



tOCl OF SHEAR STRESS S = p SIN »/■ 

BY ANALYTIC GEOMETRY, SIN * = o/r 

THEREFORE, LOO ARE CIRCLES OF r-op/.S 411131-34* 


Figure 3. 1-17 Loci of Constant Shear Stress S 
in Semi -Infinite Solid with Belt 
of Uniform Pressure P 



Figure 3. 1-18 Upper and Lower Loci for Various 
Values of Pressure/Shear Stress Ratios 
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For the purpose of this argument it is assumed 
that if a reference stress S is selected exceeding an 
appropriate critical value or endurance limit, then 
the reference time (or number of impacts) required 
for fracture to have occurred all around the locus of 
S is independent of the length of that locus, since 
a greater length represents a proportionately greater 
number of crack initiation points. At this fixed 
reference time, all of the material between the 
original surface and the lower locus will have been 
lost. Therefore, a lower limit to the change in the 
erosion rate with contact pressure, and hence with 
velocity, is provided by the change in the area, 

A$, which lies between the original surface and the 
lower locus of a given value of S, as p is increased. 

The non-dimen siona I i zed area A^/a^ has 
been computed as a function of p/S and is plotted 
on log-log scales in Figure 3, 1-19, which there- 
fore should represent an approach to a velocity- 
erosion rate relationship. Note that the slope 
begins at a high value and gradually approaches the 
value of 2. 
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Figure 3, 1-19 Area Between Surface and Lower 
Stress Locus 


One should not, of course, take this model 
so literally as to infer from it that fracture actually 
occurs by cracks following along these loci. More- 
over, it clearly gives a lower limit to the erosion 
rate because it ignores the fact that earlier fractures 
will occur above the reference stress locus because 
of the higher stresses there, thus altering the 
geometry and causing the locus of S to progress 
forther down into the solid. In particular, this 
model predicts that when the pressure reaches 
p = irS, the erosion jumps from ^ero to a value 
corresponding to an area, A^/a = */2 = 1.57. 

In actuality, if the "reference stress" S is chosen 
to be above the endurance limit S 0 so that the 
reference time is not infinite, then for all values of 
p, such that p>wS e , there will still exist stresses 
high enough to cause material loss, though not within 
the same reference time. The model does show, 
however, that some quantitative conclusions may be 
drawn from a fatigue point of view, without any 
reference to specific S-N relationships. It also 
serves to emphasize that the extent of the stress 
field under the impact must be taken into account in 
any analytical approach to predicting the erosion- 
velocity relationship, whether that approach is 
based on stress or energy concepts. 


3. 1.4. 2. 3 Energy Considerations 

An energy approach was described in pages 
167-174 of Reference 1 1, that sought to predict 
effects both of velocity and drop size on the erosion. 
It was based on the assumption that the volume of 
material removed per unit area per impact, is pro- 
portional to, or a function of, the impact energy 
per unit area in excess of some energy threshold per 
unit area characteristic of the material surface. 

This resulted in the following relationship, expressed 
in non-dimensional terms: 
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where 


E = rationalized erosion rate 

( volume of eroded material \ 
volume of Impinged liquid J 

V = impact velocity 

D = characteristic dimension of droplet 

^ = density of liquid 

l <2 = ratio of "effective" volume to total 

volume of drop 

1<3 = ratio of "effective volume" to 

"effective impact area" times drop 
dimension 

s = characteristic strength or elastic 
u modulus of material 

e = "threshold energy" per unit area of 
material surface 

f = functional relationship or factor of 
proportionality 

In a simplified form, and to bring out the "threshold 
conditions" implicit in it. Equation 9 can be 
rewritten as: 



where G represents a "critical value" such that if 
V 2 D < G no erosion takes place. (The relationship 
is of the type of Equation 5. ) This critical value 
has proved quite successful. In one or two instances, 
of correlating drop-size effect data, as was shown 
in the previous section. In particular, it was shown 
that the data of Pearson in Reference 12 correlated 
well in the form 



However, the difference between Equations (9a) and 
(10) indicates that the energy threshold concept - 
at least in its present form - ?s still deficient. 


A number of authors recently have sought to 
predict both erosion strength and erosion attack 
severity in terms of concepts (e.g., 

Th i ru vengadonyj • ' '■ Hoff, et al, (w; 

Shalnev, etal^ 3 ') there are problems to be solved. 
The energy balance involved in a droplet impact is 
complex and has not yet been examined in sufficient 
depth. Part of the kinetic energy of the impinging 
drop will remain as the kinetic energy of the radial 
outflow velocities; part will be dissipated in the 
shock or pressure waves passing through the drop, 
and part in the shearing associated with the change 
of direction of the liquid flow; part will be dissipated 
in the target material; here too, the energy dissipa- 
tion associated with stress waves should be examined 
as well as the quasi -static plastic strain hysteresis 
energy associated with each impact stress cycle. 

The picture is further complicated by the rather 
large amount of energy that will be stored temporarily 
as elastic strain energy in the target and will 
reappear in one of the previously-mentioned forms. 


The energy dissipated in the target material 
is that energy associated with fracture, and there- 
fore, with erosion. But it is not correct to assume 
that the volume of material removed is proportional 
to that energy. Two reasons account for this: One 
is that (at least in the case of larger drops at moder- 
ate velocities) erosion fragments produced by the 
random linking-up of fatigue-like cracks (see 
Reference 19) are not likely to be deformed to the 
fracture point throughout their volume; therefore, 
the accumulated plastic strain energy may be more 
related to the surface area of the fragment than to 
its volume, or at the least, be non -uni family dis- 
tributed within the volume. The other is that in 
fracture due to the repeated stressing, the total 
energy input increases greatly with the number of 
cycles to failure. This is evident in McAdams’ 
results for impact fatigue tests, and has been 
documented for a large collection of fatigue data 
by Halford^'. Even if one postulates that the 
damaging energy is the same in all cases and the 
excess hysteresis energy is dissipated through non- 
damaging processes, the fact remains that all of the 
dissipated energy is supplied by the impinging drop- 
lets and even If the energy absorption by the target 
s 
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material is known, that in itself will not establish 
the erosion rate, The crudest broad conclusion one 
can draw from the above is that the erosion is likely 
to vary with the velocity to a power higher than 2, 
since the Impinging energy is proportional to velo- 
city squared, and the total energy to failure decreases 
with increasing velocity (i 0 e, , with increasing 
stress and decreasing number of impacts to failure). 


where 

= density of undistrubed liquid 
V. = impact velocity 
C q = acoustic velocity of the liquid. 


3. 1,4. 2.4 Relation Between Impact 
Pressure and Velocity 

A final note of relevance to this subject 
concerns the relationship between the impact 
velocity and the contact pressure generated. 


When target elasticity must be taken into 
account, then one may write two simultaneous 
equations (11), for the liquid and for the target 
material respectively: the pressures must be equal 
for both, and the two particle velocity changes 
must add up to the impact velocity. This leads 
to an equation sometimes attributed to deHaller: 


Let us first review one-dimensional approx- 
imations, and then discuss the three-dimensional 
effects Introduced in the Impact of a rounded drop 
or jet. 


When a body has its velocity changed by 
means of an impact, a shock (or pressure, or stress) 
wave emanates from the initial impact interface and 
propagates into the body, progressively imparting 
the change of velocity to each particle ’Mayer" 
through which the wave presses. The applicable 
pressure relationship is 

p = p CV (11) 


where 

p = pressure rise across shock wave 

P = density of unshocked material 

C = velocity of propagation of shock wave 

V = change in particle velocity across 
shock wave. 

If we consider the low speed impact of a 
liquid against a rigid target, then the above takes 
the form of the well known "water hammer" 
equation: 


p = P C V. (11a) 

r o o i 


P 


P 

o 


1 + 


C V. 

o i 


p o C Q 

P T C T 


( 12 ) 


where 

P j = density of undisturbed target 
material 

Cj = stress wave velocity or acoustic 
velocity in the target. 

Note that equations (12) and (11a), 

besides being one-dimensional approximations, 

both assume fixed values of the propagation 

velocities C and C_. This makes them quite 
o T 

inaccurate for high-speed impact calculations, 
because the propagation velocity of a shock wave 
itself depend^ strongly on the shock pressure (or 
the particle velocity change across the shock). 

Various studies have shown that for many 
materials, both liquid and solid, the relationship 
between shock velocity, C, and particle velocity 
change across the shock, V, Is a nearly linear one 
and can be approximated by 


c c o + kV (13) 

where C is the acoustic velocity in the material 
and k is a constant for the particular material. 
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Heymann gave a non-rigorous explana- 
tion of this relationship, demonstrating that for 
water k S 2 (in the range 0 < V < 1 .2 C q ), 

and derived the following equations for one-dimen- 
sional impact between a liquid and a target. 

If the target is rigid, V = V.,and substitu- 
tion of (13) into (11) gives 

p = p C V. (1 + k M ) (14a) 

r o o i o' 

where 

M = V./C — "Impact Mach Number” 
o i o r 

and 

k is the "shock velocity constant” 

° for liquid, as defined by 

equation (1 3). 

If the target is elastic, but its shock 
velocity is assumed constant, it is not correct 
simply to substitute equation (13) into equation 
(12), although the error is generally less than 20 
percent. The exact expression, derived in Refer- 
ence 34, can be written in dimensionless form as: 


— P = u (1 + k Mu) (14b) 
P C V* o o 

o o i 


where 


u {(n + m ) + ttm ] 


and 


* * 'tV'.c. 


(u is the ratio of particle velocity change in the 
liquid to impact velocity, and x is the acoustic 
impedance ratio between target and liquid.) 


The assumption of a constant shock velocity 
C in the target can be justified when x «1, which 
is generally true for metallic targets. In that case. 


the ratio of particle velocity change in the target 
to its acoustic velocity is so small that the differ- 
ence between the true stress wave velocity and the 
acoustic velocity is negligible. 

Curves of p/p C V. versus M , for 
r o o i o 

several values of x, are given in Figure 3. 1-20. 
These curves apply to k = 2, as for water. 



DIMENSIONLESS IMPACT VELOCITY Vj/V^ 61 33S8-1 B 

TO CALCULATE FOR WATER, WITH V { IN FT/SEC AND P IN LBS/IN 2 
USE FOLLOWING CONVERSIONS: 


C =4900 
o 

P = x V i * 65 4 

o a i 


Figure 3. 1-20 Impact Pressure Versus Velocity 


When x » 1, as say in the impact between 
water and an elastomeric target, then the greater 
particle velocity change will occur in the target. 
Such a case can be treated by exchanging the 
meanings of the subscripts (e.g.,p^, C^, k^ now 

refer to the target material), provided k for the 
target material is known or determined. 
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Unfortunate!/, values of k are not easily 
found in the literature. The following is a partial 
list: 


Material 

C o ( krry/sec ) 

k 

Source 

Water 

1.5 

2.0 

Heymonn, Ref. 34 
(Deduced from Cole, R, H: 




"Underwater Explofrous", 
Princeton Uni v. Press, 1948) 

Sodium 

2. 563 

1.242 

j 

| Rice. M. H: J. Phys. 

! Cbem. Solids, 26, 1965 

Potassium 

1. 930 

1.188 

! pp. 455-495 

Lithium 

4.589 

1.154 ] 


Rubidium 

1.232 

1.184 


Gold 

3.0 

1.56 

Jones, A. H. , et al : 

Tungsten 

4.0 

1,28 * 

1 

J. Appl. Phys., 37, 1966, 

pp. 

"Fomteel 77" 

3.9 

1.355 ^ 


K Br 

2.33 

1.546 

| 

Cs 1 

1.66 

1.41 

f Ruoff, A.l: J. Appl. Phys., 

38, 1967, pp. 4776-4980 

Sodium 

2.706 

1.22 



Equations 14a and 14b still apply strictly 
only to one-dimensional impact (i.e.,+wo semi- 
infinite bodies colliding). An exact analysis of 
a liquid sphere impacting against a plane surface 
has not yet been achieved. However, a qualita- 
tive picture of the sequence of events, based on 
various contributions relevant to this problem, has 
been given by Heymann. (35) (75) According 
to this picture, the impact pressure at the first 
instant of contact is equal to the one-dimensional 
pressure. As the contact area grows, the pressure 
distribution becomes more and more non-uniform. 
The pressure at the expanding boundary of the 
contact area increases, while the pressure at the 
center of the contact area decreases, from the 
one-dimensional value. 

A "critical condition" is reached when the 
shock front expands faster than the contact 
boundary, and lateral "jetting" outflow begins. 
Soon thereafter, the contact pressures may be 
assumed to decrease everywhere. 


Heymann ^5) a | so presented an approximate 
two-dimensional analysis for the impact of a 
round liquid body onto a rigid plane, which 
permits the calculation of the pressure at the 
boundary of the contact area, from the moment 
of initial contact until the "critical condition" 
is reached. The numerical results support the 
previously described qualitative picture. The 
peak impact pressure is that at the critical con- 
dition, and if this "critical pressure" p is plotted 

c 

in nondimensional terms, p^ / * V. against non- 

dimensional impact velocity M , for water, one 

o 

finds that the lowest value of p /p C V. is 

r c o o » 

about 2. 8, at M * 0. 1 ; at higher and lower 

o 

values of M the value of p / P C V. increases 
o 'cooi 

rapidly. Thus, the simple one-dimensional water 
hammer equation (11a) underestimates the peak 
pressure by at least a factor of about 3. The curve 
applicable to water is shown on Figure 3. 1 -20. 
Similar results are obtained for sodium and po- 
tassium. 

These results are true only for impact on 
a rigid plane; the analysis has not yet been extend- 
ed to an elastic target, on which the peak pres- 
sures presumably are smaller. The results did show, 
however, that the pressure at the contact boundary 
rises only slowly during the first half of the growth 
of the contact zone, so that one may conclude that 
a considerable portion of the eventual contact area 
is subjected to little more than the one-dimensional 
pressure. This conclusion may perhaps be extended 
to elastic targets as well. It could well be that 
this pressure is more significant in determining 
target material response than the more localized 
and fleeting "critical pressures", but this should 
not be assumed without further evidence. In any 
case, it would be desirable to have analytical 
results for the contact pressures developed by im- 
pacting rounded drops on elastic targets, on rough 
targets, on film-covered targets, and at oblique 
angles. This still remains to be accomplished. 
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3. 1,4 0 3 Empirical Data from the Literature 
Search 

3. 1. 4* 3. I Preliminary Remarks 

In attempting to fit a simple equation to 
experimental data, equations like (3), (4), (5) or 
(7) would be selected. Equation (4) would form a 
straight line on log-log paper if plotted versus 
- V c ) / but one does not know V ahead of time. 
Equation (7) would form a straight line on semi -log 
paper, with V along the linear scale. 

Figure 3. 1-21 shows examples of these 
various relationships on a log-log plot. The upper 
portion represents equations of types (4) and (5) 
with V/V c plotted against E, and the lower portion 
equations of types (3) and (7) with V plotted against 
E. For consistency, the constants, a, have been 
chosen so that all curves pass through the point E = 1, 
V or V/V c =2. A plot of this kind may be of help 
iri. deciding what type of relationship to try to fit to 
experimental data points when these are plotted on 
a log-log graph. A corresponding plot of these 
families of curves could be constructed on semi-log 
paper, with E as the log coordinate; In that case the 
equations of type (7) would plot as straight lines. 



Figure 3. 1-21 Families of Hypothetical Erosion 
Versus Velocity Curves, Accordingto 
Equations (3) through (7) 

A number of problems arise when attempting 
to establish an equation of these types for experimental 
data, either by plotting the data points on log or 
semi -log paper, or directly by numerical methods. 


One of the problems is that much of the data 
is obtained at velocities not much greater than the 
critical velocity (seldom at more than V/V c = 2). 
Therefore, one is probably examining that portion of 
the curve in which a transition is taking place, or 

in which even in a log-log plot, the curvature is 
greatest. Consequently, small errors in the data 
points, or small differences in the manner in which 
a smooth curve is fitted to them, will have a great 
effect on the values of the exponent n and the 
critical velocity deduced. 

This difficulty is compounded because the 
scatter in erosion data is inevitably great, that in 
many of the test series no more than three velocities 
have been investigated, and that the ratio of the 
highest to the lowest of these is often small, about 
1.5. This covers a very short span of the velocity 
axis on log-log paper. In short, a problem exists 
In which: 

a) In the velocity range investigated the 
true relationship will not appear as a straight line. 

b) There are too few data points and these 
cover too short a velocity range to allow a curved 
line to be fitted with the necessary accuracy. 

If testing could be done at much higher velocities, 
then in theory the influence of V c on the apparent 
exponent, i.e. , the slope of the curve on a log-log 
plot, would be reduced and a more accurate deter- 
mination could be made of n. In practice, however, 
at velocities much above V/V c = 2 one gets into the 
region of single-impact damage, whose velocity 
dependence may not be the same as that for fatigue 
damage, and so, one may well be in another transi- 
tion region. 

3. 1. 4. 3. 2 Examination of the Better Test 
Data 

One of the earliest comprehensive sets of 
test data at various velocities was given by 
Honegger®. His conclusion was that while the 
behavior of the various materials differs considerably, 
the rate of erosion may be generally expressed as: 

E cc (V-125) 2 (15) 

where V is the impact velocity in m/sec. The 
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above relationship was evidently deduced from his 
Figure 7, on which was plotted the specific loss in 
weight (weight loss per impact, hence a measure of 
erosion rate E) after 215, 000 impacts, versus 
velocity. This type of comparison is not valid. 

Also, the equation fits a mean curve drawn through 
the band of experimental curves; but some individual 
curves suggest exponents that are much higher. Thus, 
the curve for Specimen No, 26 is well described by 
E oc C/-H0) 3 * 3 . 

For a more valid basis of comparison, the 
rate-time curves presented for various materials 
and for the speeds of 175, 200, and 225 rr/sec should 
be reviewed. From these, one can deduce charac- 
teristic erosion rates which fulfill the criteria specified 
in Section 3,1,1 of this report. This has been done as 
an approximation and the results are plotted on log- 
log coordinates in Figure 3. 1-22. Their shape is not 



unlike what is predicted by Figure 3, 1-19, at 
velocities close to the threshold value, but it would 
be unwise to fit any empirical equation to these data. 


An interesting set of results on one material 
was reported by Brandenberger & DeHaller , which 
was discussed in Section 3. 1,2 with reference to the 
angle-effect. The rationalized erosion rates deduced 
from Reference 1 were plotted in Figure 3, 1-7, and 
the data points of Figure 3, 1 —7b have been replotted 
on semi -log coordinates on Figure 3, 1-23, They fall 
into a straight line, giving some support to the simple 
fatigue model of velocity dependence represented by 
equations of type 3.1-7. It should be pointed out, 
however, that the determination of the best values of 
E, from the irregular slopes of the very small graphs 
shown in Reference 1, involved a certain amount of 
judgment and some extrapolation for the u = 31 
m/sec data. In preliminary attempts, with fewer 
pretensions to accuracy, the results were such as to 
fit equations of types 3.1-4 or 3.1-5 better than 
type 3. 1 -7. 



Figure 3. 1-22 Erosion versus Velocity Curves, 
Computed from Data in Reference 2 


Figure 3. 1-23 The Data of Figure 3,1 -7b 
Plotted on Semi- Log Paper 
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The following equations have been fitted to the 
data of Reference 1 during these several attempts: 


TABLE 3, 1-4 


E oc (V-20) 

E oc (V-25) 2 


DATA OF HOBBS IN REFERENCE 36 


E oc e 


0. 1 26V 


E oc V 


And yet these data are among the better In the 
literature, in that the velocity range covered was 
almost 2:1 and there were 8 data points In that 
range* This, again, demonstrates the (near) futility 
of applying a purely empirical approach and hoping 
to deduce therefrom some useful general izations* 


Another set of data covering an even larger 
velocity range was given by Hobbs In his discussion 
to a paper by Leith and Thompson'^ although no 
information was given on the material tested* The 
data were plotted on linear coordinates, labeled 
rate of weight loss, mg/sec, and impact velocity, 
ft/sec* From the units in which the erosion rate is 
given, one must infer that these data are not ration- 
alized/ therefore, the erosion rates should be 
divided by a factor proportional to the corresponding 
velocities to put them on a rationalized basis, i.e*, 
on the basis of equal rates of impinging water* The 
actual data points from Hobbs' graph, and the values 
of E computed therefrom, are given in Table 3* 1-4* 
The values of E have been plotted on log-log scales 
in Figure 3* 1-24, both against actual velocity V 
(Curve "a"), and also against (V-V ) with V taken 
as 270 ft/sec (Curve "b"). Smoothly fitted curves 
are drawn as solid lines, and straight-line approxi- 
mations as broken lines* These latter suggest that 
the results can be represented over a certain range 
by 

E " V4 ' 4 ' 2 °4 by (.7) 

E oc (V-270) * 



(V) OR (V-V^ - FT/SEC 61 1 131 -24B 


Figure 3. 1-24 Data of Hobbs in Reference 36, 
Plotted both versus V, (Curve "a"), 
and versus (V-270), 

(Curve "b") 
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The latter may result in less scatter, but is valid over 
a more restricted range. The same data are shown 
plotted on semi -log coordinates in Rgure 3. 1-25. 

A straight line fits the data well in the lower 
velocity range, but a distinct breakaway from it 
occurs at about 700 ft/sec. Thus, these results, too, 
provide no evidence pointing toward any particular 
simple type of empirical formulation. 

The most comprehensive body of test data 
recently made available is that of Pearson^' 

These data have already been discussed in relation 
to angle effects in Section 3. 1. 2 and drop size 
effects in Section 3. 1.3; in the latter section there 
was success in collapsing the data for different drop 
sizes into a single curve by two different methods as 
shown in Figures 3. 1-13 and 3. 1-14. No actual 
curves were drawn in those figures so as not to obscure 
the data points themselves. Curves fitted by hand to 
these points are shown in Figure 3. 1-26. Curve (a) 
represents Figure 3. 1-13 and Curve (b) Figure 3. 1-14. 
The same curves, transposed onto log-log coordinates, 
are shown In Figure 3. 1-27, and straight lines (dot- 
dashed) are shown which coincide with the curves 
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Figure 3. 1-25 Data of Figure 3. 1 724a 
on Semi- Log Paper 
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themselves at the values E = 10 and E - 10 . 

They are reasonably valid approximations for the 
range from E = 5 x 10“^ to E = 2 x 10 . These 
lines represent relationships as follows: 

n A4 


Curve (a): 


(K c v) 


3.05 


Cuive (b): E a c (V-V .) 


(1 8) 


where K c and V cc j have been defined in Section 
3. 1, 3 and In Figures 3* 1-13 and 3* 1-14. 


Including Honegger (see Equation 3.1-15), P earson 
(Equation 3.1-19), and Fyall, et al( 3 ' who present the 
following equation for the erosion rate of "perspex": 

3. 37 

Weight Loss Rate cc (V-208) 


This, however, refers to the velocity of a 
target within a given rainfall. Thus the rate of water 
impingement increases linearly with velocity and the 
rationalized erosion rate would be given by 


Note that the latter has an exponent fairly 
close to the expression deduced by Pearson' for 
a single drop size: 

E cc (V-390) 2,6 (19) 


Note also that the general appearance of the curves 
of Figure 3. 1-27 is similar to those of Figure 3. 1-24 
(except lor the curvature at the highest velocities), 
and that the general appearance of those in Figure 
3. 1-26 is not unlike that of Figure 3. 1-25. In 
particular. Curve 3.1 -26a could reasonably be 
approximated by a straight line below about 600 
ft/sec with a breakaway above that. (It must be 
remembered, however, that in Figure 3. 1-25 the 
horizontal scale is actual velocity, whereas in 
Figure 3. l-26a it is a "corrected velocity” which is 
not a linear function of the actual velocity.) 


3. 1. 4. 3. 3 Conclusions 


E cc (V-208) 2 ’ 37 (20) 

The preceding comparison of various equations 
of the form of equation (3. 1-4) suggests that when data 
can be represented in this manner, the value of the 
exponent will be not too far from 2.5. 

Comparison of Figures 3. 1-23 through 27 sug- 
gests that equations of the form of equation (3. 1 -7) 
tend to fit better in the lower velocity region (although 
there must also be transition to the critical velocity), 
whereas equations of the form of equation (4) fit best 
in the intermediate velocity region. 

If a direct power law of the form of equation 
(3.1-3) is used to represent the results, the exponents 
tend to range from 4 to 6; though for brittle materials, 
such as glass, exponents as high as 13 have been 
quoted by Langbein^). 

In no case does it appear justifiable to use 
any of these curve-fitting equations for the purpose 
of extrapolating out of the test range. 


About the only conclusion which seems 
justifiable, at this stage. Is that even the best avail- 
able erosion- versus- velocity data do not follow 
exactly any law such as represented by equations of 
types 3.1-3 through 3.1-7, but can, over limited 
ranges, be approximated by any of them. Equations 
of type 3. 1 -4 have seemed intuitively to be the most 
rational and have been adopted by many authors. 


3. 1.5 Dependent Parameters Other Than Rate 

3. 1.5. 1 The Incubation Period 

A*il of the correlations discussed in the pre- 
vious three sections have related to the slope of the 
second-stage or steady-state region of the erosion 
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versus time curve, and minor attention has been 
given to the incubation-period or first-stage of 
erosion, which may be defined as the duration to the 
intercept of the steady-state or second-stage erosion 
line when that is extended to cross the zero-erosion 
axis, A proper understanding of the effect of 
velocity, and the other variables discussed, must 
eventually predict their effect on the incubation 
period as well as on the subsequent erosion rate, 
since the Incubation period may under some condi- 
tions be a substantial portion of the effective life of 
the component being eroded. Figure 3. 1-2 defined 
the incubation period as the term is used in this 
section and by the authors cited herein. 

Pearson^' ^ has plotted incubation 
periods for different velocity drop sizes and impinge- 
ment angles, and has found more scatter in these 
data than in the corresponding erosion rate data. 

Figure 3. 1-28 reproduces this data for different 
drop sizes in Reference 12, including the average 
curve drawn by Pearson, because "the amount of 
scatter „ . , obscures the effect of drop diameter. " 

It is nevertheless instructive to draw the best curves 
for each drop size separately, as is done in Figure 
3. 1-29, from the data points in Figure 3. 1-28. 

From these points one can see a trend for the curva- 
ture of the lines to increase with decreasing drop 
size; this one would expect if the critical velocity 
increases with decreasing drop size, since near the 
critical velocity W Q would tend to infinity. In 
particular, the 350 micron curve seems consistent 
with the prediction from Table 3. 1-3 that the critical 
velocity for this drop size is 535 ft/sec. 


The simplified fatigue analogy which led to 
Equation (7) also implies that the incubation period 
should be proportional, or analogous, to the number 
of cycles to obtain fatigue failure. Some evidence 
supporting this has been given by Ripken, et al, 

1965 For one material, Ripken has measured 

the number of impacts corresponding to the incuba- 
tion period as previously defined, and the resulting 
impact stress assumed to be given by 1/2 CV. He 
super-imposed these points on a standard S-N fatigue 
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Figure 3. 1-28 Rationalized Incubation Periods 
at Various Drop Diameters and Velocities 
(Copy of Figure 7 of Reference 12) 



Figure 3. 1-29 Individual Curves for Different 
Drop Sizes, Based on Data 
Points of Figure 3 # 1 -28. 
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so-called incubation time* The data on Incubation 
times are too sparse and exhibit too much scatter to 
allow any conclusions beyond the very broad and 
obvious one that as the Impingement conditions 
(velocity and drop size) decline toward the threshold 
value, the incubation time increases. 

The erosion rate-Hme model to be developed. 
In Section 3.2 of this report. Implies that both the 
incubation time and the maximum erosion rate are 
strongly Influenced by the statistical variations in 
the sizes and lifetimes of the erosion fragments 
formed. These, in turn, are influenced by the 
scatter in drop sizes and velocities as well as the 
scatter inherent In fatigue properties themselves. 
Consequently, it suggested that future correlations 
should be attempted on the basis of the time required 
to attain specified damage levels rather than on the 
arbitrarily-defined incubation and rate parameters. 

The view that erosion is a form of fatigue 
leads directly to a number of corollaries; 


a) There is little likelihood of finding one 
specific independently measurable material property 
which will predict erosion resistance, since none has 
been found to predict fatigue strength uniquely, and 
far more research has been done on fatigue than on 
erosion. 

b) In fatigue, the relation between stress 
and endurance Is determined by a test for each 
material, and cannot be stated in simple analytical 
form. Similarly, the relation between Impact 
velocity and erosion very likely does not follow 

any universal law but must be established empirically, 
perhaps In graphic form, for each material. 

c) In erosion, as in fatigue, the condition 
of the surface is likely to be of considerable 
importance. 

d) Although erosion is the result of many 
failures, and some of the statistical scatter found in 
fatigue data may well average out in an erosion 
test, yet to obtain valid results (or results with 
calculable confidence limits) many more data points 
must be taken and many more replications must be 
run than have been done to date. Related to this is 


the need, often emphasized in this report, to 
establish accurately the erosion versus exposure 
curve, and to carry out all tests to the same degree 
of cumulative erosion damage if one wants to draw 
any quantitative comparisons. The amount of testing 
required and the validity of results should be opti- 
mized by proper statistical design of the experiment. 
This has seldom been done in erosion testing. 

A final suggestion to those generating erosion 
test data is that with the results they should give all 
the pertinent information — material identification 
and preparation, physical and mechanical properties, 
surface preparation, size and shape of specimen, 
area exposed to erosion, amount of water impinging, 
and if possible, the drop size or drop size distribu- 
tion, Impact velocity, etc., — necessary for com- 
puting the rationalized erosion and duration para- 
meters and making meaningful correlations between 
these and the impingement and material parameters. 

3.2 THE VARIATION OF EROSION RATE WITH 
EXPOSURE TIME* 

3.2.1 Observed Rate-Time Patterns 

The latest literature on the resistance of 
materials to impingement and cavitation erosion is 
concerned that the rate of material loss is not uni- 
form in time. While this has been noted for many 
year\ some of its consequences have only lately 
been emphasized. Thus, as Thiruvengadam and 
Preiser(50)have pointed out, the comparison of test 
results can be very misleading if not based on cor- 
responding phases of the rate-time curve; therefore, 
the rather common practice of the earlier literature* 
to test all specimens for the same length of time is 
subject to criticism. The authors of Reference 50 
proposed that characteristic erosion-time curves 
could be described in terms of four zones: an incu- 
bation zone with no weight loss, an accumulation 
zone with loss rate increasing to a peak, an attenu- 
ation zone with decreasing loss rater and finally, a 


* F. J. Heymanrv Senior Engineer, Development 
Engineering Department, Westinghouse Steam 
Divisions, Westinghouse Electric Corp., 

Lester, Pa. 
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steady-state zone with constant loss rate. 

Figure 3.2-1. They do not attempt any detailed 
explanation of these zones, but suggest that the 
first three zones are influenced by the initial con- 
dition of the surface and that only the final zone is 
truly characteristic of the material itself and that it 
should be used for comparison or correlation purposes. 
This particular suggestion is disputed by Plesset and 
Devine' 01 ', who showed photographically that in a 
magnetostrictive oscillator the attenuation zone is 
associated with a cavitation cloud of much reduced 
intensity, attributed to hydrodynamic damping effects 
due to the heavily roughened specimen surface. 
Moreover, the authors of Reference 51 stated that 
the accumulation zone and the attenuation zone 
are connected by a period of essentially uniform 
high loss rate persisting for some time, rather than 
by the narrow peak described by Reference 50, and 
that there is no real indication of any final steady- 
state zone. (See Figure 3.2-2.) Similar observations 
have been made bv a number of recent investigators. 

Thus, both Hobbs, ^^using a magnetostrictive 
oscillator cavitation test, and Pearson, (8/ 1 2) us ; n g 

a drop impingement erosion rig, have called the 
region of maximum erosion rate the ’’steady-state" 
period, and have based their correlations of erosion 
with material properties and test conditions (such as 
oscillation amplitude or impingement velocity) on 
this maximum loss rate. Both have associated the 
declining loss-rate of final period with heavy surface 
damage, as did Reference 51, and feel that it is not 
a practicable measure of the erosion resistance. This, 
for practical reasons, has also been the approach 
adopted in Section 3.1 of this report. 

All of the previously mentioned results 
exhibited what may be called the conventional 
pattern or some minor variation thereof. (For an 
actual example, see Figure 3.2-3.) However, there 
are erosion results which do not follow this pattern 
at all. Thus, Lichtman, etal,(^2) presented loss- 
time curves many of which exhibit no apparent 
incubation or acceleration stages, but rather begin 
with a maximum rate which declines thereafter 
(See Figure 3.2-4.) These results were obtained in a 
rotating disc cavitation device. 
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Figure 3.2-1 Characteristic Rate-Time Curve 
According to Thiruvengadam 


CHARACTERISTIC 



Figure 3. 2-2 Characteristic Rate-Time Curve 
According to Plesset, Hobbs, and Pearson 
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Figure 3.2-3 Typical Cumulative Erosion-Time 
Cur/es from Cavitation Tests, Adapted 
from Figure 7 of Reference 36. 
(Magnetostriction Device, 
in Distilled Water) 


Exactly the same type of result has been 
obtained in the spray impingement erosion test 
facility at the Westinghouse Steam Divisions 
Development Laboratory. Erosion rates invariably 
seem to begin at a maximum value and then decrease 
rapidly at first, and then more gradually leading into 
or approaching a lower steady-state value. Figure 
3.2-5 shows some characteristic erosion rate curves 
obtained by curve fitting through points obtained 
from several specimens for each material. One 
might suspect that incubation and acceleration stages 
lie in the region to the left of the curves as shown, 
and were simply missed because initial weight loss 
readings were generally not taken until after about 
two hours of exposure. To check this, the weight 
loss of one specimen - a titanium alloy of fairly 
good erosion resistance - was measured after five 
minutes of exposure and several more times during 
the first hour of testing. The result is shown in 
Figure 3.2-6 and suggests that the erosion rate does 
in fact begin at a maximum value, or, if there is an 



Figure 3.2-4 Cumulative Cavitation Erosion-Time 
Curves Which Begin at Maximum Rate, 
Adapted from Figure 24 of Reference 52. 
(Rotating Disc Device at 150 ft/sec) 



Figure 3.2-5 Typical Erosion Rate-Time Curve 
Obtained in Westinghouse Steam Division 
Spray Impingement Facility During 
1956-1959 
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Figure 3.2-6 Earl/ Loss Measurements for a Titanium 
( 6% A I, 4% V) Alloy Tested in the 
Westinghouse Steam Division Facility) 


incubation stage, it occurred within the first minute. 
The latter alternative is supported by the analytic 
model to be described. In all of the titanium speci- 
mens that were tested the erosion rate has continued 

to decrease for at least 30 hours. It may, however, 
be worth noting that ThiruvengadamC 2 ^) has shown 
the rotating disc to be the most intensive cavitation 
damage device, and that the Westinghouse test 
facility produces impingement of probably rather 
small droplets at a high velocity, probably exceeding 
2000 ft/sec. Thus, single-impact damage may be 
occurring in both cases, contributing to the de- 
emphasis or lack of an incubation period. 

The object of this section of the report is to 
show that a simple statistical model of the erosion 
process, which regards erosion as a multiplicity of 
fatigue failures, can predict characteristic rate- 
time curves of most observed types. Further, this 
section discusses some of the implications of this 
model in relation to the measurement and correlation 
problem. 


3.2.2 Effect of Material Removal Mechanisms 

on Rate-Time Pattern 

The spectrum of erosion mechanisms in a 
ductile material may be divided into several regimes 
as a function of impact intensify, or in the case of 
droplet impingement, as a function of impact veloc- 
ity if drop size is held constant. These regimes 
merge one into the other; there are no sudden tran- 
sitions between them. 

For very low velocities below some first 
threshold value, no measurable damage or material 
loss will occur during any practical exposure time, 
or material loss is confined to isolated weak spots. 
Such threshold velocities, empirically deduced from 
test or operating experience or arbitrarily derived 
from the endurance limit of the material by some 
safety factor, have been used as design guides in 
some phases of steam turbine and condenser design. 

It is not fully established whether there actually is 
a velocity below which erosion will never occur: 
Honegger( 2 ) doubted it; and Vater,( 25 ) who suggested 
that the dependence of erosion on velocity could be 
regarded and plotted analogously to the dependence 
of fatigue life on applied stress, regarded the erosion 
process as one somewhat similar to corrosion fatigue 

(in which there is no endurance limit). He, therefore, 
stated that the threshold velocity has to be defined 
as that velocity below which no measurable weight 
loss occurred after some specified number of impacts. 
In any case, one might say that in this first regime 
the erosiorv if any, corresponds to that In the incu- 
bation stage of the conventional rate-time pattern, 
i.e.. It will be low, possibly gradually increasing 
with some random fluctuation?, and will be highly 
influenced by the Initial surface conditions and by 
the possibility of simultaneous corrosion as shown 
by Wheeler. 

As the velocity exceeds the first threshold, 
something akin to fatigue failure becomes the 
predominant failure mechanism. Metallurgical 
observations substantiating this, and descriptions of 
the probable sequence of events leading to failure 
and the formation of loose fragments, have been 
provided by many investigators including Voter, ( 2 ^) 
von Schwartz, et al, Brunton,(^) and Marriott 

and Rowden.O?) 
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Some Investigators have found more plastic 
deformation in the surface than might be expected. 
Thus, Thomas^ ^ noted small plastic depressions in 
the surface during the early stages of exposure at 
velocities whose presumed impact pressures were 
less than the yield point of the material. Branden- 
berger and De Haller, 0) on the basis of extensive 
radiographic studies, concluded that fracture in 
erosion is neither like static fracture no like fatigue 
fracture^ but is accompanied by a degree of damage 
to the crystal structure which is intermediate between 
that associated with those failure modes. It must be 
remembered, though, that the stress-geometry con- 
dition - at least when the surface is still relatively 
smooth - is not of such a nature as to make static 
rupture easily possible: thus, the general regime of 
predominant fatigue or repeated-impact rupture will 
extend well into the velocity range where each 
drop could be expected to produce noticeable plas- 
tic deformation. As the velocity increases, the 
regions of plastic deformation presumably spread 
from the immediate vicinity of the fracture surface 
toward a general deformation of the eventually- 
produced erosion fragments. In this regime one may 
expect to find rate-time curves exhibiting the 
conventional patterrv i.e., an incubation stage 
related to the fact that a certain number of impacts 
are required before fatigue failures occur, an accel- 
eration stage, possibly a steady-state stage, an 
attenuation stage, and possibly a final steady-state 
stager though probably no generalizations should be 
made about the behavior when gross surface damage 
has set in. The possibility of relating these phases 
in the erosion rate-time curve more specifically to 
the fatigue properties of the material will be ex- 
plored in the following sections of this report. 

A second threshold velocity may be 
associated with that velocity at which the material 
loss due to single-impact damage process becomes 
significant. This is probably related to the visible 
damage threshold described by DeCorso and 
Kothmann, (24,43) a bove which a single impact 
[eaves a distinct crater in a smooth material surface. 
This regime eventually must merge into the regime 
of hypervelocity impact. The exact determination 
of the second threshold velocity from the point of 
view of material removal is difficult, because in 


single-impact experiments - such as those performed 
by DeCorso, and also by BruntorvO®) Engel (39/40) 
and others - the actual amount of material removed 
from the surface could not be reliably established, 
although crater depths or crater profiles were 
measured. From two curves given in Reference 56, 
one can deduce that for hypervelocity impact of 
1/16 inch diameter aluminum spheres on an aluminum 
surface, the ratio of target volume loss to crater 
volume is approximately 0.15 at a velocity of 
7 knysec (23,000 ft/sec), reducing to about 0.09 at 
4 knysec (13,000 ft/sec). One may cautiously infer 
from this that at the velocities of interest, say 
1000-4000 ft/sec, the corresponding ratio will be 
very much smaller yet. (This inference should be 
valid qualitatively although the actual material 
removal mechanism in the hypervelocity regime is 
a liquid-like flow of the target material accompa- 
nied with some splashing out, whereas that in the 
regime of interest is related to the shear effect of 
radial outflow.) Of course^ this must be balanced 
by the fact that such loss occurs with each impinging 
drop,whereas many repeated impacts over some finite 
area are required to generate one erosion fragment 
by the fatigue failure mechanism. For any quanti- 
tative estimate of the relative significance of the 
two mechanisms, more data are needed on each. 


Qualitatively, one may say that as single- 
impact erosion becomes significant, the incubation 
period can no longer be a zero-weight loss period, 
but rather will begin by exhibiting an erosion rate 
corresponding to the single-impact erosion. This 
rate increases in time as additional fatigue-type 
erosion sets in. Fatigue in this instance probably 
corresponds more to low-cycle fatigue due to strain 
cycling than to high-cycle fatigue due to stress- 
cycling. The geometry of the eroded surface will 
now be affected by the heavy plastic deformation 
due to each drop as well as the breaking away of 
larger erosion fragments due to fatigue fractures. 
Eventually, as single-impact erosion becomes the 
predominant mechanisrtv one would expect to find 
little or no evidence of any incubation period, and 
the surface geometry should rapidly approach a 
steady-state condition, so that one might expect 
relatively little change of erosion rate with time. 


3-36 



3.2.3 An Analytic Model of the Erosion Rate-Time 

Relationship 

3.2.3. 1 Qualitative Description of Proposed 
Model 

As seen in the previous section, the con- 
ventional erosion-rate versus time pattern is that 
associated with a predominant fatigue mechanism 
for material removal. It is in this regime that most 
of the test data and the practical experience lie. 

As is well known, fatigue is intrinsically a statistical 
process exhibiting a considerable scatter, and this 
fact will be utilized in developing an analytical 
model for the erosion rate-time pattern applicable 
to this regime. The qualitative results have inter- 
esting implications with reference to the previously 

reviewed findings and to previously-attempted 
correlations between erosion and fatigue data. The 
approach to be described, though numerical in na- 
ture, can at this time predict no more than qualita- 
tive trends and should be considered as exploratory. 


The basic reasoning of the model is as 

follows: 

It is assumed that each small element of 
surface is subjected to an impact fatigue environ- 
ment and that after a certain time (i.e., a certain 
number of impacts) it will be detached from the 
surface as an erosion fragment, due to sub-surface 
fatigue failure. The time-to-failure distribution 
function for these newly-exposed surfaces will 
probably not be the same as that for the original 
surface. Unlike the original surface the newly- 
exposed surfaces will have been subjected to some 
sub-surface stress condition even before being ex- 
posed to direct impingement, and the surface geom- 
etry will no longer be a plane but a series of pits. 
Further, it is assumed that when many such surface 
elements are considered, the individual times re- 
quired for their removal would be described by some 
statistical distribution function, much as the number 
of cycles to failure of a large number of fatigue 
specimens (stressed to the same level) can be de- 
scribed by a distribution function. When erosion 


fragments are removed and expose fresh surface to 
impingement attack, the time to remove elements 
of this new surface will likewise be described by a 
distribution function, and so on. 

In the case of conventional fatigue 
specimens, the distribution occurs primarily as a 
result of the statistical nature of the fatigue process 
itself. In the case of erosion fragments it must 
ultimately reflect the variations in the concentration 
and the severity of impacts (i.e., droplet velocities 
and sizes), variations in the local surface geometry 
and properties, and variations in the size of frag- 
ments formed. At present, however, one arbitrary 
distribution curve is assumed to represent all of 
these sources of scatter. 

Qualitatively, it can be seen that if these 
distributions had very little scatter or dispersion, 
i.e., if the lifetimes of all surface elements were 
about equal, then the erosion rate would be zero 
until that lifetime was reached; at this instant a 
very high rate would be exhibited while all of the 
original surface flaked off, to be followed by 
another interval of zero rate until the second 
layer flaked off, etc. 

If, however, these distributions have a 
significant dispersiorv one can predict that this will 
result in a rate-time curve which up to a first peak 
looks somewhat like the distribution curves but in 
which subsequent peaks and valleys are attenuated 
and a steady-state rate is approached. An incuba- 
tion period will exist if the dispersion is not exces- 
sive. One might think of the variation in the surface 
element lifetimes as dispersing the periodicity asso- 
ciated with one layer being removed after another. 

The preliminary mathematical formulation 
and computer program considered one distribution 

function applicable to the original surface^ and one 
other applicable to each of the subsequently exposed 
surfaces. Both were specified as normal distributions 
truncated and normalized over a finite time span. 

Thus the significant input parameters were the nom- 
inal mean lifetime (Mp) and standard deviation (<rp) 
for the original surface, and the corresponding values 
(Mq and <tq) for the undersurfaces. Figure 3.2-7 
shows some rate-time curves obtained by this program. 
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with the distribution parameters as indicated. Note 
that the attaining of a steady-state rate is hastened 
both by increasing the dispersion of the functions, 
and by specifying a shorter mean lifetime for the 
undersurfaces as compared to the original surface. 

Fluctuations such as shown in Figure 3.2-7 
have occasionally been observed, as illustrated by 
Figure 3.2-8 which shows rate-time curves computed 
from experimental cumulative erosion curves presented 
by Kent. ( 57 ) Moreover, fluctuations which would 
appear quite prominent in rate-time curves are not 
nearly as evident if the same data are plotted as cumu- 
lative erosion versus time - which is how the data are 
actual ly obtained. Therefore, it seems quite conceiv- 
able that in many cases such fluctuations would barely 
have been noted and would have been smoothed out of 
the raw data, or might have been lost entirely through 
the data points being too far apart in time. 

The fluctuations, however, are by no means 
an inevitable consequence of this model if non- 
symmetricai distribution functions are used, as will be 
seen in the results obtained from the elaborated for- 
mulation of the model, described below. 


3.2. 3.2 Description and Results of 
Elaborated Model 

In the elaborated analysis we have chosen 
to use log-normal distribution functions, since — 
as shown by References 58 and 59 — these provide 
a reasonable representation of fatigue life data. 

For added flexibility one can adopt a delayed log- 
normal, i.e., one which would appear as a normal 
distribution if the frequency of failures were plotted 
versus log (t-T 0 ), where T 0 represents a delay time 
introduced to ensure that no failures occur prior to 
time t = T c . 

The distribution, when plotted on a log]g 
scale* is then described by its mean (m) and its 
standard deviation (a). But one must use the dis- 
tribution as transformed onto arithmetic or real-time 
scales. An important point to note is that while in a 
symmetrical distribution the mean, median, and mode 
values coincide, that is not true for a skew distribu- 
tion such as the log-normal. The real-time values 
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Figure 3.2-7 Typical Computed Erosion Rate-Time 
Curves From Preliminary Statistical Model, 
Using Normal Distribution Functions 




Figure 3.2-8 Experimental Erosion Rate-Time Curves, 
Computed from Cumulative Erosion Curves 
Given in Reference 32 
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corresponding to m, which is denoted by T m = 10 m , 
establishes the median value of the log-normal dis- 
tribution — i.e., that value of t at which half of 
the specimens (or surface elements) will have failed. 
This is the value generally used to establish a point 
of an engineering S-N curve. In the delayed log- 
normal, the median value is given by M = T 0 + T m . 
The mode, or peak in the distribution curves, will 
occur at a time value less than M. The mean valuer 
or arithmetic average of all life-times, will occur at 
a time value qreater than M, or specifically at a time 
E = T 0 + T m x I01-15' 2 . For puiposes of discussion, 
all distributions can be characterized by their values 
of Tq, ct, and either M or E. 

The elaborated model permits the specify- 
ing of a different distribution function for each level 
below the original surface, and of two different 
functions for the original surface: one for the 
unaffected surface, in which erosion takes place by 
the initiation of new pits, and one for the affected 
surface, which is that surrounding existing pits and 
in which erosion is presumed to take place by the 
lateral growth of these pits. The program computes 
the rate of erosion, the cumulative erosion, and the 
exposed area at each level, from which in turn, it 
can compute an average surface roughness at selected 
time points. 

The number of variations which could be 
investigated with this program is unlimited, and all 
that can be demonstrated here are some of the im- 
portant effects, The most significant of these is the 
effect of the dispersion parameter a . References 49 
and 59 suggest that in conventional fatigue tests, 
a , on a log^Q scale, ranges approximately from 
0ol5 to 0.40, and for erosion fragment lifetimes even 
higher dispersions may be expected. Figure 3,2-9 
shows computed erosion time, curves for various val- 
ues of a from 0.15 to 080, with the median (M) held 
constant; Figure 3.2-10 shows a corresponding set of 
curves with the mean (E) held constant. In each 
case T 0 = 0, and the same distribution is assumed for 
all surfaces and levels. Since in such cases the 
eventual steady-state erosion rate must be propor- 
tional to the reciprocal of the mean lifetime, all 
curves in Figure 3.2-10 approach the same steady- 
state rate. 
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Figure 3.2-9 Computed Rate-Time Curves Based on 
Log-Normal Distributions, Showing Effect of 
Varying Dispersion, o , with Median at 
Constant, M= 1.0 
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Figure 3.2-10 Computed Curves Based on Log-Normal 
Distributions, Showing Effect of Varying Dispersion, 
a, with Mean at Constant, E = 1.0 


Two striking results appear from these 
curves: First, the maximum erosion rates vary con- 
siderably. Second, almost all of the experimentally- 
found rate-time patterns can be at least qualitatively 
generated by proper choice of the dispersion para- 
meter cr. When cr is small, the curves exhibit damped 
fluctuations similar to those of Figure 3.2-7, When 
<r is increase^ the fluctuations die out and the 
steady-state rate is attained quite quickly. When 
a is further increased, a single peak appears in the 
curves and at very high values of o this peak may 
occur so early that the time resolution is just not 
fine enough to show the acceleration stage of the 
rate-time curve, and the curve therefore appears to 
begin at its maximum value. The same is probably 
true for experimental data like that of Figures 3.2-4, 

5 and 6. It does not seem unreasonable to suppose 
that erosion due to very small droplets, where each 
impact stresses only a minute portion of the surface 
area, would be characterized by a high dispersion 
in the fragment lifetimes. 

In many of the curves of Figures 3.2-9 and 
10 the ratio of the erosion peak to the expected 
steady-state value is not as great as sometimes found 
in practice — but it should be recognized that at 
times values greater than the mediarv the surface has 

suffered heavy erosion damage and one may there- 
fore expect that geometric effects, such as suggested 
by References 2, 8, and 51, may have set in by this 
time and have caused an additional diminution of 
the erosion rate and possibly suppression of further 
fluctuations. Certainly one would expect the re- 
sults predicted by this analysis to be at least mod- 
ified by the geometric effects. Thus, Figures 3,2-9 
and 3,2-10 may correspond to experimental results 
of the type of Figures 3.2-1 and Figures 3.2-9 and 
3.2-10 to results of the type of Figure 3.2-2. It is 
possible^ however, that some appropriate combina- 
tion of distribution functions for the different surfaces 
could result in a plateau such as in Figure 3.2-2, 
which then again would not correspond to a steady- 
state value. 






Figure 3.2-11 shows an example of slowing 
down the loss rate from the unaffected surface as 
compared to that of all other surfaces — which are 
presumed to be more susceptible to erosion because 
of the irregular geometry. This case is identical to 
that of Figure 3.2-9 except that for the unaffected 
surface the median lifetime has been increased to 
3.0. Note that the shape of the rate curve has been 
made more similar to that typified by Figure 3.2-1; 
the cumulative loss rate is also shown and is quite 
similar to typical curves such as Figure 3.2-3. 



Figure 3.2-11 Effect of Higher Median Value for 
" Unaffected " Surface ( = 3. 0 ) 

than for Other Surfaces ( M = 1,0). 
(Compare with Figure 3 2-9 
Note Difference in 
Vertical Scale) 



Figure 3.2-12 Examples of Computed "Surface Profile" 
Curves (Showing the Uneroded Area as a Function of Level 
Below the Original Surface, at Various. Values of Time: 

(a) - Corresponding to Figure 3,2-9 

(b) - Corresponding to Figure 3.2-11 

(c) - Corresponding to Figure 3-2-10 

in the other two cases which represent high disper- 
sion values (a = 0„8). This suggests that the geo- 
metric effects which tend to reduce the erosion 
rate — i,e., those due to high roughness — are 
delayed in the former case; this may explain why 
the maximum erosion rate in such a case may persist 
for some time and give rise to rate curves typified 
by Figure 3.2-2. Figure 3.2-13 shows the computed 
surface roughness versus computed mean depth of 
penetration^ for the same three cases, confirming the 
lower roughness associated with a lower dispersion 
value. 


Figure 3.2-12 shows surface profile curves, at 
various values of time T, for some of the previous 
cases. The ordinates indicate the surface level, 
with 0 representing the original surface. The ab- 
scissas represent the area not yet eroded away at 
each level. The difference in abscissa between 
adjacent levels represents the area exposed at the 
lower of the two levels. Note that in Figure 3,2-12, 

a case of low dispersion value («”= 0.25), the ero- 
sion is shallower and more evenly distributed than 


3. 2. 3,3 Discussion and Conclusions 

Now to examine the implications of this model 
with respect to correlations of incubation times and 
erosion rates. Since the incubation time seems re- 
lated to the fatigue nature of erosion, several inves- 
tigators have attempted correlations reflecting this. 
Thus,Leith and Thompson^) correlated the incu- 
bation times of several materials with the corrosion 
fatigue limit for 10^ cycles of these materials. 
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MEAN DEPTH OF PENETRATION 
CONSISTENT ARBITRARY UNITS 


Figure 3.2-13 Computed rms Surface Roughness versus 
Mean Depth of Penetration (Cumulative Erosion) 
for Figure 3,2-12. The letters (a) (b) and (c) 
Correspond to the Similarly- Designated 
Cases in Figure 3 # 2-1 2 

Mathieson and Hobbs(^) made a similar correlation 
with the conventional endurance limit for several 
aluminum alloys. In both cases the results were 
reasonably consistent, but the approach is hardly 
logical since the incubation time in erosion surely 
should be related to a finite-lifetime to failure, 
rather than to a stress value at which no failure 
occurs. Thus, the success of these correlations 
depended on a second, implicit correlation between 
the finite fatigue lives at the test stress, and the 
endurance limits valid for the group of materials 
compared. Ripken, et al,{37) have used a more 
logical approach, and have correlated the number 
of impacts corresponding to the incubation time at 
a given impact velocity, with the number of cycles 
to failure in bending fatigue at an equivalent stress 
level. The stress level was assumed to be given by 
the waterhammer pressure ( p CV). The incubation 
period was defined by the intercept, on the time 
axis of the cumulative weight loss curve, of the 
straight line approximating the high erosion rate 
stage. 

If the previously developed model is valid, 
this procedure is still not quite correct. The statis- 
tical model implies that the apparent incubation 
period depends not only on the mean lifetime of the 
erosion fragments but also on the scatter or disper- 
sion in these lifetimes. The erosion-rate becomes 
non-zero when the first element fails, and continues 


to increase until approximately the mode or most 
probable value of the lifetime is reached on the top 
surface. But it is the mean value — which may 
occur later yet if the distribution is skewed — which 
corresponds to the nominal lifetime at the appro- 
priate stress as obtained from a conventional S-N 
fatigue curve. Whether either the median lifetime 
or the associated scatter in erosion fragments cor- 
responds to that of full-scale bending or pul I -type 
fatigue specimens is at present a moot question. 
However, the discrepancies in the correlations of 
Reference 37 are in the direction which the above 
argument would predict. 


If one stipulates a steady-state erosion process, 
then the erosion rate would certainly be inversely 
proportional to the mean lifetime of erosion frag- 
ments (provided their size distribution remained 
constant). This is the basis from which one can 
draw the analogy between the (loss rate)“^ versus 
impact velocity in erosion, and cycles to failure 
versus stress level in fatigue, as proposed by 
Reference 25. This appears to provide a rational 
basis for attempting to predict an erosion-speed 
relationship on the basis of known fatigue data for 
the material, although to our knowledge this attempt 
has not been made. But here, agair> the statistical 
model suggests that the obvious approach is not 
quite correct. It implies that the maximum erosion 
rate — which many investigators have linearized 
and used in correlations, for good and valid prac- 
tical reasons — does not necessarily represent a 
steady-state erosion process at all, but rather the 
deluge of erosion fragments from the top surface 
layer which takes place in the vicinity of the most 
probable fragment lifetime from the beginning of 
exposure. Thus again, the maximum instantaneous 
erosion rate is not merely a function of the average 
fatigue life of the surface elements but also of the 
scatter in lifetimes. Consequently, any external or 
internal effect which influences that scatter will 
influence the maximum erosion rate, even though 
it may not affect the eventual hypothetical steady- 
state rate. 
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Finally, what can this model contribute toward 
the resolution of the dispute referred to in Section 
3.2,1. First, it implies that Reference 50 is correct 
in claiming that the erosion rates during the stages 
encompassing the first peak in the rate-time curve 
are not characteristic merely of the material under 
test, since the shape of this curve depends on the, 
shape of distribution functions whicl> in turn, de- 
pends in part on characteristics of the test method 
such as the distribution of bubble or droplet sizes, 
etc. Secondly, it implies that while the erosion 
rate would, in the absence of other influences tend 
toward a steady-state value as postulated by Refer- 
ence 50, this generally occurs only after most of the 
original surface has eroded away, by which time the 
surface damage will be so severe as to make the 
erosion conditions susceptible to geometry effects 
such as described in Reference 51. In short, the 
instantaneous erosion rate may never be character- 
istic of only the material, and for valid correlations 
it will become necessary to standardize the test 
method very carefully, or to use properly chosen 
cumulative erosion measurements, such as the time 
required to attain some specified value of the ration- 
alized erosion (MDP) of practical significance. 

3.2.4 Mathematical Formulation of Model 


Equation 22 may be further generalized by 
stating that the loss rate from an area A], first ex- 
posed to erosion at time t = T], is thereafter given 
by 

W = f H,) (23) 

Let us now consider the original or top 
surface of a body exposed to erosion. One may 
take its area to be unity, and every portion of its 
area is simultaneously exposed to erosion at time 
t = 0. Thus f (t) adequately describes the loss rate 

from the top surface. As surface area is eroded, 
or lost from the top surface an equal area is created 
or exposed at the second level located at distance 
h below the surface, where h is assumed as the 
thickness of erosion fragments. For convenience, 
the thickness h will also be assigned a numerical 
value of unity on some appropriate scale. In turn, 
the second level surface will be eroded to expose 
a third level surface and so on. But in computing 
the actual loss rates from all of the undersurfaces 
one must recognize that the lifetimes of surface 
elements must be measured from the time they were 
first exposed, and the total loss rate from all surface 
elements which were first exposed during a time 
increment dT at time T depends on the total area 
which was first exposed during that time interval. 


3.2.4.1 First Simplified Formulation 

Let any surface exposed to erosion be 
thought of as consisting of elementary areas (or 
volumes* if their thickness is considered) whose 
lifetimes under the erosion attack can be described 
by a normalized distribution function f (t). Thus by 
definition 

f f (0 dt = 1.0 (21) 

J oo 

and the distribution function for a specific area A, 
exposed to erosion from time t = 0, is therefore 


Since a surface element is lost from the surface when 
its lifetime is reached. Equation 22 can equally 
well be regarded as a loss rate function for the area 

A. 


Let Y(t) be the total rate of erosiorv from 
all levels, at time t. This is what one desired to 
compute. But Y(t) is also equal to the rate at which 
new surface area is exposed, at all levels below the 
top surface; at time t. (Strictly speaking; it is pro- 
portional to it, but with h = 1.0 it is numerically 
equal.) 

Thus, the total surface area first exposed 
during increment dT at time T, is Y(T) dT, and the 
loss rate from this area at time t is, by Equation 23, 

F t (t) - F (t-T) Y(T) dT (24) 

The total loss rate at time t, from all undersurfaces, 
is composed of contributions from all undersurface 
areas first exposed during all time increments from 
T = 0 to T = t, or 

t 

f (t-T) Y(T) dT 



3-43 



The total loss rate or erosion rate, Y(t), is the sum 
of that from the top surface and that contributed 
by all undersurfaces, or 

t 


f (25) 

V (t) = f(t) + I f(t-T) Y(T) dT 

The fact that the contributions from the undersurfaces 
and from the top surface form two distinct terms in 
Equation 25 makes it convenient to assign a different 
distribution function for the top surfaces as compared 
to all undersurfaces. This is desirable if one wants 
to reflect the fact that the tip surface has, in many 
o different nature and history than the under 
surfaces exposed as a result of erosion. Finally, 
one can state 


Y(t) = f(t) 



g(t-T) Y (T) dT 


(26) 


where 


f(t) = distribution function for top surface 
g(t) = distribution function for undersurfaces 


It is worth noting that Equation 26 is a 
well-known integral equation having a convolution 
integral as its last term. A Laplace transformation 
yields 


3.2.4.2 Formulation of Elaborated Model 

In further explorations of this approach, 
it is desirable not only to keep track of the area 
exposed at each level as a function of time, so that 
an average surface profile or surface roughness can 
be computed, but it also may be desirable to assign 
different distribution functions for all levels. An 
analytical continuity approach to this becomes very 
cumbersome, and since the final evaluation is in 
any case a numerical one by computer, it becomes 
advantageous to develop the model as a step-wise 
process in time, and to have the computer program 
compute the processes occurring in each time inter- 
val, one after the other. In a sense, the computer 
program becomes a digitalized analog of the physical 
process. 


The crux of the approach is that the pro- 
gram maintains, and up-dates for each time interval, 
the array S|^, j, in which each value represents the 
surface area presently existing at level L and dating 
back to time interval J during which it was first 
exposed as a result of loss from the next-higher 
level. Thus the total surface area presently existing 
at level L would be given by 


y(s) = f(s) + g(s) y(s) 


By ordinary algebra 



This solution may be useful if Equation 26 has 
Laplace transform and Equation 27 has an easy 
Inverse transform. Ordinarily, numerical methods 
are required. 

For the initial explorations Equation 26 
was computer-programmed directly, using normal 
distributions for functions f(t) and g(t), normalized 
over specified time spans rather than between the 
limits of plus and minus infinity as suggested by 
Equation 21. 


£ Sl, J, where N is the present time Interval 

J = 1 

at which the evaluating is being done. 


Let us now define a modified rate or 
quotient function q (t), which represents the loss 
rate as a proportion of the remaining area at time t. 
In terms of the previously used distribution function 
f(t), this is i v f(t) 

q (t) = 

1,0 - 



For computation purposes the continuous function 
q (t) is replaced by a loss quotient Ql representing 
the finite amount of loss during the 1™ time interval 
after the surface has first been exposed. This can be 
represented by 


Q ( = q (I At) At 
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where At is the length of a time interval. The pro- 
gram computes and stores all values of Q|_, |, 
where the additional subscript L refers to the level; 
thus a different distribution function f(t) can be 
specified for each level. 

The total erosion from all levels during 
time interval N, Y N/ then composed of all 

contributions of the type 

R u j = S u J Q 4 N-J (3°) 

where R|_ j represents the loss rate from that area 
at level which was first created during time inter- 
val J. The totaf erosion rate is therefore approxi- 
mated by 

M N-T 

Y N = Sf hl Z] R ^ J ( 31 ) 

L= L J = 1 

At 

where h|_ = thickness of erosion fragments lost 
from the L^ 1 level 

M = total number of levels considered 


Using the Rl, J values computed from the j 
array which was valid for the beginning of the 
time interval, one can readily compute the 
new values of $[_^ J which are valid for the end of 
the N 1 * 1 interval, i.e., for the beginning of the 
(N + 1 ) th interval : 



for all values of J < N, and 


■ V 


N-l 

S L, N 

N+l 

£ R L-1 j 

J = 1 L ' J 


(32b) 


for J = N. 


The manner in which the cumulative 
erosion, surface profile and surface roughness can 
be computed from the above-mentioned quantities 
is straightforward. 


The log-normal frequency distribution 
function as programmed is of the form 

n ° g e (, - T o ) -'"] 2 


m- 


r(t- T ) >J2T 


exp 


2a 


(33) 


This function has the following properties: 


The mean, or expected value, is 

E = T + e m + (,/2 ^ 2 

o 

The median value is 

M = T + e m 


(34) 

(35) 


The mode, or most probable value, is 


P 


T 

o 


+ e 


(36) 


The input may be prescribed in terms of T^ m,and 
(j directly; the latter two may also be prescribed in 
terms of the equivalent logarithms to base 10, or in 
terms of the equivalent real-time quantities T m = e m 
and R = e a . 


3.2.4.3 Discrete Pit Formation and 
"Affected" Surface 

In order to model the probable progress of 
erosion damage more faithfully, a further elabora- 
tion has been introduced for the top surface only. 
This is based on the observation that erosion tends 
to proceed by the formation and growth of discrete 
pi ts — which may extend to a considerable depth 
while the adjacent top surface is still intact - rather 
than by a randomly-distributed depth. 

To approach this condition, the top surface 
is considered as consisting of two kinds of surface: 
affected areas and unaffected areas. Affected areas 
are defined as those areas of the top surface imme- 
diately surrounding existing erosion pits, whose 
resistance to erosion may be assumed to be influ- 
enced by this fact. Therefore, one distribution 
function, f a (t), is provided for the affected area, 
and another, fu(t) for the unaffected area which is 
the remainder of the still existing top surface. (In 
general one would suppose that f a is such as to re- 
sult in more rapid erosion than fy, but the program 
does not make this a requirement.) The actual 
amount of area considered as affected is computed 
as follows: Let w be a characteristic dimension of 
erosion fragments which must be prescribed in the 
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program input. Then the affected area A a associated 
with a pit of surface area Ap is defined as the area 
of an annulus of width w surrounding a circle of 
area A , In other words, all of the potential erosion 
fragmeRts bounding upon an existing pit are consid- 
ered affected area. To carry this calculation 
through/! t is necessary to know the number and 
size distribution of all pits. This is done as follows: 
During any time Interval H the loss from the exist- 
ing unaffected surface, based on the f y distribution 
functiorv is divided into an integral number of 
values Aq (where A Q is the area of a circle of diam- 
eter w). Thus a known number of new pits — all of 
area Aq — are said to be initiated. For the sub- 
sequent time interval, the new pits are assigned 
their annulus of affected area. Further enlargement 
of each of this generation of pits takes place by 
erosion from the affected area surrounding it, re- 
quiring the transformation of additional surrounding 
area to maintain the previously specifiec relation- 
ship between affected area and pit area. Thus, the 
number and present size of each generation of pits, 
and extent of affected area surrounding them, can 
be established and updated. 


The rate of loss from the affected areas is 
based on the f Q distribution function, but not in a 
simple manner* Let us for the moment talk in terms 
of the continuous functions, though the actual 
calculations are carried through in terms of step- 
wise loss quotients* Consider an area which existed 
as unaffected area until time Ty, at which time it 
becomes transformed into affected area* Up until 
Ty the loss from this area was governed by f y ; 
henceforth, it is to be governed by f . Upon reflection 
it can be seen that our purpose would not be served 
in any realistic way by simply saying that at t = Ty 
the loss rate jumps from f y (Ty) to f a (Ty), and 
henceforth is given by f a \t) e (In an extreme case, 
f Q (t) may represent such rapid erosion that Ty is well 
beyond the mean or mode value and f Q (Ty ) is already 
sensibly zero* Thus no further erosion, rather than 
more rapid erosion, would result from this switch 0 ) 

A wholly rigorous approach would have to be based 
on cumulative fatigue damage theory, but a device 
which is adequate for our purpose is to require that 
the f a distribution function be entered at an effective 
time T £, such that the cumulative loss due to f a at 
Tg is equal to the cumulative loss due to f y at Ty, or 


> ? 

I f a (T)dT = ) f ^ dT 


(37) 


If T^ is defined by Equation 37, then the 
loss rate from the area under consideration, at any 
time t subsequent to t = Ty, is given by f Q (t - Ty + T^). 
This device will at least ensure that if a given area 
is transformed at any time Ty whatever, then 100 
percent of it — no more and no less — will have 
been lost at time t = • , which is the minimum 
logical requirement of any realistic approach. For 
some types of distribution functions, it is possible 
to express T^ in terms of Ty and the function constants* 
Thus, for the simple case of formalized) exponential 
functions, where 


f u« 


p e u and f (f) = p e a 
u a r a 


It is easy to show that 


t e ■ \ <" A> 

An analytical expression can also be obtained for 
the log-normal distribution, but in many other cases, 
including the normal distribution, T^ would have to 
be computed by trial-and-error procedures from the 
relationship of Equation 37. 


A consequence of this approach is that not 
only must the total affected area associated with 
each generation of pits be known, but so must each 
generation of affected area, since the rate of loss 
from any portion of the affected area depends on 
when it had been transformed from the unaffected 
to affected status* The number of pertinent com- 
putations required during the time interval Is 
therefore N , and the number of memory locations 
required for the affected area array is where 
M is the maximum number of time intervals to be 
computed. This is a compelling argument for making 
M reasonably small (100 In our program), which 
makes for a rather coarser time grid than one would 
otherwise desire. 

The details of the computation method 
would require too much space to present here, but 
are generally analogous to the method described 
for the undersurfaces by Equations 30 through 32. 
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It should be emphasized merely that the concept 
of erosion by discrete particles of specified size is 
applied only to the initiation of new pits in the 
unaffected surface, and that the loss rates from the 
second and lower layers do not concern themselves 
with whether the second layer surface was exposed 
as a result of loss from unaffected or affected surface. 
This distinction is only made for the loss rates from 
the top surface itself. 

The program in its present form has provision 
for using either log-normal distributions (to represent 
fatigue damage), or exponential distributions (to 
represent single-impact damage). 

3.3 HYDRODYNAMIC MODEL OF CORRELATION 
OF METAL REMOVAL RATES FROM 
REPETITIVE DROP IMPACT * 


3.3.1 Background 

This section establishes numerical relation- 
ships between materials properties and the external 
variables and drop impingement loss rates. This is 
done through the use of a hydrodynamic model of 
correlation of metal removal rates from repetitive 
drop impacts applied to empirical information. This 
empirical information is that on metal removal by 
water drops impacting on steam turbine blade 
materials made available by the Central Electricity. 
Generating Board (CEGB) of the United Kingdon 9 ' . 


The CEGB results are from multiple impact 
tests. In these tests, samples of metals to be eroded 
are mounted around the rim of a wheel. Once each 
revolution of the wheel, each sample intersects a 
curtain of water drops of relatively uniform size at 
a known relative velocity. It seems likely that 
after a small number of impacts the water wets the 
sample and a film of water develops on the surface. 
In principle, this can change the maximum impact 
pressure and duration of impact from that resulting 
from the impact of a water drop on a dry surface. 


* W. D. Pouchot, Advisory Engineer, Systems and 
Technology Dept., Astronuclear Laboratory, 
Westinghouse Electric Corp, 


Many have objected to this hypothesis on 
the basis that this is contrary to their experience with 
splashing water. They say splashing water does not 
form thin films, it runs from surfaces as drops or 
rivulets. However, this drop-rivulet behavior is 
probably true for contaminated surfaces. The con- 
taminated surface is the type ordinarily seen, even 
if the contamination is only from fingerprints. In 
this connection it has been pointed out, to the 
author, by A. P. Fraas' 6 that it is next to impossible 
to maintain dropwise-condensation in condensing 
water systems for useful lengths of times. The 
scrubbing action of the condensing water removes 
the surface contaminants and the process changes 
from drop-type condensation to film condensation. The 
scrubbing should be even more thorough in a 
repetitive drop impact situation. Therefore, obser- 
vation of water runoff from casually prepared fresh 
surfaces is likely to be completely misleading as to 
the nature of this runoff after many impacts. 

The basic approach used is that of dimensional 
analysis. The virtue of dimensionless analysis is Its 
mathematical simplicity. The drawback is that its 
use to correlate data is valid only where it is reason- 
ably sure the data exhibit similitude over the range 
of the data and the pertinent variables are known. 

In the area of drop impact erosion there is 
very little in the way of established definitions, 
conventions, or theories by which conditions of 
similitude or selection of pertinent variables can be 
established. For this reason, the bulk of this section 
is concerned with establishing a reasonable presumption 
that the variables selected are the pertinent ones and 
that a condition of similitude exists between the 
correlated data. 


3.3.2 Review of Some Observations on Drop Impact 

Material Removal 

3.3.2, 1 Single Impact Removal 

As has been pointed out by several inves- 
tigators(^4, 65), there are at least two mechanisms 
of material removal operative during single liquid 
impact on metal surfaces. The first of these is the 
loss of material as the direct result of a hammer 
blow of a liquid drop or jet on the solid surface. The 
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second is that small projections of metal are removed 
by the fluid squirting out of the region of liquid 
compression created and maintained momentarily by 
the liquid-solid impact. For the first of these 
mechanisms, at least for single impact damage, there 
is much evidence thaf the extent of the damage is 
directly proportional to the size of the drop or jet 
causing the damage (64, 66) # Jhere j s more limited 
evidence that the same is true for single-impact 
lateral outflow damage^ as well. It may be 
concluded from experimental evidence, that the 
damage done by single liquid impacts on dry metal 
surfaces is proportionally the same and 

large drops. De Corso and Kothman' oc? ' in reporting 
results of their single-impact tests conclude that 
larger jets require a lower impact velocity than 
smaller jets to cause visible damage. Their data 
were taken at velocities greatly above a visibility 
threshold. The data also have a large scatter. 
Extrapolation of this data back to a visible threshold 
is a very doubtful procedure. In at least one of these 
cases such extrapolation will lead to a conclusion 
opposite to the one drawn. 


• A General Description After 
Hancox and Brunton^^ 

With multiple impact metal removal as with 
single impact metal material removal, there is loss 
of material as a result of the lateral flow of liquid 
along the surface of the liquid compressed by the 
primary impact. Paraphrasing Hancox and Brunton, 
erosion of metals begins with a roughening of the 
surface due to the appearance of small surface 
depressions and tilted grains. The larger projections 
in the roughened surface are later sheared by the 
flow to give surface pits. The pits grow and erosion 
continues either by a ductile tearing action or by 
the propagation of brittle fractures from the bottom 
of the pits. The erosion of metals depends entirely 
on the initial formation of small regions of plastic 
deformation. If a metal surface can be kept smooth 
by preventing roughening due to depressions and 
grain boundaries, then erosive action due to outward 
flow cannot take place. It seems, however, that in 
plastically deforming materials a few areas can be 
deformed at stress levels considerably below the 
average flow stress. As soon as this happens, the 


change in the shape of the surface leads to stress 
concentration at projections and depressions, the 
impact stresses increase, and ductile or brittle 
fracture brings about erosion. The final stage of 
erosion in metals is the growth of pits throughout 
the specimen — a stage which is accompanied by 
appreciable weight loss. In metals prone to brittle 
fracture there is the formation of a network of cracks 
which fan out from the initial pits. With more ductile 
metal erosion proceeds by shear fractures in the 
metal around the pits. 

The author interprets these preceding state- 
ments of Hancox and Brunton as saying that (1) the 
initial deformations which lead to erosion are caused 
by the primary impact of the drops working on weak 
spots in the surface, but (2) the major source of actual 
material removal is the secondary impacts from the 
outflow liquid working on the deformations produced 
by the primary impact, 

• The Stages of Erosion as Defined by 

Pearson 

Usually there are several stages of erosion 
evidenced in multiple impact erosion tests carried 
out at constant liquid impingement rates, impinging 
drop diameter, and normal velocity of impingement. 
These are illustrated in Figure 3,3-1 and are as 
follows: (1) an incubation period during which the 
surface is deformed but there is no metal loss from 
the surface, (2) a period when surface metal loss 
rises rapidly to a maximum, (3) a period of 
maximum metal loss rate, and (4) a period when the 
metal loss rate falls toward or oscillates about an 
apparent steady-state value. 


METAL LOSS RATE - ARBITRARY UNITS 
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Figure 3,3-1 Model of Stages of 
Erosion After Pearson 




• CEGB Data 

The most extensive tabulations from the CEGB 
on material removal From steam turbine blade metals 
by impinging water drops record only the incubation 
period (stage 1) and the maximum rate of erosion 
(stage 3), Pearson'^' of the CEGB has examined 
and reported on an extensive set of these experiments 
carried out using a 12 percent chrome stainless steel. 

The stage 1 stainless steel data is shown in 
Figure 3.3r2. This is a plot of the measured amount 
of impacting water per unit area required to incu- 
bate erosion at various normal impact velocities 
using a succession of constant diameter drops of the 
diameters indicated in the figure. 


The data scatter considerably. It has been 
noted by Heymann, in section 3.1, that there is no 
apparent trend to the data with respect to the diameter 
of drops impacted except at the lower limit of the 
test range of normal im**jct velocity. 

For both jet impact and drop impact tests, 
if it is assumed that the duration of an individual 
impact is directly proportional to jet or drop diameter; 
the total impulse per unit area to which a particular 
surface location is subjected can be expressed as: 

: : p. D N . 

r i i r \ i 

It may also be noted that the mass of water 
impacted on a particular site per unit area has the 
same proportionality as 2t. ; 

for drops 


KEY TO DROP 
DIAMETER "D" 
(IN MICRONS) 



NORMAL IMPACT VELOCITY - FT/SEC 


Figure 3.3-2 CEGB 12% Chrome Incubation 
(Stage 1) Data 
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That is, the measurement of the mass of water 
impacted per unit area to incubate erosion is a 
direct measure of the total impulse per unit area 
to incubate erosion at constant impact pressure. 
Therefore, since the stainless steel data, as plotted 
in Figure 3.3-2,does not evidence any consistent 
trend with drop diameter over most of the test range 
of normal impact velocities, it suggests that the 
important parameter during stage 1 erosion is the 
total impulse per unit area and not the number of 
blows per unit area. This is interpreted to mean 
that the end of the incubation period is signaled 
by a buildup to a certain level of permanent strain 
and that it is unimportant whether this strain is 
occasioned by many little blows or a few big ones. 

This conclusion also seems consistent with the 
previously paraphrased Hancox and Brunton des- 
cription of surface distortions during stage 1 of erosion. 
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The stage 3 stainless steel erosion data of 
Pearson'^) is shown in Figure 3.3-3,* The marked 
separation of that data by drop diameter is quite 
apparent. Pearson found that the data could be 
correlated by an equation of the form: 
m 

— — : : (U sin6- U .)" cosec 9 
m i cd 


p In correlating the CEGB data on a hydro- 
dynamic basis, it is important that there be 
similarity of eroded surface at corresponding points 
in the erosion cycle. This is what the CEGB found. 
Quoting from Reference 61, 11 In general, the 
topographical examination (of the eroded stainless 
steel) showed the following features: 


Heymann in Section 3.1 showed that for Pearson's 
data: 

u cd !i 

As stated by Pearson, since ail the testing was 
carried out above the apparent threshold velocity, 
U cc j is only a convenient mathematical parameter 
and may not represent an absolute lower limit on 
normal impact velocity to cause erosion. 



500 700 900 1700 1300 

IMOKMAL IMPACT VELOCITY - FT/SEC 67 2885-1 0B 


Figure 3,3-3 Stage 3 Erosion of 12% 
Chrome Steel (CEGB Data) 


* The Weber No. lines will be discussed later. 


a) The average distance between adjacent 
peaks in the surface increases as the mass loss 
increases. This is probably associated with the 
intersection of widening pits which tends to 
eliminate, progressively, the narrowest of the 
escarpments remaining between them. 

b) Within the duration of the longest tests 
carried out, the average depth of the erosion pits 
continually increases. 

c) There is no observable topographical 
difference between specimens which have suffered 
the same mass loss produced by water droplets of the 
same size but different impact velocities. 

d) For corresponding positions on the curves 
of mass loss against mass of impacting water, the 
coarseness of the surface increases with drop size 
and the distance between adjacent erosion peaks is 
proportional to, and of the same order as, the 
droplet diameter. " 


3.3.3 Possible Reasons For Drop Size Effects 


That Erosion Rates are drop diameter sensitive 
and that the erosion peaks and valleys are propor- 
tional to drop diameter has been noted by others 
(68, 69, 70), in addition to the CEGB. Various 
explanations of the drop diameter effect on erosion 
rates have been offered. Some of these are: 

(1) increase in local material fatigue limit as 
effective impact lengths become smal ler with smaller 
drops as suggested by Heymann in Section 3.1, (2) 
smaller drops create more surface area per unit volume 
of material removed than do larger drops and it has 
been suggested that this means that more energy is 
required per volume of mqterial removed with small 
drops than large drops (3) smaller drops are 
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more easily deflected by gas forces before impact 
than larger drops and therefore do not hit with as 
high an actual normal impact velocity, (4) the 
impacting drops become unstable aerodynamical ly and 
start to break up before impact, and (5) the test 
samples retain a film of water which attenuates the 
blow from smaller drops more than that of larger 
dropSo 

3.3.3. 1 Size Effects in Fatigue Failure 

Size effects in fatigue failure as related to 
multiple-impact erosion have been discussed in 
Section 3,1, In this discussion Heymann concludes 
after Peterson that for fatigue failure to occur the 
endurance limit must be exceeded not merely at a 
point or line but across a dimension which is on the 
order of 50 to 75 microns. Heymann then goes on 
to point out that, for an impact of a spherical drop 
or sideways impact of a cylindrical jet the impacted 
cross-sectional length is only a fraction of the pro- 
jected drop cross-sectional length during the time 
of peak pressure. Hence, for drops of small effective 
impact length (less than 50 to 75 microns), an 
apparent increased erosion resistance of the material 
would be observed. 

Some measure of the ratio of this effective 
impact length for dry surfaces can be obtained by 
reference to the work of Hancox and Brunton (65)„ 
These investigators impacted jets of mercury on 
polymethyl methacrylate specimens. They found 
values of interface angle 0 where vigorous outflow 
begins (see nomenclature for definition of 0) as 
given in Table 3,3-1. 


TABLE 3.3-1 

VALUES OF THE INTERFACE ANGLE 0 FOR 
WHICH FLOW FIRST DEFORMS THE SURFACE 


Jet Diameter 
(mm) 

Velocity of Impact 
(m/s) 

Angle 

Mercury Jet 1 

183 

17° 15' 


169 

16° 45' 


154 

17° O' 


152 

16° 45' 


Making the logical conclusion that there 
cannot be much release of impact pressure until there 
is substantial lateral liquid flow, the effective im- 
pact length must be on the order of 0.3 times the 
projected impacting jet diameter or larger. This 
value should also be a measure of the effective 
length ratio in drops impacted normal to a surface 
since the impact is axisymmetric. If this 0.3 value is 
applied to the drop diameters of the CEGB data 
(Figure 3.3-3), all effective length values are 
greater than 75 microns, some considerably so. It 
seems unlikely, that a material size effect isan 
adequate explanation of the evidenced drop size 
effect in terms of impacts on dry surfaces. 

As seen by Table 3.3-1, Hancox and Brunton 
found that the angle 0 at which vigorous outflow 
began in their tests was about 17 degrees. They 
point out, from elementary considerations, that such 
outflow should have begun when the lateral velocity 
of impact of the jet on the solid surface fell below 
the compression wave velocity in the liquid. From 
geometric considerations, Hancox and Brunton find 
that the theoretical angle 0 is given by 



where C is the compression wave velocity in the 
liquid, and U is the normal impact velocity. 


As seen in Table 3.3-1, Hancox and Brunton 
found no such velocity dependence for 0 . In 
addition, the theoretical value of 0 is, in all cases, 
much less than the observed value. They attribute 
the observed delay in outflow to friction at the solid 
surface. (It should also be noted, however, that a 
jet is not necessarily a cylindrical object but may 
be varicose. In this case, the actual effective dia- 
meter of the jet might be considerably greater than 
the cylinder from which it originated. Hancox and 
Brunton's measurements may be misleading.) This is 
interpreted here to mean that vigorous outflow is 
delayed until the effective depth of compressed 
liquid is large enough for the dynamic forces to swamp 
the viscous forces. 
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A liquid film over the impact surface will 
give a lubricating effect such that lateral outflow 
(release of peak impact pressure) can begin much 
sooner than for a dry surface. In correlating the 
CEGB data, the assumption is made that such a 
film existed on the CEGB test pieces and that the 
angle 0 is a function of Up/C. 

Perhaps the most telling reason, however, 
for supposing that local material effects do not 
explain the drop diameter effect is that the dimen- 
sions of the peaks and valleys of the eroded surface 
are characteristically proportional to the drop size. 

It seems unlikely that such behavior would be ob- 
served if local material factors are a dominant 
influence. It seems likely that the area of impact 
of even smallest drops used by the CEGB is too 
great to bring local material strengthening factors 
into prominence. 

3.3.3.2 Surface Area Effect 

If the sizes of the peaks and valleys in an 
eroded surface are proportional to the diameter of 
the drops impinging, then more surface area is 
created per volume of metal removed with small 
drops than large drops. It has been argued that this 
greater surface to volume ratio of small versus large 
drops implies a greater energy requirement of small 
drops to remove the same volume of material as 
large drops. For this argument to be valid, erosion 
of metals would have to be a two-dimensional skin 
effect like atomization of liquid where the new 
surface is created by stretching the old surface and 

E = <*( A A) 

All reported observations reviewed by this 
author clearly indicated that new surface is produced 
during erosion, not by stretching of old surface but 
by breakage of solid material. A stress level is, 
therefore, the appropriate strength of materials 
criterion. By the logic of dimensions then: 

E = SV 

or the energy of creation of new surface is propor- 
tional to the volume of material removed. The 
energy per unit volume removed is the same whether 
the removal is by many small pieces or a few big 
pieces. 


3.3„3.3 Hydrodynamic Effects 

In the CEGB tests, deflection of the smaller 
drops relative to the larger drops can almost certainly 
be ruled out. The CEGB could observe the impact 
of the drops and in fact had to make substantial 
modifications in the rig as originally designed to 
remove such deflections*' '« 

However, the impinging drops might have 
been aerodynamically unstable. It takes a finite 
time for a drop to disrupt even when unstable. For 
a considerable portion of that time period, it is 
difficult to observe any marked distortions indicating 
that the drop is in the process of disruptions^- 
Assuming that the velocity of the vapor at the radius 
of the target in the CEGB apparatus was the same 
as the target velocity, calculations of drop Weber 
Number during the CEGB tests have been carried 
out, using Gardner* sS3) (or if you prefer 
Hinze 1 s v74) ) water drop instability range of 
Weber Number 13-* — ►22. These lines are plotted 
on Figure 3.3-3. The author interprets this range 
as: We< 13 - drops almost certainly stable. 

We >22 - drops almost certainly unstable. From 
this it would appear that for most, but not all, of 
Figure 3.3-3 the impacting drops were aerodynami- 
cally stable. The 1050 and 920 micron drops may 
have been breaking up before impact at the higher 
test velocities. This may explain the crossover anomaly 
in the data. 


If the drop diameter effects evident in the 
CEGB data for stage 3 erosion are not numerically 
feasible, in terms of local materials effects or 
aerodynamic effects before impact, they must be 
caused by the hydrodynamics of the Impact itself. 
These might be due to frictional effects within the 
drop (either from surface tension or viscosity of the 
liquid) or to films of liquid on the surface. Numeri- 
cally, the impact pressure forces over the range of 
drop sizes and impact velocities of the CEGB data 
are so great that surface tension cannot be a factor. 
This is also true for the mercury jet Impacts of Hancox 
and Bruntor^even though the surface 
tension of mercury is considerably higher than that 
of water, because the acoustic impedance of 
mercury is also markedly higher than that of water. 
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If the observed drop diameter effect is solely 
a result of internal hydrodynamics in the impacting 
drop, a viscosity- 1 ike effect must be the cause. 
Superficially, one might say in this connection, that 
such is the cause. The surface to volume ratio 
increases with decreasing drop diameter and the flow 
of liquid out of the impingement zone will be 
impeded and the violence of outward flow reduced. 
Reduced outward flow violence then can be equated 
with less erosion* This kind of reasoning, however, 
implies a steady-state continuity of impinging flow 
and outward flow which need not and probably does 
not exist during the most damaging period of impact. 
Over the entire period of impact there must be 
continuity of flow into and out of the impact, but 
this does not have to be true instantaneously except 
at one instant during the entire process* If, because 
of viscous effects, the liquid cannot initially flow 
out of the impact as fast as it is flowing in, the 
maximum pressure of the impact will have to be 
prolonged until it can* Otherwise, overall 
continuity of flow will not be preserved* This means 
that if internal viscous effects are a major cause of 
the drop diameter effect, the period of maximum 
impact pressure will be longer for smaller drops 
than larger drops. Smaller drops should inflict a 
more severe impact than larger drops and therefore 
cause proportionally greater damage. Since this is 
obviously not the case, one is left with the 
hydrodynamic interaction of the impacting drop with 
a film of liquid as the most probable cause for the 
observed drop diameter effect. 

An obvious effect of a water layer would be 
to cushion the impact between the drop and the 
metal surface. The effective cushioning from a 
given thickness of surface water will be greater for 
smaller drops than for larger drops. This is a possible 
reason that for equal amounts of impacting water, 
the finer the division of the water and the lower the 
impact damage. This is one aspect of the water 
film. Another and perhaps more important aspect is 
that such a water film will provide a lubricated 
surface for lateral flow or a path for dissipation of 
the impact as a compression wave moving radially 
away from the impact through the film. This aspect 
of a liquid film is most important since it allows a 
postulation that the duration of drop impact during 
the CEGB tests was a function of normal impact 
velocity even though the Hancox and Brunton 


mercury jet single impact tests indicated no change in 
size of impact with change in normal impact velocity. 
The tests were carried out with dry surfaces and the 
results (even if taken at face value) are not appli- 
cable to a wet surface. 

3.3.4 Correlation Model 

It is assumed that because of the presence of 
the liquid film, the duration of the pressure pulse, 
liquid outflow, etc., correspond to the hypothetical 
model of Hancox and Brunton as implied by 
their statement t , , 

0= 5fn 

At the moment of impact between the water 
drop and liquid film, compression waves start into 
the film and the drop at or near the velocity of 
sound in the liquid. Initially, this compression wave 
is maintained at full liquid to liquid impact value by 
the crashing of successive segments of the drop on 
the surface at a rate in excess of the compression 
wave velocity. If during this period, the compression 
wave in the liquid film is reflected from on the solid 
surface, the average pressure exerted on the solid 
surface will be that of the full water hammer level. 
The pressure rise over the wave is equal to the water- 
to-water impact, l/2/> CU n , to which must be added 
the change in momentum of the liquid following the 
wave at velocity U^/2 , causing an additional 
pressure rise at the solid surface of 1/2^ CU n . 

Sometime later, the rate at which liquid 
crashes on the surface is reduced (because of the 
geometry of a sphere) to a level where a compression 
wave can outdistance the disturbance, reach a free 
surface, and be reflected back as a rarefaction wave. 
At this time, liquid outflow from the compressed 
region begins. The area of average maximum 
pressure then dwindles to nothing as the rarefaction 
wave progresses to the center of impact. 

3.3.4. 1 Forces of Impingement 

There are two force or pressure levels of 
concern. The first of these is the pressure level of 
the initial impact, and the second is the impingement 
pressures generated by the liquid squirting laterally 
from the impacted area. 
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The first- of these is taken to be the water 
hammer pressure. (Throughout this section, it will 
be assumed that the impact velocity levels and the 
strength of the metal surfaces are such that the 
metal can be considered rigid with little loss in 
accuracy.): 

P. CU 
1 t n 

Heymann has shown that the shock wave velocity, 

C, in water is to a first approximation, a simple 
function of C Q/ the acoustic velocity in the uncom- 
pressed liquid, and the normal impact velocity, U n , 
so that pressure, p], becomes, using Heymann* s 
relation: ^ 

The maximum secondary impingement 
pressures are similarly assumed to be the water hammer 
pressure from impingement on a rigid projection at 
maximum lateral velocity* These maximum lateral 
velocities have been experimentally observed to be 
approximately: 



For water drops impacting with normal 
velocities in the range of the CEGB experiments, 
this reduces in numerical approximation to. 


3.3,4.2 Impingement Process, Duration, Total 
Impulse, and Total Energy 

Assuming the geometry of the situation as 
illustrated in Figure 3.3-4, at time t after Impact, 


U n t = r-y 

or ij|_ = " U n 0) 


Making use of the equation of a circle, 
dy ss - j<_ , the rate of progression of the distur- 
bance aloKg the surface is 


dx 

dt 


4 2 2 

Jill 1 *— 


U 

n 


( 2 ) 


At a time defined as t , the rate of pro- 
gression of the disturbance will fall to the velocity 
of the compression wave in the liquid along this 
same surface, or 


> - c - 






u 


and 



In the regime of interest to turbines, 
C 2 



n 



This model is identical to that of the hypothesis of 
Hancox and Brunton, since 


9.5 C U 


That P 2 is numerically first order linear in p CU n 
simplifies the correlation problem with the CE<5d 
water drop data since it may be assumed that the 
dimensionless ratio , p]/p 2 ' is nearly constant. 



U 

n 

C 
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Figure 3.3-4 Configuration Diagram 


Similarly, by integrating Equation 1 from zero to 
x „ and approximating, 0 

«• 

This t^ is the time at which liquid outflow begins, 
and the compressed zone covers the maximum area. 
The complete time of the pressure pulse t^ is the 
time plus the time for the rarefaction wave to 
travel to the point of initial impact from its radius 
of origin x* „ Thus, 

A- 

c 


t b = V + 


In approximate terms for ( — q- 


(5) 

2 

)» 1 , 


U 


3/2 


(6) 


The total impulse per unit of surface area in terms of 
total water impacted per unit of surface area in the 
form of drops of diameter D is then: 



By observation earlier in this section, the 
quantity of total impulse per unit area that a given 
material can endure should be a constant of the 
material, or the amount of water to cause incubation 



Referring to Figure 3.3-2, the dashed line 
" 4 

shown is drawn for a (m,/A): : 1/U dependence. 

» n 

The solid line is that drawn through the data by the 
original investigators. 


The energy used in deforming a single drop, 
during this maximum pressure stage of impact, is the 
energy flux across the liquid solid interface required 
to maintain the compressive shock moving through 
the liquid or 

E. = CU 2 2 A. t. = I. U (11) 

i n i \ i n 


m 


(7) 


The average area over which the pressure pulse acts 
during t^ is then, approximately, 

A _ 7r 2 

A 18 r 

The total impulse exerted by single drop on 
the surface during the maximum pressure phase of 
impact is (neglecting the time to compress the liquid 
film) given by: J , ,3 

- 3 


-) D‘ 


( 4 ) 


-i c 




7 r 
96 


D 3 ) 


( 8 ) 


Hence^the total energy available per unit 
area to cause erosion from deformation of impinging 
drops (neglecting the time to compress the liquid 
film) is: 



It has been observed by several investigators 
(76,77) that the rate of erosion of metals changes 
approximately as the fifth power of the normal 
impact velocity. 
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3. 3.4.3 Liquid Film Thickness During the 
CEGB Tests 

As stated previously, it is assumed that the 
CEGB test pieces were covered with a water film. 

At each revolution of the test sample this film is 
replenished as it passes through the curtain of water 
drops. This water then drains from the test piece 
under the centrifugal force field, gradually thinning 
the film until the next collision with the water drops. 

Assuming that the surface of the sample is 
smooth and plane, that the flow from the sample is 
viscous and only in the radial direction, neglecting 
the low order terms in the Navier-Stokes equation, 
neglecting all external forces except centrifugal force 
and specifying a parabolic velocity distribution of the 
liquid film, a straightforward derivation of an 
approximate average film thickness at the moment 
of impact of the drops results. (See Section 3. 3. 8.) 



Calculated film thicknesses as a function of 
erosion sample velocity are shown in Figure 3.3-5. As 
can be seen, these calculated films are quite thin. 

It has been pointed out to the author by Professor 
D. E. Elliott, that the foregoing film thicknesses 
would, at best, apply only during the initial stage 
of an erosion test before the surface has become 
roughened. After the surfaces become roughened, the 
liquid film thickness will increase. This offers a 
possible explanation as to why the CEGB data show 
drop diameter segregation for stage 1 erosion not 
only at the lowest test velocities but over the entire 
range of test velocities for stage 3 erosion. 

For correlation purposes, it is not necessary 
to know the absolute value of the film thickness so 
long as this thickness for a particular stage of 
erosion is the same multiple of the minimum thickness 
for all impinging drop diameters. This is apparently 
the case for the CEGB data since the characteristic 
size of the roughness, as previously quoted from 
Reference 61, is proportional to the drop diameter. 

If the film flow remains of a viscous character and 
follows the roughness of the surface, then the film 
thickness would be proportional to the square root 



SAMPLE VELOCITY - FT/SEC 612885-18 

Figure 3.3-5 Calculated Film Thicknesses,, 
CEGB Apparatus 


of the path length. For geometrically similar rough- 
ness, the path length would be independent of the 
characteristic size so long as the characteristic 
size is much smaller than the total path length. This 
is not to say that the surface roughness level does 
not change from stage to stage, but rather that sur- 
face similitude with respect to impinging drop diameter 
prevails at any particular stage of erosion. Therefore, 
dimensional analysis based on minimum film thickness 
Is a rational procedure so long as the stage of erosion 
is constant and the character of the film flow does 
not change. 

The character of the film flow could change 
above and below the point where the pits or dis- 
tortions of the surface retain water by capillarity. 

If the effective diameters of the pits are greater 
than some critical diameter, the pits would not 
retain water. If the effective pit diameters are less 
than this critical diameter, the pits would retain 
water. Equating surface tension forces and 
centrifugal forces^ the order of the critical pit 



Characteristic numbers for the CEGB apparatus 
using Equation (13) are given in Table 3.3-2 
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TABLE 3* 3-2 

CRITICAL PIT DIAMETERS FOR CAPILLARY 
WATER RETENTION 


u 

s 

ft/ sec 

D 

c 

microns 

328. 

253 

492. 

169 

656. 

127 

984. 

84 


According to the CEGB investigators ^ \ 

the distances between erosion peaks tend to be of the 
order of the drop diameters* Since almost all the 
CEGB test data is for velocities greater than 600 ft/sec, 
and the minimum drop diameter used was 350 microns, 
it is unlikely that capillary retention of water was 
much of a factor* 

In conclusion then, excluding the data 
taken using the 900, 1050 micron diameter drops 
above about 600 ft/sec, as these may have been 
unstable under the aerodynamic forces present, the 
CEGB data can be taken as a set of fluid-dynamic 
similitudes for a particular stage of erosion. 


data for the third stage of erosion exhibits an 
apparent threshold velocity for damage which can be 
used to correlate the erosion material rates above this 
threshold* As observed by Heymann this apparent 
threshold velocity varies inversely as the square 
root of the drop diameter. 

On the basis of these foregoing considerations, 
it is reasonable to assume that for relatively non- 
viscous fluids such as water and potassium, the only 
variables of importance are: (1) the threshold water 
hammer pressure to cause damage( fyCUrd^ 

(2) some strength of material criterion (Sj, (3) the 
liquid film thickness at threshold condition U cc j) 
over the uneroded surface, and (4) the diameter of 
the impinging drop (D). These variables may be 
related by dimensional analysis to give: 


C U cd 

S 



Ignoring the relatively small change in shock 
wave velocity, C, with threshold normal impact 
velocity, y |gives: 
cd 


3;3.4.4 JxnpacJ Qamage Threshold Velocity 
Cdrrelation 


It has been determined that the CEGB data 
may be expected to exhibit fluid-dynamic similitude 
for any particular stage of erosion. The film flow 
will be assumed to be always in the viscous flow 
regime. Its thickness for any particular stage of 
erosion may be assumed to be a simple multiple of 
a plane surface film thickness for any of the tests 
using stable drops. The unattenuated pressure of 
drop impact is numerically, to a good approximation, 
a simple multiple of the water hammer pressure for 
either the primary impact or secondary impacts 
from liquid squirting from the impact zone. It has 
also been found by Pearson(^) that the CEGB 


3.3.4.5 Stage 3 Threshold Velocity Correlation 

The summary of CEGB data reports tests 
on three different materials where both the impinging 
drop diameter and normal impact velocity are 
varied. The materials are a Stellite 6, a 12 percent 
chrome steel, and a maraging steel. 

From this information, it is possible to estab- 
lish approximate relations between the dimensionless 
quantities of Equation (14), provided that a material 
strength criterion is selected. The criterion selected 
is the hardness of the material as measured in terms 
of the Vickers VPN. It is felt that none of the usual 
strength of materials quantities will be a universal 
criterion of the erosion strength of materials. From 
a cursory review of various available erosion test 
results, it is concluded that all suggested criteria 


3-57 



are fallible* Among these usual criteria, hardness 
appears to be one of the best. In addition/ it has 
also been observed by the CEGB > 'that it provides 
a reasonably good indicator with respect to the 
CEGB data. 

The averaged results of examining the CEGB 
data in terms of Equation (14) are shown in Figure 

3.3- 6. In Figure 3.3-6, the factor 2.08(1 0 5 ) is used 
to convert the Vickers Hardness Number from metric 
to English units. The dimensions used are: ^in 
slugs/ft 3 , C in ft/sec, VPN in kg/mm 2 , 6 ln ft / 

D in ft , an<?U c d in ft/sec. On an averaged basis 
there seems to be a clear separation between the 
materials. A data point by data point plot would 
somewhat obscure this separation, since the data 
scatter in the 12 percent chrome information (the 
only substantial body of data) is greater than the 
span between Stellite and the maraging steel. The 
separation by materials is hardly unexpected since it 
is well known that the erosion resistance of Stellite- 
like materials is almost always superior to that of 
other materials of similar physical property values. 
Similarly, the high hardness steels almost always 
show poorer erosion resistance than would be 
expected from a review of physical property values. 

It might be added that the vertical spread in Figure 

3.3- 6 is of the same order as that likely to be re- 
ported from a series of tests for the common strength 
of materials criteria for a single material. 

3.3.4.6 State 1 Threshold Velocity 

Because during the incubation period the 
impacted surface is smooth and not pitted as in the 
third stage of erosion, the liquid film covering the 
surface is, by this model, thinner than during the 
third stage. This means that the threshold velocity to 
incubate damage will be lower than the threshold; 
velocity necessary to continue damage. 

That the threshold velocities to cause incuba- 
tion are lower than those required to continue 
erosion is evidenced by the less marked segregation 
by drop diameter of the incubation period data 
(see Figure 3.3-2). However, as pointed out by 
Heymann, at normal impact velocities below 700 ft/ 
sec such segregation with drop diameter is present. 
Unfortunately, the data do not extend to low enough 
velocity levels to make an empirical correlation of 
the data practical. 



Figure 3. 3-6 Threshold Velocity Correlation 


Assuming that the basic rate controlling 
cause of damage and its mitigation by a liquid film 
does not change between the first and third stage of 
erosion, the correlation of Figure 3.3-6 can be used 
to estimate threshold velocities for incubation by 
accounting for the ratio in average film thicknesses 
between Stage 3 and Stage 1, To a first approximation, 
the ratio will be proportional to the square root of 
the ratio of the respective flow path lengths. From 
pictures in reference (61), it would appear that the 
flow path length during Stage 3 erosion is approxi- 
mately three times the length of the original or 
incubation path length, or the film thicknesses in 
Stage 3 erosion are about 1.8 times the film thicknesses 
during the incubation period. On this basis, division 
of the calculated value of ( s C( ^/D) by 1.8 before 

entering Figure 3.3-6 provides an estimate of Stage 1 
erosion threshold velocities where § cc j is calculated 
by Equation (13). In approximate terms, this yields 
a Stage 1 threshold velocity of about 70 percent of 
the Stage 3 threshold velocity. 
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3.3,4.7 Damage Rates Above the Threshold 
Velocity 

It has been hypothesized by observers, that 
the ability of a material to resist erosion should be 
proportional to its ability to absorb the energy of 
impact above some threshold pressure level necessary 
to start erosion. Therefore, it will be assumed that 
the energy which must be absorbed by the impacted 
solid is proportional to the energy being expended 
in compression of the drops. Also, it will be assumed 
that the energy represented by that above the level 
necessary to produce a threshold pressure level 
p cc j = P CU cc j is that available to produce 
erosion damage. 


For the CEGB data on steels, the minimum 
test impact velocity is approximately 500 ft/sec. 

The maximum is approximately 1050 ft/sec. That 
is, the minimum value of U^Cq is slightly greater 
than 0.1 and the maximum is somewhat greater than 
0.2. Values for the quantity 



are given in the following as a function of ^ — 

o 


The total compression energy has already 
been given in Equation (12). Subtracting the energy 
below the threshold and rearranging terms yields: 


c _ 7 
E " T6 



(15) 


By dimensional considerations, energy E must 
be equal to a product of volume of metal eroded, 

V m , and a material strength level, S, divided by 
an efficiency of removal. Further, V m = m - 
Application of these relations to Equation P m 
(15) and rearranging of terms gives: 


m 

"7 


7 

JT 



(16) 


Substitution for C in terms of C Q and U by 
use of Heymann 1 s( 75 ^ relationship for water, 
introduction of the liquid density, and grouping of 
the variables in convenient dimensionless groups 



U 

n 



0. 01 

0.9 

(1 o -2 ) 

0. 05 

3.8 

(10“ 2 ) 

0.10 

5.8 

(l(f 2 ) 

0.15 

6.8 

(10' 2 ) 

0.20 

7.3 

(10‘ 2 ) 

0.30 

7.3 

(icf 2 ) 

0.40 

6.9 

(10- 2 ) 


It would seem, therefore, that for most of 
the CEGB data, Equation (17) might well be 
applied as 


W ft) [*&-)(%)' 



( 18 ) 
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It will be noted that the proportionality 
terms in Equation (18) relating the materials loss 
ratio to the impingement velocity are a function of 
both the liquid and material properties* 


Equation (18) can be written as 



This analytic expression for the erosion rate 
is compared with the CEGB data in Figure 3.3-7, 

The data points shown are taken from the 600 micron 
drop curve of Figure 3,3-3 for which U cc j was 
established as 390 ft/sec* The dotted lines shown in 
Figure 3,3-7 represent Equation (19) with a suitably 
chosen constant of proportionality. Figure 3,3-7 
then illustrates the excellent agreement of Equation 
(19) with the experimental 660 micron drop data. 

3,3,4.8 Summary of Model Equations and 
Empirical Constants 

The correlating relations of the model in 
equation form for Stage 3 erosion under water 
impingement conditions at or near CEGB test 
velocities are: 



0. 2 0. 5 1.0 2. 0 5. 0 


U n U n 

190" _1 OR ISC' 612885-7B 


Figure 3,3-7 Correlation of CEGB Data 
by Means of Equation 19 



where for the particular CEGB apparatus the 
correlating film thickness 6 is given by: 



Empirical coefficients for the maraging 
steel of VPN — 500, the Stellite 6 of VPN — 400, 
and the 12 percent chrome steel of VPN — 190 are 
given below 


Material 

K 

n 

( 

m 

Maraging 

steel 

1.14 

0.57 

0.46 

to 

o 

o 

1 

12% chrome 
steel 

1.31 

0.57 

0.43 

147 (10“ 6 ) 

Stellite 6 

1.52 

0.57 

0.12 

8 (10 -6 ) 


* At U = 1020 ft/sec, D = 660 microns 
n 
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It will be noted that even though the hardness 
of the two steels varies by a factor of 2.5 and the 
erosion rate by 5.5 at 1020 ft/sec impact velocity, 
the empirical coefficients are about the same. The 
threshold velocity constants for Stellite are similar to 
those for the steels but the constant € , which is a 
measure of the effectiveness of the erosion process, 
is much lower. As is already known. Stellites are 
generally somewhat more erosion resistant in rela- 
tion to surface hardness than are steels. 

3,3.5 Temperature Effect In Drop Impingement 

Material Removal 

In cavitation erosion tests there is a strong 
temperature effect on the measured erosion rates 
when materials and other conditions are held constant, 
A large amount of this effect can be ascribed to 
hydrodynamic causes '• 

Between cavitation erosion and impingement 
erosion there are often analogous effects. This is 
not to say that the detail causes are necessarily the 
same or that there is a quantitative correspondence, 
but in gross terms the two types of erosion exhibit a 
similar kind of behavior. 

The possibility of a temperature linked 
hydrodynamic effect in drop impingement erosion 
sample testing in potassium has been investigated using 
the impingement correlation equations. The circum- 
stances ar;e analogous to a whirling arm drop impinge- 
ment test using potassium drops of uniform size im^ 
pinging on an erosion material sample mounted on the 
arm. The tests are such that the velocity of impact 
and the test temperature are the independent 
variables under investigation. 


The behavior of the dependent variable, 
mass loss rate at temperature (T Q ), has been investi- 
gated in terms of the independent parameters T and 

U ^cd(T 0 ). The results are shown in Figure 3.3-8 
where ratio m m (*0/ m m (T o ) is on the y-axis, tem- 
perature is on the x-axis, and U n /U c< j(T 0 ) is the 
parameter. The base temperature has been taken 
as 350° K. 



' ' ‘ 'TEMPERATURE * °K 

612885 - 2 $ 

Figure 3.3-8 Referred Erosion Rates 


As can be seen, there is a substantial change 
in the referred erosion rates with temperature. For 
low values of U /U cc j(T ) there is a marked erosion 
peak at 400-50(PF. A low value of U rv /U cc j(T 0 ) 
implies that at T^, the reference temperature, the 
erosion conditions are only a little above a threshold 
condition to cause erosion. It is to be noted that: 

(1) the values plotted are referred values and that 
absolute values of material removal would be higher, 
the higher ^nA^cdCr©)' and (2) the supposed con- 
ditions are for a whining arm materials test and no 
conclusion relative to actual turbine blade erosion 
should be drawn. The situation leading to turbine 
blade erosion is more complex and involves variation 
in drop sizes, amount of liquid impinging, etc. 
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integrated and manipulated, subject to specification 
of a parabolic velocity distribution in the liquid 
film and continuity of flow, * to give: 

dm _ pU 5 1 / /Az\ 

3T = {?) (2) 

At any time t after passing through the 
water curtain, the amount of liquid contained in 
a segment of length D and Width A Z is 

m * QDAZ 6 , (3) 


and the rate of change of this mass is 


dm 

3T 


= ?DAZ 


d6 

W . 


(4) 


Because this film is very thin it is reasonable 
to assume that<$^-4 and on substituting Eq. (4) in 
Eq. (2) on the basis that 5^ =$and integrating, the 
result is 


t 


6 

"3o 


a 


3 p DR 

2 ■ j— 

2QU 6* At + 3pRD 


(5) 


The time At between impacts or replenishing 
of the water film is given by 

2 7T R 

~TT , 


At = 

which upon substitution in Eq. (5) yields 


( 6 ) 


*o 


■i 


3 u D 


4*eua + 3 p D 


(7) 


When the film thickness after a complete 
circuit of the wheel is substantially less than its 
initial value, the term 3 p D in the denominator of 
Eq. (7) may be neglected relative to the other term 


4*U 6 



jjm 

14 f? U 


( 8 ) 


*Refer to Section 2.5.3 of WAN L-TME- 1977 


if the film thickness added at each pass through 
the water spray is of the same order as the final 
film thickness after a turn of the wheel, Eq. (8) is 
still a reasonable numerical approximation to Eq. (7) 
after enough revolutions that a steady state of opera- 
tion is approached. This is illustrated by the following 
numerical example: the assumptions are (1) at the 
start of each revolution the initial film thickness is 
the residual film thickness plus an instantaneously 
deposited 4 microns (2) viscosity of water - 0.0114 
poises, (3) density of water - 1 qrr/cm^, (4) 

erosion sample velocity - 3(10^) cm/sec, and (5) 
erosion sample diameter - 2 cm. 

The calculated residual film thicknesses as 
a relation of the number of revolutions after startup 
are given in the following table: 


Revolution 


No. 


Initial Film 
Thickness 
(cm) 


Residual Film 
Thickness 
(cm) 


1 

2 

3 

4 

5 


4(10 4 )_ 4 
6.92(10 ) 
7.64 (10 -4 ) 
7.68 MO” 4 
7.73(1 O' 4 ) 



Using Eq. (8), the value of residual film 
thickness is 4.25 (10“^) cm, not too different 
from the values in the table. 

Thus, the thickness of water film impacted 
by the water drops is largely independent of the 
past history of the film and depends mainly on the 
liquid properties, the velocity of the sample (which 
is also the velocity of impact), and the size of the 
test sample. 
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3.4 TURBINE BLADE DISSOLUTION IN LIQUID 
METALS 

3,4, 1 Background 

3.4, 1.1 Discussion of Potassium Tests 
Involving Erosion 

Table 3.4-1 lists some coupon and turbine 
tests where wet potassium vapor impinged on metal 
coupons or turbine surfaces. In all these tests there 
was some material removal. 

In tests such as Nos. 1 and 5, where the ox/gen 
content of the potassium is reported or suspected to 
have been high (high not defined quantitatively by 
authors), the rates of material or damage are substan- 
tial in 100 to 2000 hours for TZM material. It may 
be concluded that TZM is oxygen sensitive. 

In tests such as Nos. 2, 3 , 4, 7 , 10, and 13, 
where the oxygen content of the potassium is reported 
to be low and impinging particle diameters are most 
probably submicronic, regardless of the theoretical 
moisture level or impact velocity or material tested, 
the loss rates observed were the order of 1 mil per 
1000 hours or less. It may be concluded that where, 
because of the sub-micronic size of the impinging 
particles, impingement effects can be definitely 
assumed to be absent, material removal rates by 
material dissolution are quite low. 

During the General Electric two-stage 
turbine tests, in tests such as Nos. 8 and 9, material 
losses were substantial for U-700 material. Calculated 
impinging drop velocities are of the order of 
770 ft/sec and calculated impinging particle diameters 
are in the range of 30 to 100 microns. (Losses were 
massive during test No. 6, but for this test an 
estimate of the liquid particle diameters could not 
be made on the basis of the information examined 
and the particle diameters may have been very 
large.) Neither the impingement erosion model nor 
the dissolution model formulated hereafter would 
predict the substantial degree of material removal 
experienced during tests Nos. 8 and 9 on U-700 
material. It may be concluded that there was a 
combined interaction of chemical (dissolution) 


removal and mechanical (impingement erosion) 
removal taking place in the U-700 material. The 
Westinghouse erosion analysis model treats dissolu- 
tion and mechanical removal as independent processes 
with no interaction. However, under identical 
conditions (and at the same time actually) as 
test No. 8, TZM inserts, test No. 11, did not show 
this interaction. This observation is a justification 
for the formulation of a non-interaction erosion 
model. 

The General Electric three-stage turbine 
tests, tests No. 12, 13 and 14, resulted in substan- 
tial material removal from the three stage rotor blades 
and damage to erosion (coupons) inserts aft of the 
third stage. This material removal may have been 
caused by liquid or it may have been mechanical 
damage from some blade retainer clips or pieces of 
third stage shrouding which broke loose during the 
course of the tests. It is Westinghouse opinion that 
most of the damage was caused by these broken 
pieces. It must be added, however, that informed 
opinion of NASA and its contractors is divided 
with respect to the causes of this material removal 
and the significance of this test. 


3.4.1, 2 Chemical Dissolution 

The chemical dissolution of various 
materials into alkali and heavy liquid metals has 
been extensively investigated. Results, particularly 
with alkali metal systems, have been scattered. 

This scatter occurs because many difficulties arise 
when working with alkali liquid metals. Dissolution 
rates, besides varying with the standard parameters 
of temperature, material, flow rates, and temperature 
gradients, are also strongly influenced by alkali 
metal purity (small ppm concentrations of oxygen, 
carbon, or nitrogen contribute to increased corrosion), 
by dissimilar metal couples within the system, hot 
trap and getter efficiency, etc. Also, as experimental 
techniques and controls improve, the comparison of 
recent experimental results with earlier data further 
contributes to the problem. 
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TABLE 3.4-1 


EXPERIENCE ON MATERIAL REMOVAL BY 
LIQUID POTASSIUM 





Y V 

D 

Oxygen 

Content 

Te*t 

Duration 

Material 




Agwcy 

No. 

> Type of Teit 

% ft/iec 

MIcront Material* 

pjm 

hr. 

Remo vo 1 

Remarks 


Ref. 

ORNL 

ORNL 

1 

2 

Coupon 

Coupon 

17 ~2000 
17 -2000 

D <1 TZM 

0 <1 TZM 

Unknown, high 
Uhknown, low 

1000-2000 

1000 

High 

Small 

Material removal attributed to 
Oxygen attack 


80 

80 

ORNL 

3 

Coupon 

17 -2000 

D< 1 Cb-lZr 

Uhknown, low 

3000 

1-7 mil* 

Dissolution or corrosion attack 


eo 

ORNL 

4 

1 stage turbine 

15 -2000 

D < 1 TZM 

Unknown, low 

2700 

Unknown 

No visual damage 


BO 

PW 1 co -Aeronautic* 

5 

1 itoge turbine 

15 '2000 

D< 1 TZM 

Uhknown, high 

100 

Several milt 

liquid let cut groove In rotori 

liquid collected In stator flow separation 

B0 

Genera! Electric 

6 

2 stage turbine 

No. 1 

10-15-500 

Large U-700 

Unknown 

Unknown 

<50 

Mo* live 

Liquid sprayed Into turbine Inlet 
to Increase wetness 

81 

General Electric 

7 

2 itoge turbine 
No. 2 

4-5 ~50C 

0<l U-700 

(20 ppm 

2000-3000 

Nil 

Rotor blades 


80 

General Electric 

B 

2 itoge turbine 

4-5 >700 

30<tX100 U-700 

<20 ppm 

2000-3000 

8-10 milt 

Erosion Inserts (coupon test 

Simul- 

taneous 

i 80 

General Electric 

9 

2 itoge turbine 
No. 2 

4-5 >700 

30<D<100 U-700 

<20 ppm 

2000-3000 

Some 

Shrouds, clips 

experi- 

ments 

(80 

General Electric 

10 

2 itoge turbine 
No. 2 

4-5 <700 

D< 1 TZM 

<20 ppm 

2000-3000 

2.8 mil* 

Rotor blades 

2 stage 
turbine 
test. 

! 80 

General Electric 

1! 

2 itoge turbine 
No. 2 

4-5 >700 

30>D>100TZM 

< 20 ppm 

2000-3000 

Nil 

Erosion inserts (coupon test) 


r 

General Electric 

12 

3 itoge turbine 

8-12 -500 

7(£O>150 U-700 

TZM.TZC 

<20 ppm 

1300 

20-40 mil* 

Leading edges 3rd stage 
rotor blades, not clearly 
liquid removal 

Simul- 

taneous 

experl- 

[ 82 
1 

General Electric 

13 

3 itoge turbine 

8-12 ~500 

D <1 U-700 

TZM, TZC 

<20 ppm 

i 

1300 

1-2 mil 
rlvulatlont 

Rotor blades 

ments 

during 

3 stage 

82 

General Electric 

14 

3 itoge turbine 

8-12 >650 

20<D<30 U-700 

TZM, TZC 

<20 ppn 

1300 

Subitontlol 

Erosion Inserts (coupon test) 
Not clearly liquid removal 

turbine 

B2 


Y - Tbeoretlcol moisture content of bulk flow (reported value*) 
V- Liquid Impingement velocity (Westlnghouse estimates) 

D- Liquid particle diameter (Westlnghouse estimates) 


Most liquid metal corrosion data, either 
from refluxing capsules, natural convection loops, 
or pumped loops, have been of a qualitative nature. 
General surface dissolution, grain boundary pene- 
tration, and general mass transfer have been noted. 
However, the vast number of variables involved in 
most systems has not permitted the mathematical 
approaches expressed by Epstein in Reference 83 or 
Gill in Reference 84 to be extended to these more 
complex systems. Thus, experience with materials 
and systems has been relied upon to designate the 
materials and their properties most compatible to 
the system in which they are to be incorporated. 


Within the last few years improved experi- 
mental techniques and equipment have permitted 
investigators to reduce some of the variables 
(especially oxygen contamination) to less influential 
levels. The quantitative data being generated today 
can, with due consideration of its source and system, 
be extrapolated to other similar systems for rough, 
predictive comparisons. 

In this section the chemical dissolution of 
a turbine blade material into the thin stream of 
condensed potassium that flows radially outward 
along the blade is considered. Epsteins static 
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dissolution equation in Reference 4 was solved 
with dynamic dissolution parameters from Gill in 
Reference 84. 

3.4.2 Analytical Model 

To repeat, a fraction of the condensed 
moisture present in the wet vapor will be collected 
by the stator blades and will carry over to the 
subsequent rotor row in the form of atomized drops. 



This liquid impacts the rotor blades along a 
relatively narrow portion of the leading edge of the 
convex surface and then flows in a nearly radial 
direction to discharge at the tips of the blades. It 
is assumed that the impacted moisture forms a 
continuous film and that the fluid impinges uniformly 
along the blade impaction zone, The concern of this 
analysis is the chemical dissolution of the blade 
material associated with the flow of this film. 

Because the film of liquid formed on the 
rotor blades is at most a few micrometers thick and 
is violently stirred by the incoming drops, it is 
assumed that the rate controlling step in the 
dissolution process Is that of the rate of dissolution for 
the blade material into the liquid at the liquid- 
solid interface. 

This is different than for dissolution of 
solids into liquids in pipe flow. In pipe flow, the 
rate controlling step is often the rate of diffusion of 
the dissolved solute across the solvent boundary 
layer into the bulk flow of solvent in the pipe. 



For a turbine operating at some steady-state 
condition, rates of flow are a function only of position. 
Hence at any location (see drawing below) x, z 



PLANE XY 612752-6B 


measured from the hub and nose, respectively, of 
the rotor blade the rate flows of solute and solvent 
in the liquid film are time independent and the 
concentration, S, of solute in the solvent at location 
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s, z is the ratio of the rate flow of solute to rate 
flow of solvent at this location or 

V 

s = * -2- (1) 

m ^ 

where 



is the rate flow of solute in the 
x direction per unit width of film 
(z direction) — cm^ /sec 
is the rate of solvent in the x 
direction per unit width of film — 
gm/sec/cm 

is the solvent density — grn/cm® 


According to Epstein the rate of 
dissolution of a pure metal into a pure liquid solvent 
at the metal - liquid interface is given by: 


and since 1 

dV m 

i 

d v m 

r = V m = a (s n -s) A (4) 

dt m o' ' ' 

In the case of the rotor blade film of unit width at 
location x, Eq. (4) may be written: 

V m “ ( ° ( S o ^ (5) 

Jo 

By the assumption of uniform deposition of liquid 
along the rotor blade impaction zone: 

= ™a X (6) 


5 - s ° [' • e>, ' , (‘ "T 1 ")] (2 ’ 

where 

A is the surface area in —cm 2 

contact with the liquid 

$ 0 is the saturation —dimensionless 

solubility of material 
in the solvent 

S is the solute concen- —dimensionless 

tration in the solvent 
at time t 

o 

V is the volume of — cm° 

£ liquid in contact with 
the metal for time t 

t is the contact time — sec 

between liquid and metal 
along surface A 

a is the solution — crr/sec 

rate constant 


where m Q is the rate of deposition per unit area per 
unit time grn/cm^/ sec. 

Substitutions from Eq. (5) and (6) into Eq. (1) yield, 
after some rearranging of terms: 

S = -^4— f a (S -S) dx (7) 

x m J ° 

a 

Differentiation of Eq. (7) and rearrangement of terms 
gives: 



Equation (8) is readily integrated to give: 


From Equation D-2 the following differential 
equations may be inferred; 
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where C is a constant of integration,, 

NoWf it may be noted that when x — 0 in Eq. (9) 
that S = — oo unless C = 0 (in which case S is inde- 
terminate). However, a C taken equal to zero is the 
only reasonable physical interpretation, since the 
physical concentration S must fall with the limits: 

0>S<S c 

and the equation: 



satisfies these limits as x ►- 0. 

Equation (9), therefore, reduces to: 


This Eq. (13) presents a reasonable physical picture. 

If tfi a >> p a, this implies that S — ►Oor the rate 
of material thickness removal is: 

i = a (S - (0) ) = a S 
mo o 

The thickness removal rate is dissolution rate constant 
controlled and is independent of liquid flow rate. 

If m a is low, rti a << />a, this implies that S — ►S Q 
and 



The thickness removal rate is then directly propor- 
tional to the liquid flow rate and independent of the 
dissolution rate constant. 

In between these extremes the thickness 
removal rate is affected by both dissolution rate 
constant and liquid flow rate. 



m + % a 
a * 


on 

It will be noted that the concentration S is not only 
time independent but is constant throughout the 
liquid flow zone along the rotor blades leading edge. 

S in terms of S from Equation (11) may be substituted 
into Equation (h) to give: 


V 

m 




The rate of material thickness removal, 5 m , therefore 
is: 


t 

m 


V 


m 

x 


a S 


m + a 
o * 


(13) 


The discussion so far has assumed a pure metal 
dissolving into a pure liquid. The latter assumption, 
pure liquid, is probably reasonable since 
turbine system operators go to some length to keep a 
pure liquid in the system. However, turbine blade 
materials are alloys composed of materials of differing 
solubility and probably chemical activity. In 
advanced high temperature Rankine cycle liquid metal 
systems, the turbine blade materials are likely to be 
refractory alloys such as TZM and TZC, These are 
molybdenum alloys with small amounts of titanium, 
carbon, and zirconium. The alloying materials such 
as Ti and Zr are more soluble than the base material 
and while present in concentrations of only 1 percent 
to 2 percent, tend to collect at the alloy grain boun- 
daries where they may be more readily leached from 
the surface than if they were uniformly mixed. In 
addition, if there is preferential leaching at the 
grain boundaries, this may so weaken the material 
that a considerably greater amount of material may 
be lost than that which simply dissolved. 
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At the present time there are insufficient 
experimental results or theory to judge these factors 
adequately. Nonetheless, it seems worthwhile to 
delineate these areas of uncertainty by the application 
of multiplicative correction factors to Equation (13), 
as: 


i = k. s 
s 1 m 


where 

a 


k 

k 


1 


m a \ 

a + ~i k 0 a / 

(14) 

is the activity level of a readily dis- 
solvable constituent of the alloy in the 
alloyed form relative to the constituents 
dissolvability in pure form 
is ratio of the effective surface area 
from which the constituent is dissolving 
to the total surface area of the alloy 

is the ratio of total alloy removal rate to 
dissolving constituent removal rate 
is the thickness removal rate for the 
alloy surface as a whole 


= k, 


a a 


In the numerical example given hereafter, it 
has been assumed that 


k l/k-j and a ~ 1 . 


Hence, 

m a 

«s =a S o (15) 

m „ + P n ka 

In addition, it has been assumed that k (the effective 
surface area ratio) is equal to the ratio of dissolving 
constituent volume to total alloy volume, 

3,4.3 Analysis of Last Rotor of a Potassium Turbine 
Design 


Using the previously derived equations, a 
numerical analysis of possible dissolution of metal 
from the last rotor blades of a potassium turbine design 
was performed. The numerical analysis was done by 
Westinghouse at the request of the AiResearch Manu- 
facturing Company as a part of a study of Potassium 
Turbine-Alternator designs, for NASA Lewis Research 


Center, under Contract NAS 3-10934, and has been 
previously reported in reference 85. It is repeated 
here to give the reader an idea of the numerical levels 
that result from application of the model to potassium 
turbine designs. 

To our knowledge there are no experimental 
values of dissolution rate constant (a) available for 
TZM, TZC constituents dissolving into potassium. 

There are values for Fe, dissolving in Na^^ and 
304 SS dissolving in Li (84) . The values for 304 SS 
dissolving in Li are used. (See Figure 3.4-1.) The 
saturation solubilities of the various materials are 
taken to be: 


Material 


Mo 

Zr 

Ti 


0.2 ppm 
58 ppm 

68 ppm 



Figure 3.4-1 Temperature Dependence of a 
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Rotor Blade Dissolution Results 


The saturation solubilities of Zr and Ti are 
most uncertain and may be as low as 10 ppm at 
analyzed rotor conditions* The values used are near 
the maximum values reported in the literature at the 
analyzed rotor temperature. The rotor blade material 
is assumed to be TZM of the following composition (86): 


Constituent 


Volume Fraction 


Carbon 0.0009 

Titanium 0.0110 

Zirconium 0.0014 

Molybdenum 0.9867 


The fluid and geometric conditions along the 
leading portion of the convex surface of the rotor 
blades are taken to be as follows: 


Rotor Blade Conditions 


Total liquid flow 
No. of rotor blades 
Liquid flow/blade 
Blade height 
Temperature 
Liquid density 
Liquid film width 
Liquid film area 


17.8 gm/sec 
59 

0.302 gm/sec 
4.03 cm 
670° C 
0.685 gm/cc 

0. 25 cm 

1. cm^ 


The information from Figure 3.4-1 and the 
previous three tables on material solubil ities, the 
composition of TZM, and the rotor blade conditions 
were used to calculate material removal rates using 
Equation 15. The results of this calculation follow: 


rfi Q —liquid deposi- 
rate/unit area 
a solution rate 
constant 

k effective surface 
area ratio of Ti + Zr 
S o average saturation 
tofubility of Ti and 
Zr 

a k dissolution 
factor 

£ material thickness 
Thickness removed 
in 2000 hr 
Thickness removed 
in 20, 000 hr 


0.302 gm/cm 2/sec 
2(10 - ^) crr/sec 
0.012 dimensionless 
63(10 ppm 

1.65 (10“ 7 ) gn%/cm 2 /sec 

1,26 (10 -8 ) mm/sec 
0.0036 in. 

0.0356 in. 


It will be noted from the tabulation of results 
that the liquid deposition rate, th Qf is some 2 
million times greater than the dissolution factor, 

P ak. Therefore, the material loss rate is Indepen- 
dent of the rate of liquid flow and deposition. By 
this model of material removal by dissolution, the 
liquid flow rate will have to be reduced to about 
10”° of the level used here to effect a substantial 
reduction in material loss rate. It will also be noted 
that the calculated removal of material in 20, 000 
hours is substantial in terms of a 4 cm( 1.575 in.) high 
blade. Hopefully, the model and empirical coefficients 
used are overly conservative. 
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SECTION 4 

LOW SPEED CASCADE TESTS * 


ABSTRACT 

Low speed cascade tests run on a turbine 
blade section, with various trailing edge thick- 
nesses and shapes, investigated the downstream 
trailing edge wake. The blade section was model- 
ed after a 3rd stator blade of the three stage po- 
tassium test turbine of NASA Contract NAS3-8520. 

The wake velocity profiles were recorded 
by pressure traverse measurements at five different 
downstream positions. With these measurements, 
the mixing of the boundary layer and the vorticity 
associated with the trailing edge based drag of the 
wake were investigated. This investigation com- 
pared the traverse measurements with theoretical 
models for viscous and vortex flow. 


4.1 BACKGROUND 

Moisture erosion studies have been con- 
ducted by Westinghouse for the past four years 
under the sponsorship of NASA. These investigations 
have been largely analytical and have been per- 
formed on a number of liquid metal and steam tur- 
bines. 

An important factor in each of these invest- 
igations has been the trailing edge wake down- 
stream of the stator blade row. It is within the 
environment of this downstream wake that the 
moisture drops exist from the time of their discharge 
from the trailing edge to the time of their impinge- 
ment on the downstream rotor. Hence, the properties 
of the wake, such as vorticity and velocity profile, 
have an important effect on the size and trajectory 
of the moisture drops. 


The wake traverse tests investigated the 
effect of the trailing edge thickness and shape 
on the properties of the blade wake. The wake 
properties include the change in velocity profile 
with downstream distance and the nature of the 
wake flow. The latter property is influenced by 
whether the wake flow is predominantly viscous or 
vortex. 

The wake flow associated with zero trail- 
ing edge thickness and the momentum mixing of 
the boundary layer should be viscous. On the 
other hand, the flow associated with large trail- 
ing edge thickness would be expected to resemble 
the separated vortex flow downstream of a circular 
cylinder. 

* W. K. Fentress, Senior Engineer and K. A. Desai, 
Engineer, Development Engineering Dept., 
Westinghouse Steam Divisions, Lester, Pa. 
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Data on the wake profiles and the wake de- 
cay were supplied by the pressure traverse measure- 
ments. Information on the wake vorticity was ob- 
tained from the traverse measurements by compar- 
ing the downstream loss by test with the downstream 
loss by theoretical models. These models gave the 
theoretical downstream loss with viscous mixing 
and vortex flow. These comparisons indicated 
whether the downstream flow was largely viscous 
or vortex. 

The tests were run on the third stage, stator 
blade section, of the three stage potassium test 
turbine of Contract NAS3-8520, with various 
trailing edge configurations. This blade was 
selected because of the association of the three- 
stage turbine with the NASA liquid metal program. 
Also, this blade was typical of those used in liquid 
metal and steam turbines. 

A literature survey was conducted at the 
start of the program and a number of survey reports 
are listed in the reference section. However, not 
all of these reports are cited as references. 

4. 2 SYMBO LS 



a* 

critical velocity 

c 

projected chord length of blade 

C D 

trailing edge drag coefficient based on the 
trailing edge thickness T. 

CF 

energy loss coefficient, Eq. 2 

CFD 

increase in loss coefficient due to trailing 


edge thickness at position 2; i.e, , CF 0 - 
CF Z ' T 

cf t 

loss coefficient, finite trailing edge thick- 


ness 

CF 1 

loss coefficient, zero trailing edge thick- 
ness, at position 1 

CF 2 

loss coefficient, zero trailing edge thick- 
ness, at position 2 

C \t 

loss coefficient, finite trailing edge thick- 
ness, at position 1 

CF 2 T 

loss coefficient, finite trailing edge thick- 

C 9 1 

ness, at position 2 

h 

blade height 

0 

throat dimension 

Pi 

inlet stagnation pressure 

Ps 

downstream static pressure 

Pt 

downstream stagnation pressure 

s 

blade pitch 

T 

trailing edge thickness, temperature. See 
Table 4. 3-1 . 

u 

distance from blade trailing edge in the 
tangential direction 

u/s 

referred distance from blade trailing edge 
in the tangential direction 

V 

downstream velocity 

V 1 

downstream velocity based on isentropic 
expansion from the inlet stagnation condition 

V 

r 

Referred downstream velocity, Eq. 1 

V . 
r,min 

minimum, referred velocity in core of wake 

w 

flow rate 

X 

distance along streamline downstream of the 
trailing edge 
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x/c referred distance along streamline down- 
stream of the trailing edge 

/ distance in axial direction downstream of 
the trailing edge, inches 

a flow angle with respect to the tangential 

direction 

a' blade exit angle, with respect to tangential 
direction, based on the average of the 
suction and pressure surface angle at the 
trailing edge 

y specific heat ratio, 1.4 

Subscripts and Superscripts 

1.2 downstream position at blade trailing edge, 
at position of uniform flow 

D drag 

i inlet stagnation 

s static 

t downstream stagnation 

T finite trailing edge thickness 

r referred 

min minimum 

1 isentropic, blade 

4. 3 TEST APPARATUS AND PROCEDURE 

4.3.1 Blade Description 

The test blade is a 2 times full size model 
of the blade section from the three stage potassium 
test turbine of Contract NAS3-8520, e/4 blade height 
from the inner diameter position, third stator blade 
row. 


There are nine separate configurations of the 
test blade which differ in trailing edge thickness 
and shape. These configurations consist of three 
different trailing edge thicknesses, 0.028 inch, 

0. 106 inch, and three different trailing edge 
shapes, round, square, and tapered (Table 4. 3-1). 
The thin, round trailing edge configuration is 
an exact scale of the turbine blade section. The 
medium and thick trailing edge configurations 


differ slightly in the trailing edge suction surface 
region, but the gauging dimension and blade pitch 
are the same in all blades. Due to the constant 
gauging with change in thickness, the blade exit 
angle, a 1 , varies from 21 to 27 degrees. 

Three sets of blades with thin, medium 
and thick trailing edge thickness were used. The 
blades had a round trailing edge shape and were 
changed from round to square and from square to 
tapered, by machining the trailing edge. Details 

of the trailing edge shapes are given in Table 4,3-1. 

The calculated boundary layer properties 
at the trailing edge of the blade follow: 


MOMENTUM 

THICKNESS- 

INCHES 


displacement 

THICKNESS- 

INCHES 


PRESSURE 

SURFACE 


FULL 

THICKNESS- 

INCHES 


0,017? 


EXPONENT 


7. SB 


SUCTION 

SURFACE 


0.00763 


0. 0120 


0.0540 


3.51 


These boundary layer properties were 
calculated by the methods in Reference 2 and are 
for a blade Reynolds number of 3.4 x 10^, The 
exponent is used in the velocity profile equation. 

Trip wires of 0. 01 8 inch diameter were in- 
stalled on the suction and pressure side of the blade 
approximately 0.45 inch from the leading edge. 

4,3.2 Test Rig 

The low speed cascade rig Is illustrated in 
Figure 4.3-1. The cascade consisting of six blades 
was mounted between the circular end walls. The 
height of the test blade was set by the three inch 
space between the end walls. 

The traversing probe was accessible to the 
region downstream of the blades by a slot in the 
end walls. This provided an approximate two Inch 
travel in the axial direction and an approximate 
eight inch travel in the tangential, pitchwise 
direction. 
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TABLE 4.3-1 

TEST BLADE SPECIFICATIONS 

\ 




c 

In, 

in. 

In. 

T 

deg. 

h 

Thin 

2. 14 

. 524 

1.41 

.028 

4.5 

3.0 

Medium 

2.20 

, 524 

1.41 ' 

.106 

12.4 

3.0 

Thick 

2.24 

. 524 

1.41 

.160 

18.4 

3.0 



Figure 4,3-1 Cascade Test Rig 


HORfZONT A 
INCHES 

— 

L 

vertical 

(INCHES) 


Thin 

Medium 

Thick 

0.000 

0. 000 

-0.035 

-0. 147 

0. 100 

0. 032 

-0. 142 

-0. 096 

0.200 

0. 062 

+0.001 

-0.045 

0.300 

0. 096 

0.046 

+0.008 

0.400 

0.130 

0. 093 

0.062 

0. 500 

0. 168 

0.141 

0. 116 

0.600 

0.208 

0. 190 

0, 172 

0.700 

0.252 

0.242 

0. 229 

0. 800 

0. 300 

0.295 

0.287 

0. 900 

0.350 

0.350 

0. 346 

1.000 

0.406 

0.406 

0. 406 

1. 100 

0. 472 

0.472 

0. 472 

1.200 

0. 552 

0. 552 

0. 552 

1.292 

0.650 

0.650 

0.650 

1.370 

0. 750 

0,750 

0. 750 

1.426 

0. 850 

0.850 

0.850 

1.470 

0. 950 

0. 950 

0. 950 

1.495 

1.050 

1,050 

1.050 

1.506 

1.150 

1. 150 

1. 150 

1.510 

1.250 

1.250 

1.250 

1.504 

1.350 

1,350 

1.350 

1.484 

1.450 

1.450 

1.450 

1.440 

1.550 

1.550 

1. 550 

1.350 

1.638 

1.638 

1.638 

1..250 

1.674 

1.674 

1.674 

1. 150 

1.656 

1.656 

1.656 

1.050 

1.582 

1. 582 

1.582 

0. 994 

1.500 

1.500 

1.500 

0. 948 

1.400 

1.400 

1.400 

0. 922 

1.300 

1.300 

1.300 

0. 902 

1,200 

1.200 

1.200 

0. 882 

1. 100 

1. 100 

1. 100 

0. 855 

1.000 

1.000 

1.000 

0.824 

0. 900 

0. 900 

0.900 

0. 780 

0. 800 

0.800 

0. 800 

0. 726 

0.700 

0.700 

0.700 

0.664 

0.600 

0.600 

0, 600 

0. 592 

0.500 

0.500 

0.500 

0.500 

0.388 

0.388 

0.388 

0. 400 

0.288 

0.288 

0,288 

0. 300 

0.206 

0. 206 

0.206 

0.200 

0.138 

0. 138 

0.138 

0. 100 

0.082 

0. 082 

0. 082 

0.012 

0.026 

0,026 

1 0.026 
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While there are circular end walls at the 
end of the blade span, there is a slot in each of 
these end walls and there are no end walls at the 
ends of the cascade in the axial-tangential direction. 
Thus the flow is not confined along the boundaries 
of the jet. 


velocity and the flow weight average loss co- 
efficient by the following equations: 



4.3.3 Instrumentation 

A Kiel total pressure probe operated by 
the L C. Smith traversing rig was used for 
traversing downstream of the cascade. The over- 
all shield diameter of the probe was 1/16 inch. 

This probe measures the total pressure over a wide 
angle range and thus does not require point adjust- 
ment for yaw. 

A total pressure cylindrical probe and 
thermocouple were located at the inlet to the 
cascade. 


CF = CF fy) = 



y 5 v r 2 p ( t " ,/2 «p/ p t ) 2//)r - (p/f,)^ r+1 ' /r ) 12 du 
? P f T-' /2 «P/P t ) 2/y - (P/f,) (rtl)/r > ' /2 du 


The computer output included Cal Comp 
plots of the referred velocity across the pitch of 
the blade. 


The probes were connected to pressure trans- 
ducers. The electrical signals from the transducers 
and from the traversing rig were fed to the computer- 
ized data acquisition system. 


4.3.4 Data Logging and Calculation 

The data logging system, which is capable 
of accepting up to 300 channels of analog signals, 
digitizes the information and records the data 
on computer magnetic tape. In addition, the 
Hewlett Packard 2116A computer was coupled to d 
teletype printer which gave a continuous printout 
of the wake velocity. This made it possible to 
continuously monitor the data as they were acquired. 

The L C. Smith traversing rig was adjusted 
for traverse readings in 0. 005 inch steps, approxi- 
mately 10 seconds per step. Thus, each downstream 
traverse across the 1.41 inch blade pitch consisted 
of approximately 282 points and required approxi- 
mately 50 minutes time. 

The data from the magnetic tape were fed 
to the CDC 6400 computer. Calculations were 
made to determine the point by point referred 


4.3,5 Checkout Procedure 

A number of tests were run to determine 
the most suitable type of probe for the traverse tests 
and to establish the measurements. At the time 
it was not known how sharp the wake profile wculd 
be in the region of the trailing edge, how many 
points it would take to specify the profile, how 
the size of the probe would affect the measurements, 
or how quickly the profile would change with down- 
stream distance. 

Tests were performed with a number of probes: 
the 1/8 inch total-static cylindrical probe, 1/16 
inch total-static Cobra probe, 1/16 inch total pres- 
sure pitot tube, and 1/8 inch total pressure Kiel 
probe. It was found that the Cobra probe and the 
Kiel probe gave a clear definition of the blade 
wake and gave wake profile plots that were nearly ^ 
identical. However the Cobra probe required 
adjustment for yaw in each pitchwise traverse; 
particularly in the region of the trailing edge, 
while the Kiel probe required no adjustment. Also, 
the measured static pressure by the Cobra probe was 
particularly the same as atmospheric and gave 
essentially the same referred velocity except in 
the region 1/16 to 1/8 inch downstream of the 
trailing edge. Here the static pressure readings 
were erratic. It was therefore decided to use the 
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Kiel total pressure probe, consider the static 
pressure as atmospheric, and disregard the flow 
angle measurement. 

In addition, tests were run to check on the 
downstream entrainment, the use of end walls, and 
the necessary number of blades for undisturbed 
flow in the center of the cascade. It was found that 
the six blade cascade was adequate. The wake 
profiles from the two center blades were practically 
identical and there was little change with respect 
to the wakes from the two center blades and the 
adjacent blades. This was true at all downstream 
positions. Measurements also were made at several 
blade span positions with similar results. Thus, it 
was not considered that the entrainment had an 
important effect on the flow in the center of the 
cascade or that it was necessary to have additional 
blades or end walls at the ends of the cascade in 
the axial-tangential direction. Further, it was 
feared that these end walls would restrict the down- 
stream angle adjustment associated with the trail- 
ing edge thickness and invalidate the atmospheric 
pressure assumption. 

Traverse measurements in the pitchwise 
direction were taken in 0.050 inch steps and in 
0,005 inch steps. The 0.005 inch measurements 
gave much sharper profiles in the region of the 
blade trailing edge. As the traverse rig only 
provides for adjustment by factors of 10, and as it 
requires considerable time to make the adjustment, 
it was decided to take all the measurements in steps 
of 0. 005 inch. 

Finally, tests were run with and without 
the 0.018 inch trip wires. Although the wake 
profiles were apparently unaffected, it was decided 
to traverse with trip wires. This was to assure a 
turbulent boundary layer along the length of the 
blade as in turbine operation. 

4. 3. 6 Wake Traverse Tests 

Traverse tests were run on eight trailing 
edge configurations at zero incidence. These con- 
figurations were with thin, medium, and thick 
trailing edge thickness and with round, square, and 
tapered trailing edge shape. In addition, incidence 
angle tests were run on two of these configurations 
at ± 12 degrees incidence and Reynolds number 
tests on one of the configurations at 1.8 x 10^ 
and 4.24 x 10^ blade Reynolds number. Table 


4.3-2 gives a list of the tests and the test conditions 
are listed below: 


1 Pi " P s ' 

Tests (inches of water) V/a* 

Reynolds No. 
(x 10 5 ) ' 

0° incidence 

26. 

0. 33 

3.4 

± 12°incidence 

26. 

0.33 

3.4 

Reynolds No. 

42. 

0.41 

4.2 


7. 

0.17 

1.8 


The blade Reynolds number is based on the 
blade exit conditions and the projected chord 
length. 

Traverse measurements were taken in 0,005 
inch steps, across one blade pitch in the center of 
the cascade, and at five axial downstream positions. 
The order of tests on each of the three blade thick- 
nesses was with round, square, and tapered trail- 
ing edge shape. Change in the original trailing 
edge shape, from round to square to tapered, was 
made by removing the blades from the cascade and 
machining the trailing edge. The blades were 
numbered and provided with positioning pins to 
provide for the same setting in each assembly. 

Hot wire measurements of the downstream 
wake gave no indication of immediate results 
and were abandoned. It was felt that more could 
be gained by detailed analysis of the data. 


4.4 RESULTS AND DISCUSSION 

4.4. 1 Theoretical Models of Flow 

By comparing the traverse results with 
theoretical models of the downstream flow, it is 
possible to tell how nearly the various models 

conform to the actual process. Thus, it is shown 
whether the wake flow is associated with a viscous 
or a vortex process. 




TABLE 4 . 3-2 


LIST OF TESTS 


BLADE TRAILING 
EDGE THICKNESS 
(INCHES) 

TRAILING EDGE 
THICKNESS PITCH 
T/S 

BLADE TRAILING 
EDGE SHAPE 

0° 

INCIDENCE 
ANGLE TESTS 

+12° and -12- 
INCIDENCE 
ANGLE TESTS 

REYNOLDS 

NUMBER 

TESTS 

THIN 

0.0198 

ROUND 

X 



0.028 

0.0198 

SQUARE 

X 

X 


MEDIUM 

0. 0751 

ROUND 

X 



0. 106 

0. 0751 

SQUARE 

X 


X 


0. 0751 

ROUND 

X 



THICK 

0.1134 

SQUARE 

X 



0. 160 

0.1134 

ROUND 

X 

X 



0.1134 

TAPERED 

X 




The following models were used in the 
comparison. 

1) Lieblein Model ~ Eq. 3 of reference 6 gives 
the referred velocity In the core of the wake as: 

V . = 1 - 0. 13 (x/c + 0.025) -1 ^ 2 
r, min 

As the empirical equation is based on theory and 
test results for airfoils with zero trailing edge 
thickness, it associates the downstream wake with 
the viscous mixing of the boundary layer. This 
model is of particular interest as it was used in 
the moisture erosion calculations. 

2) Viscous Model ~ This model associates the down- 
stream loss with the mixing of the viscous boundary 
layer and with the filling of the dead space down- 
stream of the trailing edge. The equations are 
specified by continuity, momentum, and energy 
relations; see reference 12. The equations are 
with respect to the positions at the trailing edge 
and at the downstream point of uniform flow, 
assume incompressibility, and assume constant 
static pressure in the pitchwise direction at the 
trailing edge position. The exponent in the 
boundary layer equations was taken as 5. 5, corres- 
ponding to the calculated average for the suction 
and pressure surface. The constant pressure 


assumption implies no base drag at the trailing 
edge, i.e, , that the trailing edge drag coefficient 
is zero. 

3) Viscous Model with Trailing Edge Drag - This 
is the same as the viscous model, but without the 
constant static pressure assumption at the trailing 
edge position. The trailing edge drag coefficient 
would be expected to be approximately 0.41 for 
the round trailing blade as for a circular cylinder. 
The equations are the same as for the viscous 
model except for the addition of the Cq term 
in the axial momentum equation to allow for the base 
drag at the trailing edge, e. g. , equation C3 of 
Reference 12: 

gp s j +sm aj [l-i -6 te -9 ]p»(v ) ] 1 =gp s 2 +s' n a 2 0v] 2 

after the addition of the base drag term appears as: 
[ 9 P S .l] ~' /2 [ p{V ' )2 \ C D+ ,in 2 a[l- 4 *-J e 

- 9 Jp»(v ) 2 j = gp ^ 2 + sin 2 a ? [p v 2 J 

where g, P , <5 *, and 6* are in the symbols of 
the reference report ( a is with respect to the 
tangential). Trailing edge drag implies vortex 
flow similar to the separated flow downstream of 
a circular cylinder. 
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4, 4. 2 Test Results 

Figure 4.4-1 gives the Cal Comp plots of 
the traverse results. Bear In mind that the traverse 
was made In the pltchwise direction rather than 
normal to the wake. Thus, the traverse curves are 
at an approximate angle of 21 degrees to the blade 
wake rather than 90 degrees. The pressure and 
suction side of the wake are to the left and right 
of the trough and, due to the angularity, the pressure 
side of the wake Is farther downstream in the stream- 
line direction. This probably accounts for the fact 
that the wake appears to be thicker on the pressure 
side than on the suction side of the trough. V r ^ m | n 
does not occur at exactly the same value of u/s be- 
cause of the impracticality of aligning the travers- 
ing rig in the pitchwise direction with respect to 
the center of the wake. Finally, all of the Figure 
4. 4rl curves are for 3. 4 x 10 Reynolds number. 

Figure 4.4-2 compares the traverse results 
with the Lleblein model. This curve is a plot of 
the referred velocity at the core of the wake with 
downstream, streamline distance. While the 
cascade results for the thin trailing edge blade 
agree with the model, the discrepancy increases 
with trailing edge thickness; in particular, the 
thick trailing edge blade shows a slower rate of 
decay than specified by the Lleblein model. This 
is probably due to the increase in vorti city, with 
Increase in trailing edge thickness, for which 
reason the wake does not attenuate as rapidly as 
with viscous flow. Also, the tapered trailing edge 
shape agrees better with theory In the medium 
thickness blade. Probably this is due to the lower 
effective thickness at which the boundary layer 
breaks away from the trailing edge. Allowing 
that the thin trailing edge is a direct scale of the 
turbine blade section. It appears that the Lleblein 
model gives a good account of the process. 

The Figure 4.4-3 curves give the energy loss 
coefficient with respect to the downstream distance. 
These curves specify the loss coefficient at the 
trailing edge position and at the downstream point 
of uniform flow. The loss coefficients at the trail- 
ing edge and downstream positions are used in 
constructing Figure 4. 4-4 and 5, 


The Figure 4.4-4 and 5 curves compare the 
increase in downstream loss with respect to the 
downstream and trailing edge positions, and the 
Increase in loss with trailing edge thickness, by 
test and theory. The theoretical curves are for the 
viscous model with trailing edge drag correspond- 
ing to Cp = 0., 0,20, and 0.41. Generally, the 
tapered trailing edge blades conform to the model 
with Cq of 0. to 0. 1, the round trailing edge 
blade to the model with Cq of roughly 0.2, and 
the square trailing edge blade to the model with 
Cq of roughly 0.3. Note that all trailing edge 
shapes, including the square trailing edge, exhibit 
less drag than the equivalent drag of a circular 
cylinderwith separated flow. This corresponds 
to approximately Cq = 0,41. Perhaps this is 
due to the reduction In effective thickness caused 
by the blanketing effect of the boundary layer 
beyond the end of the blade or, in the tapered 
blade, due to the lower effective thickness at the 
point where the boundary layer breaks away from 
the trailing edge. As the T/s for the 3 stage 
blade is 0.02, it appears that the model with Cq 
of 0.2 is in good agreement with the flow. 


Traverse tests at high and low blade Reynolds 
numbers of 4. 2 x 10 and 1.8 x 10^ did not show 
any distinguishable difference compared to those 
at 3. 4 x 10^ Reynolds numbers. Tests at higher 
and lower Reynolds numbers were limited by the 
capacity of the equipment and the accuracy of the 
instrumentation. 

Also, tests at +1 2 and -1 2 degrees angle of 
incidence did not show any notable difference com- 
pared to those at zero incidence; see Figures 4.4-1 
a, b, g, and i. This ± 12 degree incidence range 
Is as large as that usually encountered in turbines. 

Bear in mind that the magnitude of the theo- 
retical trailing edge loss depends on the blade exit 
angle, increasing with a 1 , e. g. , CFD given by 
Figure 4.4-5 for a 1 = 21. degrees would be 12 
percent greater for a 1 = 30 degrees at 0. < T/s < 

0. 08 and Cq = 0.2. It is probable that the test 
loss would correspond to this trend. 
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a - Round trailing edge shape: .028 Inch thickness; -12. deg. Incidence; 3.4 x 10 5 blade Reynolds Number. 



Referred pitch distance - u/s 

b - Round trailing edge shape: .028 inch thickness; +12 deg. Incidence; J.4 x 10 5 blade Reynolds Number 


1 J o 



Referred pitch distance - u/s 

c - Square trailing edge shape: .Q28 Jnch thickness; 0 deg. incidence; j.4 x 10^ blade Reynolds Number 




e - Square trailing edge shape: .106 Inch thjlckn^ss; 0 deg. incidence; j . 4 x 10^ blade Reynolds Number 



Referred pitch distance - u/s 

f - Tapered trailing edge Bhape: .106 Inch thickness; 0 deg. incidence; 3-4 x 10 5 blade Reynolds Number 


Figure 4.4-1 Wake Velocity Profiles 
at Various Downstream Positions 
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Referred velocity - V Referred Velocity 






1 - Round trailing edge shape: . 



y - 1 .625 
"2 " .4 6 


Referred pitch distance - u/a 

160 inch thickness; -12 deg. incidence; j.4 x lo' J blade Reynolds Number 





j - Square trailing edge shape: . 160 Inch thickness; 0 deg. incidence; J.4 * 10^ blade Reynolds Number 




k . Tapered trailing edge shape: .160 Inch thicks; 0 deg. incidence; ,.4 x 10- blade Reynolds Number 


Figure 4.4-1 Wake Velocity Profiles 
at Various Downstream Positions 
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minimum referred velocity 


TEST 

□ SQUARE EDGE 
O ROUND EDGE 
£ TAPERED EDGE 
THEORY - REF. 6 



REFERRED STREAMLINE DISTANCE - x/c 


TRAILING EDGE THICKNESS T= 0 106 In c) T= 0.106 in. l. 

a) T = 0.028 in. 

Figure 4. 4-2 Change in Velocity in Core of Wake 
with Downstream Distance 0 Deg. Incidence; 

3.4 x 10 5 Reynolds Number 


□ SQUARE EDGE 
O ROUND EDGE 



REFERRED STREAMLINE DISTANCE - x/c 


TRAILING EDGE THICKNESS 
a) T - 0.028 in. 


b) T= 0.160 in. 


Figure 4.4-3 Increase in Wake Mixing Loss with 
Downstream Distance; 0 Deg. Incidence; 

3. 4 x 105 Reynolds Number 
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TESTS 

□ SQUARE EDGE 
O ROUND EDGE 
A TAPERED EDGE 
THEORY 


TESTS 

□ SQUARE EDGE 
O ROUND EDGE 
A TAPERED EDGE 

theory 



Figure 4.4-4 Increase in Wake Mixing Loss with 
Trailing Edge Thickness. 0 Deg. Incidence; 

3, 4 x 105 Reynolds Number 


Figure 4.4-5 Increase in Loss Coefficient with 
Trailing Edge Thickness. 0 Deg. Incidence; 
3.4 x 10 5 Reynolds Number 


4.5 SUMMARY OF RESULTS 

The Lieblein empirical equation gives a good 
account of the wake decay for the thin trailing edge 
configurations, T/s = 0.02. At large trailing edge 
thickness, T/s = 0. 075 and T/s = 0. 1 13, the rate of 
decay is less than specified by the equation due to 
the increase in the vorti city. Generally, the 
tapered trailing edge more nearly agrees with the 
model due to the reduction in effective thickness. 

From a more detailed analysis; The wake 
flow is associated with the viscous mixing of the 
boundary layers shed from the suction and pressure 


side of the blade and with the vortex flow due to 
the base drag at the trailing edge of the blade. 
General ly, the base drag and vorti city increases 
with the trailing edge thickness and with the 
bluntness of the trailing edge. In the case of 
the round trailing edge, the wake flow is approxi- 
mated by a theoretical model based on the momen- 
tum mixing of the boundary layer and a base drag 
corresponding to Cq = 0,2. 

Blade Reynolds number in the range of 1. 8 
x 10 5 to 4.2 x 105 and blade incidence in the range 
of ± 12 degrees did not have a distinguishable 
effect on the properties of the wake. 
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